例: NotesOutline class

次のスクリプトは、「MyOutline」というアウトラインを新規作成し、その名前を表示します。

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim outline As NotesOutline
  Set db = session.CurrentDatabase
  Set outline = db.CreateOutline("MyOutline")
  Messagebox outline.Name
End Sub