例: HotspotText (NotesRichTextDocLink - LotusScript®)

次のエージェントは、Body アイテムで最初の文書リンクのホットスポットテキストを表示します。

Sub Initialize
  Dim session As NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim rti As NotesRichTextItem
  Dim rtnav As NotesRichTextNavigator
  Dim rtlink As NotesRichTextDocLink
  Set session = New NotesSession
  Set db = session.CurrentDatabase
  Set dc = db.UnprocessedDocuments
  Set doc = dc.GetFirstDocument
  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
  Set rtlink = rtnav.GetElement
  If rtlink.HotSpotText = "" Then
    Messagebox "Not a hotspot",, "Hotspot text"
  Else
    Messagebox rtlink.HotSpotText,, "Hotspot text"
  End If
End Sub

次のエージェントは、Body アイテムで最初の文書リンクのホットスポットテキストを変更します。

Sub Initialize
  Dim session As NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim rti As NotesRichTextItem
  Dim rtnav As NotesRichTextNavigator
  Dim rtlink As NotesRichTextDocLink
  Set session = New NotesSession
  Set db = session.CurrentDatabase
  Set dc = db.UnprocessedDocuments
  Set doc = dc.GetFirstDocument
  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
  Set rtlink = rtnav.GetElement
  If rtlink.HotSpotText = "" Then
    Messagebox "Not a hotspot",, "Hotspot text"
  Else
    Messagebox rtlink.HotSpotText,, "Hotspot text"
    txt$ = Inputbox$("New hotspot text")
    If txt$ <> "" Then 
      rtlink.HotSpotText = txt$
      Call doc.Save(True, False)
    End If
  End If
End Sub