如何使用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不适用于RichTextItems。

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

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")