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 のクラスでリッチテキストアイテムのテキスト表現を取得する
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集