例: LastFixup property (NotesDatabase - LotusScript®)

次のエージェントは、ローカルデータベースに対して最後に実行された Fixup の日付を表示します。

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