【ユーザライブラリ】notesでのメール送信方法
利用される方は少ないと思いますが、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