Examples: IsInThisDB property

This example indicates whether an entry is in the current database.

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