寄信

Dim ss As NotesSession, db As NotesDatabase, docNew As NotesDocument

Set db = ss.CurrentDatabase

Set docNew = new NotesDocument(db)

Dim rtitem As NotesRichTextItem

set rtitem = new NotesRichTextItem(docNew, "Body")

'加入文件連結

Call rtitem.AppendText("請按右方文件圖示開啟文件")

Call rtitem.AppendDocLink(doc, "")

docNew.Subject = "標題"

docNew.SendTo = "收件人"

docNew.CopyTo = "cc收件人"

docNew.Principal= "寄件人"

Call docNew.Sign

Call docNew.Send(False)