LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim db As NotesDatabase Dim outline As NotesOutline Dim oe As NotesOutlineEntry Set db = session.CurrentDatabase Set outline = db.GetOutline("products") Set oe = outline.GetFirst() If oe.HasChildren Then Messagebox "This entry has children." Else Messagebox "This entry has no children." End If
See Also