例: AddEntry method (NotesOutline class)

次の例は、「Web site」アウトラインの最後に「Home」という親エントリを新規作成します。

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

次の例は、「Web site」アウトラインの最後のエントリの子エントリとして「About us」というエントリを新規作成します。

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