LOTUSSCRIPT/COM/OLE CLASSES

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

See Also