LOTUSSCRIPT/COM/OLE CLASSES

Examples: LastFixup property
This agent displays the last fixup date for the local databases.

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