例: Abstract method

次のエージェントはアイテムの要約を生成します。

Sub Initialize
  Dim session As New NotesSession
  Dim doc As NotesDocument
  Dim item As NotesItem
  Set doc = session.DocumentContext
  Set item = doc.GetFirstItem("Body")
  Messagebox item.Abstract(80, True, False),, "Body abstract"
End Sub