寄信
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)