お世話になっております。 以下、質問させて下さい。 Notesサーバ上で起動するAgentがあり、 一連の処理終了後、メールを送信しています。 過去に、直近でメール送信の実績があるAgentですが、 今回はNotesLogに以下エラーMSGが吐き出され、 送信できていません。 Agent 'SendMailTestAgent' error: Could not send document 直近でのメール送信の実績が確認された後、サーバ設定文書や Agentを変更していません。 原因として何が考えられますでしょうか？ メール送信のロジックですが、 以下のようにしています。 Dim to_mail(1 To 3) As String Dim noteslog As New NotesLog("SendMailAGT") to_mail(1) = "xxxxxxxxxx@xxxxx.co.jp" to_mail(2) = "" to_mail(3) = "" Call noteslog.OpenMailLog(to_mail, "テストメール送信") Call noteslog.Logaction("ご担当殿：") Call noteslog.Logaction(" テストメールを送信します。") Call noteslog.Logaction(" ご確認下さい。") Call noteslog.Close