寫一支程式，可以從個人電腦使用notes client寄信

寫一支程式，可以從個人電腦使用notes client寄信

1.用notepad++寫程式

VBScript如下：
begin----------------------------------------------------------------------------------------------------

'VBScript 由Client PC使用notes client寄信
'執行時Notes Client必須開啟

Const EMBED_ATTACHMENT = 1454
Set nSession = CreateObject("Notes.NotesSession")
'Gets the current user’s mail database
Set db = nSession.GetDataBase("","")
If Not db.IsOpen = True Then
db.OpenMail
End If
Set doc = db.CreateDocument
doc.Form = "Memo"
doc.Sendto = "kitty@msn.com"
doc.Subject = "寄信測試"
doc.Body = "每天10:00系統會自動寄信，請於10:30檢查是否收到信並記錄收到信的時間，若超過30分鐘沒有收到信，表示異常，必須通知郵件管理員檢查。"

'Set up the embedded object and attachment and attach it

sAttachment = "d:\temp\aaaa.txt"

Set AttachME = doc.CreateRichTextItem("Attachment")

Set EmbedObj = AttachME.EmbedObject _
(EMBED_ATTACHMENT, "", sAttachment, "Attachment")

doc.Send(False)


end------------------------------------------------------------------------------------------------------

2.存檔到d:\temp\sendmail.vbs

3.開啟工作排程器，設定每天10:00執行此script寄信

4.注意事項
執行時Notes Client要先開啟。