10

利用される方は少ないと思いますが、notes関連のライブラリがないので投稿しておきます。

notesクライアントでメール送信をする際に以下のスクリプトで送信が可能となります。

送信の際に本文を変更したい場合、例えばエラーメッセージを状況に合わせて送信したい場合などは、

本文の部分も変数に変えると良いです。

参考まで。

objSubject = !件名!
objSendTo = !宛先!
objCopyTo = !CC!

Dim objNotes
Dim objNDB
Dim objNDoc
Dim objNWsp

Set objNotes = CreateObject("Notes.NotesSession")
Set objNDB = objNotes.GETDATABASE("", "")
Call objNDB.OPENMAIL
Set objNDoc = objNDB.CREATEDOCUMENT

objNDoc.Subject = objSubject
objNDoc.SendTo = objSendTo
objNDoc.CopyTo = objCopyTo
objNDoc.Body = "本文"
objNDoc.PostedDate = Now()
objNDoc.SAVEMESSAGEONSEND = True
objNDoc.Send 0

Set objNotes = Nothing
Set objNDB = Nothing
Set objNDoc = Nothing

この質問は解決済みのためクローズされています。
ベストアンサーとして選択しました