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
Véase también
AddEntry method
Save method
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario