Examples: ParentDatabase property (NotesOutline - LotusScript®)

This Visual Basic code displays the parent title of a NotesOutline object.

Private Sub OutlineParent_Click()
Dim s As New NotesSession
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