LOTUSSCRIPT /COM/OLE のクラス

例:HasRunSinceModified
次のコードは、フォーム上のホットスポットボタンで使用され、エージェントが最後に実行されてから更新された場合に限って、エージェントを実行します。

Sub Click(Source As Button)
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim agent As NotesAgent
 Set db = s.CurrentDatabase
 Set agent = db.GetAgent("myAgent")
 If agent.HasRunSinceModified = False Then
   agent.Run
   Messagebox "Agent ran",, "Success"
 Else
   Messagebox "Agent has not changed since created or last run" _
   ,,"Failure"
 End If
End Sub

関連項目