status = notesAgent.Run( [ noteID$ ] )Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Dim agent As NotesAgent Set db = s.CurrentDatabase Set agent = db.GetAgent("Agent to be run LotusScript") If agent.Run = 0 Then Messagebox "Agent ran",, "Success" Else Messagebox "Agent did not run",, "Failure" End IfEnd SubC'est dans l'aide
