スティッチさん、早速の回答ありがとうございました。 教えていただいたページにあったエラー処理を そのまま貼り付けた状態で文書を新規保存した結果、 以下のように表示されました。 「エラーが発生しました。 下記内容を管理者へ問い合わせて下さい。 エラー 13／24行 : T003 型が一致しません。 」 しかし…13／24という数字は、どこからきているのでしょうか？ コードはもっと長いので、24行中13行目といわれても どこが悪いのかよく分かりません。 以下、修正したスクリプトです。 引き続きよろしくお願いします。 ---------------------------------------------------- Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim maildoc As NotesDocument Dim strblindCopyTo(1 To 2) As String strblindCopyTo(1) = "" strblindCopyTo(2) = "" Set db = session.CurrentDatabase Set doc = session.DocumentContext Set maildoc = New NotesDocument(db) Set rtitemB = New NotesRichTextItem( maildoc, "Body" ) On Error Goto ErrorOccurrence Call rtitemB.AppendText("新規入力されました。ご確認ください。") Call rtitemB.AddNewLine(2) Call rtitemB.AppendText("連 番： ") Call rtitemB.AppendText(doc.SEQ_HEADER(0)) Call rtitemB.AppendText("-") Call rtitemB.AppendText(doc.SEQ(0)) Call rtitemB.AddNewLine(1) Call rtitemB.AppendText("日 付： ") Call rtitemB.AppendText(doc.MAILDATE1(0)) Call rtitemB.AddNewLine(1) Call rtitemB.AppendText("購入先： ") Call rtitemB.AppendText(doc.SELLER(0)) Call rtitemB.AppendText(" ") Call rtitemB.AppendText(doc.SELLER_NAME(0)) Call rtitemB.AddNewLine(2) Call rtitemB.AppendText("以上です。") maildoc.Form="Memo" ' maildoc.SendTo=doc.MAILWH maildoc.sendto = "itikawas@roland.co.jp" maildoc.Subject="新規入力されました" Call maildoc.Send(False) Exit Sub ErrorOccurrence: Dim z As Integer 'エラー出力行 z% = Erl() 'スクリプト内のエラー出力行を取得 Print "エラーが発生しました。<BR>下記内容を管理者へ問い合わせて下さい。<BR><BR>" &_ "エラー" & Str(Err) & "／" & Cstr(z%) & "行 : " & Error$ Exit Sub End Sub
Lotus Scriptで新規文書保存時にメールが送信されない