例: Getting text renditions of rich text items in LotusScript® classes

次のエージェントは、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

次のエージェントは、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

次のエージェントは、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

次のエージェントは、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

次のエージェントは、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

次のエージェントは、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