Examples: Fixup method

This agent runs the Fixup task on all the databases in the local directory.

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