Examples: SetNamedElement method

This example adds a new entry named Home under the first parent entry in the "Web site" outline and sets the entry to the "Home" page design element.

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.GetFirst
  Set oe = outline.CreateEntry("Home", _
  existingOE, True, True)
  Call oe.SetNamedElement(db, "Home", OUTLINE_CLASS_PAGE)
  Call outline.AddEntry(oe)
  Call outline.Save()
End Sub