LOTUSSCRIPT/COM/OLE CLASSES
Private Sub OutlineEntryParent_Click() Dim s As New NotesSession s.Initialize Dim outline As NotesOutline Dim oe As NotesOutlineEntry Dim dir As NotesDbDirectory Dim db As NotesDatabase Set dir = s.GetDbDirectory("") Set db = dir.OpenDatabase("Web test") Set outline = db.GetOutline("Main Outline") Set oe = outline.GetFirst MsgBox oe.Parent.name, , "Parent name" End Sub
See Also