Examples: Parent property (NotesOutlineEntry - LotusScript®)

This Visual Basic code displays the parent name of a NotesOutlineEntry object.

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