Examples: Contains method (NotesViewEntryCollection - LotusScript®)

This agent creates a NotesViewEntryCollection of read documents, and determines if the first document in the "All" view is in that collection.

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vec As NotesViewEntryCollection
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set view = db.GetView("All")
  view.AutoUpdate = False
  Set vec = view.GetAllReadEntries()
  Set doc = view.GetFirstDocument
  If vec.Contains(doc) Then
    Print "The first document has been read."
  Else
    Print "The first document was not read."
  End If
End Sub