Examples: GetAllReadDocuments method

This agent builds a note collection consisting of documents in the database that the current user has read, and places them in a folder named "Reviewed".

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collectionA As NotesDocumentCollection
  Set db = session.CurrentDatabase
  Set collectionA = db.GetAllReadDocuments
  Call collectionA.PutAllInFolder( "Reviewed" )
End Sub