欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

如何用代码获取文档链接

更新时间: 2014-01-05 03:01:43 责任编辑: Author_N1

 

怎么用代码获取文档链接
不是用右键--复制为文档链接。

--参考方法--
如果是设置连接,参考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
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 03:01:43
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/17492/
本文WWW.DOC100.NET DOC100.NET版权所有。