例: GetAllUnreadDocuments method

このエージェントにより、データベース内の文書のうち現在のユーザーが未読の文書コレクションが作成され、「To Be Read」というフォルダに格納されます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collectionA As NotesDocumentCollection
  
  Set db = session.CurrentDatabase
  Set collectionA = db.GetAllUnreadDocuments()
  Call collectionA.PutAllInFolder( "To Be Read" )
End Sub