LOTUSSCRIPT /COM/OLE のクラス

例:LastFixup プロパティ
次のエージェントは、ローカルデータベースに対して最後に実行された 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

関連項目