怎么用代码获取文档链接
不是用右键--复制为文档链接。
[解决办法]
如果是设置连接，参考notesRichTextItem类的AppendDocLink方法
Call notesRichTextItem.AppendDocLink( linkTo, comment$ [, HotSpotText$ ] )
如果是读取连接对象：
notesRichTextItem类 结合
NotesRichTextNavigator类的GetFirstElement()和 GetNextElement(...)方法找参数用常量RTELEM_TYPE_DOCLINK
帮助里的例子：
Sub Initialize
Set session = New NotesSession
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Set rti = doc.GetFirstItem("Body")
Set rtnav = rti.CreateNavigator
Set rtlink = rtnav.GetFirstElement(RTELEM_TYPE_DOCLINK)
If rtlink Is Nothing Then
Messagebox "Document contains no links",, "No links"
Exit Sub
End If
Dim linkDb As NotesDatabase
While Not(rtlink Is Nothing)
Set linkDb = New NotesDatabase("", "")
If linkDb.OpenByReplicaID("", rtlink.DbReplicaID) Then
Messagebox linkDb.FilePath,, """" & linkDb.Title & """"
Delete linkDb
Else
Messagebox "No local replica",, "Cannot find database"
End If
Set rtlink = rtnav.GetNextElement
Wend
End Sub
