LOTUSSCRIPT/COM/OLE CLASSES

Examples: Contains method
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