Dim s As New NotesSession Dim db As NotesDatabase Dim agent As NotesAgent Set db = s.CurrentDatabase Set agent = db.GetAgent("(ReconViewRefreshFlags)") Print "Running refresh agent" Call agent.Run