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("", "") lastfixup$ = lastfixup$ & db.FilePath & " " & _ db.LastFixup & Chr(13) counter% = counter% + 1 If counter% > 15 Then Messagebox lastfixup$,, "Last Fixup" counter% = 0 lastfixup$ = "" End If Set db = dbdir.GetNextDatabase Wend If counter% > 0 Then Messagebox lastfixup$,, "Last Fixup" End If End Sub
See Also