LOTUSSCRIPT/COM/OLE CLASSES
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