LOTUSSCRIPT/COM/OLE CLASSES
Examples: AddEntry method
1. This example creates a new parent entry called Home at the bottom 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
See Also
AddEntry method
Save method
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary