我需要做的是创造一个热点链接和连接它丰富的文本中。 我已经找到了一种方法通过以下链接来实现这一点：
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
我大约五年前，看着一个非常类似的问题，我无法找到一个解决方案。 我选定了把hotstpot一开始，而不是在中间 - 即通过复制现有的配置文件包含一个“原型”热点的NotesRichTextItem，并插入到这一个新的NotesRichText项目，然后复制含有丰富的NotesRichTextItem它的文本我预先挂起到。
注：此无疑可以使用迈达斯富文本API来完成，但是这是从天才软件的商业产品，我是不是在一个位置，我可以使用它。
这是很老的，不得在以后的版本，但我还记得很多年前使用无证方法来创建文档链接。
定义的
NotesRichTextItem
句法
Call notesRichTextItem.AddLinkByIds( dbReplicaID$, serverHint$, viewUNID$, documentUNID$, comment$ [, HotSpotText$ ])
参数
serverHint $
串。 服务器名称的规范或通用格式。
viewUNID $
串。 在为NotesView的UniversalID要用于打开该文档。 使用一个空字符串（“”），如果没有指定documentUNID是创建数据库链接，或用于打开文档链接的默认视图。
documentUNID $
串。 该文件的UniversalID要链接到。 使用一个空字符串（“”）创建一个视图链接或数据库链接。
评论$
串。 出现当用户按压并保持在链路上的鼠标指针的文本。
HotSpotText $
可选的。 串。 如果提供，该HotSpotText将出现在RichTextItem作为可以点击鼠标跟随链接方框内的文字。 在这种情况下，没有其他标记出现在文本。
：来自http://searchdomino.techtarget.com/tip/Creating-DocLinks-using-undocumented-lotusscript-method
您好我能够通过基本应用或使用DXL来完成我的目标。 我操纵这两个富文本DXL因此我能够插入富文本内的热点链接。 虽然它需要大量的代码和它的有点混乱，也可以通过被确实完成。
感谢大家的帮助，特别是对理查德和肯。
我用这个来源：
http://searchdomino.techtarget.com/tip/How-to-insert-RichText-into-RichText-using-LotusScript
'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)
