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

See Also

Abstract method

Glossary