LOTUSSCRIPT /COM/OLE のクラス
例:LotusScript のクラスでリッチテキストアイテムのテキスト表現を取得する
1 次のエージェントは、NotesDocument.GetItemValue を使って、最初の (または唯一の) 選択された文書中で Body アイテムのテキスト表現を取得します。
Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Sub Initialize
Set session = New NotesSession
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
If dc.Count = 0 Then Exit Sub
Set doc = dc.GetFirstDocument
bodyArray = doc.GetItemValue("Body")
Messagebox bodyArray(0),, "Text of Body"
End Sub
2 次のエージェントは、NotesItem.Text を使って、最初の (または唯一の) 選択された文書中で Body アイテムのテキスト表現を取得します。
Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim item As NotesItem
Sub Initialize
Set session = New NotesSession
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
If dc.Count = 0 Then Exit Sub
Set doc = dc.GetFirstDocument
Set item = doc.GetFirstItem("Body")
If item Is Nothing Then Exit Sub
Messagebox item.Text,, "Text of Body"
End Sub
3 次のエージェントは、NotesItem.Values を使って、最初の (または唯一の) 選択された文書中で Body アイテムのテキスト表現を取得します。
Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim item As NotesItem
Sub Initialize
Set session = New NotesSession
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
If dc.Count = 0 Then Exit Sub
Set doc = dc.GetFirstDocument
Set item = doc.GetFirstItem("Body")
If item Is Nothing Then Exit Sub
Messagebox item.Values,, "Text of Body"
End Sub
4 次のエージェントは、NotesItem.Abstract を使って、最初の (または唯一の) 選択された文書中で Body アイテムの省略されたテキスト表現を取得します。
Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim item As NotesItem
Sub Initialize
Set session = New NotesSession
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
If dc.Count = 0 Then Exit Sub
Set doc = dc.GetFirstDocument
Set item = doc.GetFirstItem("Body")
If item Is Nothing Then Exit Sub
Messagebox item.Abstract(32, True, False),, "Text of Body"
End Sub
5 次のエージェントは、NotesRichTextItem.GetFormattedText を使って、最初の (または唯一の) 選択された文書中で Body アイテムの変更されたテキスト表現を取得します。
Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim rti As NotesRichTextItem
Sub Initialize
Set session = New NotesSession
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
If dc.Count = 0 Then Exit Sub
Set doc = dc.GetFirstDocument
Set rti = doc.GetFirstItem("Body")
If rti Is Nothing Then Exit Sub
Messagebox rti.GetFormattedText(True, 20),, "Text of Body"
End Sub
6 次のエージェントは、NotesRichTextItem.GetUnformattedText を使って、最初の (または唯一の) 選択された文書中で Body アイテムのテキスト表現を取得します。
Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim rti As NotesRichTextItem
Sub Initialize
Set session = New NotesSession
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
If dc.Count = 0 Then Exit Sub
Set doc = dc.GetFirstDocument
Set rti = doc.GetFirstItem("Body")
If rti Is Nothing Then Exit Sub
Messagebox rti.GetUnformattedText(),, "Text of Body"
End Sub
関連項目
LotusScript のクラスでリッチテキストアイテムのテキスト表現を取得する
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
?
ヘルプの使い方
すべてのヘルプ項目
用語集