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.IsInThisDB Then Messagebox "This entry is in the current database." Else Messagebox "This entry is not in the current database." End If
See Also