hyperlink - 如何使用 LotusScript 将 Web URL 添加到文档

Question

我有一个代理，它获取模板文档的副本并输入文本文件中的值。

以编程方式向字段添加超链接时遇到问题，如果我只添加文本(例如 http://www.google.com )，则没有超链接，只有纯文本。如果我手动添加文本，通过编辑文档，只需添加地址即可正常工作并且可单击。

我尝试创建一个富文本对象，然后将其添加到字段中，但这也不起作用:(

Set rtItem = New NotesRichTextItem( doc, "link" )
Call rtitem.AddNewLine( 1 )
Call rtItem.AppendText ("http://www.google.com")
doc.AppendItemValue "Details", rtItem

需要明确的是，我正在寻找一种使用 LotusScript 将可点击的超链接附加到字段的方法。任何帮助将不胜感激。

编辑:经过进一步检查，如果我生成一个在文本字段中带有链接的文档并保存它(以编程方式使用 doc.save)，它会保存为纯文本，一旦我进入该文档并手动保存，纯文本就会变成一个链接就好了。我的储蓄方式可能有问题吗？

If  (Not doc.save(True,False,True)) Then
    Msgbox("Document could not save")
End If

Answer 1

它确实按照您在代码中尝试使用“AppendText”的方式工作。但是，仅当文档处于读取模式并且设置了客户端属性“将 Internet URL ... 设为热点”时，该链接才有效。

更新:

AppendItemValue 不适用于 RichTextItem。

将链接直接附加到您的“详细信息”字段，或者如果不存在则创建它。您的代码应如下所示:

Dim rtItem As NotesRichTextItem
If doc.Hasitem("Details") Then 
    Set rtitem = doc.Getfirstitem("Details")
Else 
    Set rtitem = doc.Createrichtextitem("Details")
End if
Call rtitem.AddNewLine( 1 )
Call rtItem.AppendText ("http://www.google.com")