LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim db As NotesDatabase Dim outline As NotesOutline Dim oeA As NotesOutlineEntry Dim oeB As NotesOutlineEntry Set db = session.CurrentDatabase Set outline = db.GetOutline("products") Set oeA = outline.GetLast() Set oeB = outline.GetParent(oeA) Messagebox oeB.Label
See Also