例: Fixup method

次のエージェントは、Fixup タスクをローカルディレクトリのすべてのデータベースに実行します。

Sub Initialize
  Dim session As New NotesSession
  Dim dbdir As New NotesDbDirectory("")
  Dim db As NotesDatabase
  Set db = dbdir.GetFirstDatabase(DATABASE)
  While Not(db Is Nothing)
    Call db.Open("", "")
    Call db.Fixup(FIXUP_QUICK + _
    FIXUP_INCREMENTAL + _
    FIXUP_NOVIEWS)
    Set db = dbdir.GetNextDatabase
  Wend
End Sub