Hi ，BigBighill

最近由于程序需要必须使用lotusscript脚本发生文档链接，参照帮助终于成功！

Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Dim session As New NotesSession
Dim db As NotesDatabase
Dim newDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
Set newDoc = New NotesDocument( db )
newdoc.form="memo"
Set rtitem = New NotesRichTextItem(newDoc, "Body" )
Call rtitem.AppendDocLink(doc, "TEST" )
newDoc.Subject = "Here is a link to the document"
newDoc.SendTo = "bigbighill"
newDoc.Send( True )
End Sub

PS:有时数据库视图设置有问题的时候出现"couldn't get default view id for database" 提示，只需要在那个出错的数据库中打开一个视图，选择视图属性：“选项”标签，把“首次打开数据库时缺省状态”选上，保存。
link：http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=4611