例: UpdateAll method

次の例は、「作成または変更されたすべての文書」に対して実行されるエージェントを示します。UnprocessedDocuments メソッドが、最後の実行以降で更新された文書と新規文書をすべて収集します。UpdateAll メソッドでそれらの文書をマークして、後から実行するときに古い文書であることを認識できるようにします。

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set collection = db.UnprocessedDocuments
  Call collection.UpdateAll
End Sub