LOTUSSCRIPT/COM/OLE CLASSES
Private Sub OutlineParent_Click() Dim s As New NotesSession s.Initialize Dim outline As NotesOutline Dim dir As NotesDbDirectory Dim db As NotesDatabase Set dir = s.GetDbDirectory("") Set db = dir.OpenDatabase("Web test") Set outline = db.GetOutline("Main Outline") MsgBox outline.ParentDatabase.Title, , "Title of parent" End Sub
See Also