如何用程序在自动发送的EMAIL中加入DOC LINK？

[lylifan]

本人是新手，只是工作上有这样的要求，所以还请高手们赐教，谢啦!

[china_fankai]

可以這樣寫

Dim sess As New NotesSession
Dim db As NotesDatabase
Dim maildoc As NotesDocument
Dim rtitem As NotesRichTextItem

Set db = sess.CurrentDatabase
Set maildoc = New NotesDocument(db)

maildoc.Form = "Memo"
maildoc.Subject = strSubject
Set rtitem = maildoc.CreateRichTextItem("Body")
Call rtitem.AddNewLine(1)
Call rtitem.AppendText(strMessage)
Call rtitem.AddNewLine(2)
Call rtitem.AppendText("單擊打開文檔鏈接=> ")
Call rtitem.AppendDocLink(doc, "Click here to the form")
Call maildoc.ReplaceItemValue("SendTo", vntMailTo)
Call maildoc.ReplaceItemValue("CopyTo", vntCCTo)
Call maildoc.Send (False)