例: GetUnformattedText method

次のエージェントは、最初に (または唯一) 選択された文書の 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
  t1$ = rti.GetUnformattedText()
  t2$ = ""
  While Len(t1$) > 0
    c$ = Left(t1$, 1)
    t2$ = t2$ & c$
    If c$ = "." Then t2$ = t2$ & " "
    t1$ = Right(t1$, Len(t1$) - 1)
  Wend
  Messagebox t2$,, "Text of Body"
End Sub