LOTUSSCRIPT/COM/OLE CLASSES

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

See Also