例: 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