Examples: Parent property (NotesOutlineEntry - LotusScript®)

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