LOTUSSCRIPT /COM/OLE のクラス

例:Fixup メソッド
次のエージェントは、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("", "")
   Call db.Fixup(FIXUP_QUICK + _
   FIXUP_INCREMENTAL + _
   FIXUP_NOVIEWS)
   Set db = dbdir.GetNextDatabase
 Wend
End Sub

関連項目