在Lotus Script中查找死文档链接

Question

我有一个数据库和文档链接，我试图通过网络访问这些文档链接。我在帮助中找到了appendDocLink方法。查看了所有NotesRichTextItem，Document和NotesDocument属性和方法，但没有检查死链接。

我要做的是获取Lotus脚本中的所有文档链接，然后检查它们是否会导致现有文档或是否为死链接。如果是，那么将向管理员发送有关死链接的邮件。我希望使用计划代理来完成所有这些事情。

Answer 1

您需要使用NotesRichTextItem遍历NotesRichTextNavigator并找到NotesRichTextDocLink类型的元素。

Dim rti As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim rtlink As NotesRichTextDocLink

Set rti = doc.GetFirstItem("Body")
Set rtnav = rti.CreateNavigator

If Not rtnav.FindFirstElement(RTELEM_TYPE_DOCLINK) Then
    Messagebox "No doclinks in Body item",, "No doclinks"
    Exit Sub
End If

Do
    Set rtlink = rtnav.GetElement

    'Use rtlink.DocUNID to get document UNID and try to fetch the document

Loop While rtnav.FindNextElement

我不确定从NotesDocument创建新的rtlink.DocUNID对象是否会导致错误或NOTHING（如果不存在该UNID的文档）。你必须自己检查一下。

以上代码段取自here并已针对此答案进行了修改。