Examples: AddEntry method (NotesOutline class)
- 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
- 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
Have feedback?
Google Analytics is used to store comments and ratings. To provide a comment or rating for a topic, click Accept All Cookies or Allow All in Cookie Preferences in the footer of this page.