Examples: Abstract method

This agent generates an abstract of an item.

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