1. This agent runs the agent named "Agent to be run LotusScript."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 Sub