例: GetAllReadDocuments method

このエージェントにより、データベース内の文書のうち現在のユーザーが既読の文書コレクションが作成され、「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