はじめまして。 Lotus Scriptに関して教えてください。 Webからあるデータベースに新規入力した時、[保存]ボタンに@Command([ToolsRunMacro];エージェント名)を書き、メールが送信されるエージェントを作成しようとしています。 以下のようなスクリプトを書き、文書を新規保存すると、サーバーのログには 「error message: T003 型が一致しません。」というメッセージが残っており、 正しくメールが送信されていないようです。 どこをどのように直したらよいのでしょうか？ アドバイスをよろしくお願いします。 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 Dim rtitemB As Variant strblindCopyTo(1) = "" strblindCopyTo(2) = "" Set db = session.CurrentDatabase Set doc = session.DocumentContext Set maildoc = New NotesDocument(db) Set rtitemB = New NotesRichTextItem( maildoc, "Body" ) 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.Subject="新規入力されました" Call maildoc.Send(False) End Sub