Examples: Accessing an outline

  1. This example displays the properties of an outline.
    Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim outline As NotesOutline
  Set db = session.CurrentDatabase
  Set outline = db.GetOutline("MyOutline")
  Messagebox outline.Alias
  Messagebox outline.Comment
End Sub
  2. This example displays the Label property of the first outline entry.
    Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim outline As NotesOutline  
  Dim oe As NotesOutlineEntry
  Set db = session.CurrentDatabase
  Set outline = db.GetOutline("abba")
  Set oe = outline.GetFirst()
  Messagebox oe.Label
End Sub
  3. This example displays the FrameText property of the last outline entry.
    Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim outline As NotesOutline  
  Dim oe As NotesOutlineEntry
  Set db = session.CurrentDatabase
  Set outline = db.GetOutline("abba")
  Set oe = outline.GetFirst()
  Messagebox oe.FrameText
End Sub
  4. This example creates an entry called Munchkin and adds it to the Cats outline. It will appear as the last entry at the top level of the outline.
    Dim session As New NotesSession
Dim db As NotesDatabase
Dim outline As NotesOutline
Dim entry As NotesOutlineEntry
Set db = session.CurrentDatabase
Set outline = db.GetOutline("Cats")
Set entry = outline.CreateEntry("Munchkin")
Call outline.save()