LOTUSSCRIPT/COM/OLE CLASSES
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
See Also