LOTUSSCRIPT /COM/OLE のクラス
例:HotspotText
1 次のエージェントは、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
2 次のエージェントは、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
関連項目
HotSpotText プロパティ
用語集
ヘルプに対するフィードバック
ヘルプの使い方
ヘルプを開く
用語集
ヘルプに対するフィードバック
ヘルプの使い方
ヘルプを開く