Question

我需要做的是创建一个热点链接并将其附加到富文本中。我已经通过以下链接找到了实现此方法的方法：

http://ozinisle.blogspot.com/2010/11/lotusscript-code-to-append-hotspot-to.html

现在我希望创建的热点位于现有富文本字段的内部或中间。如果您检查了链接，它会创建一个文本，其中包含热点的正文文本，我无法识别将其插入到内部尝试使用导航和范围，但它只是获取纯文本，我还想获得热点链接。感谢。

下面是一个示例代码（我们附加了富文本，但我希望将其插入内部 - 我找到了一种方法，但它也使用DXL令人困惑）有一种简单的方法可以解决这个问题：

If rtnav.FindFirstString("<Reply: From>", RT_FIND_CASEINSENSITIVE) Then

    ' Get the <Reply:From> string
    Call rtrange.SetBegin(rtnav)
    Call rtrange.SetEnd(rtnav)

    ' Remove the <Reply:From> string
    Call rtrange.Remove()

    ' Go to the next text range after the <Reply:From> string
    Call rtrange.SetBegin(rtnav)
    Call rtrange.SetEnd(rtnav)

    ' Insert the hotspot in the right place
    Call rtitem.BeginInsert(rtrange, False)

    ' ** I WANT TO INSERT HERE THE HOTSPOT, BUT I CAN'T FIGURE IT OUT **

    Call rtitem.EndInsert

    Call rtitem.AppendRTItem(dxlbody)

End If

Answer 1

我在五年前看过一个非常类似的问题，我无法找到解决方案。我决定将hotstpot放在开头而不是中间 - 即通过复制包含＆＃34;原型＆＃34;的NotesRichTextItem。来自现有配置文档的热点，并将其插入到新的NotesRichText项中，然后复制包含我预先挂起的富文本的NotesRichTextItem。

注意：毫无疑问，这可以使用Midas Rich Text API完成，但这是Genii Software的商业产品，而我无法使用它。

Answer 2

这是非常陈旧的，可能在以后的版本中不起作用，但我记得许多年前使用未记录的方法来创建doclinks。

定义于

<强> NotesRichTextItem

语法的

Call notesRichTextItem.AddLinkByIds( dbReplicaID$, serverHint$, viewUNID$, documentUNID$, comment$ [, HotSpotText$ ])

参数

<强> serverHint $

的字符串。 Canonical或Common format的ServerName。

<强> viewUNID $

的字符串。要用于打开文档的notesview的UniversalID。如果未指定documentUNID，则使用空字符串（＆＃34;＆＃34;）创建数据库链接，或使用默认视图打开docLink。

<强> documentUNID $

的字符串。要链接到的文档的UniversalID。使用空字符串（＆＃34;＆＃34;）创建视图链接或数据库链接。

<强>注释$

的字符串。用户在链接上按下并按住鼠标指针时显示的文本。

<强> HotSpotText $

可选。串。如果提供，HotSpotText将作为盒装文本显示在RichTextItem中，可以使用鼠标单击该文本以跟随链接。在这种情况下，文本中不会出现其他标记。

取自： http://searchdomino.techtarget.com/tip/Creating-DocLinks-using-undocumented-lotusscript-method

Answer 3

您好我通过基本应用或使用DXL来实现我的目标。我操纵了两个富文本DXL，因此我能够在富文本中插入热点链接。虽然它需要很多代码并且有点令人困惑，但它确实可以实现。

感谢大家对Richard和Ken的特别帮助。

我使用了这个来源：

http://searchdomino.techtarget.com/tip/How-to-insert-RichText-into-RichText-using-LotusScript

Answer 4

'This works in lotusscript:
rs4.PassThruHTML= True
Call rtitem.AppendStyle(rs4)
rtitem.appendText(|<a href="http://www.teamwork.com.tr">Open</a>|)
rs4.PassThruHTML= False
Call rtitem.AppendStyle(rs4)

使用lotusscript在富文本中插入热点

4 个答案: