Examples: AddEntry method (NotesOutline class)

  1. This example creates a new parent entry called Home at the end of the "Web site" outline.
    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("Web site")
  Set oe = outline.CreateEntry("Home")
  Call outline.AddEntry(oe)
  Call outline.Save()
End Sub
  2. This example creates a new entry, called About us, as a child of the last entry in the "Web site" outline.
    Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim outline As NotesOutline
  Dim oe As NotesOutlineEntry
  Dim existingOE As NotesOutlineEntry
  Set db = session.CurrentDatabase
  Set outline = db.GetOutline("Web site")
  Set existingOE = outline.GetLast
  Set oe = outline.CreateEntry("About us", existingOE, True, True)
  Call outline.AddEntry(oe)
  Call outline.Save()
End Sub