The agent I am running has a refreshwindow command that is overriding a print statement that is suppose show up when the agent is called. When I click on the status bar, it shows that the print command worked, however it does not stay on the bar (in other words, after the entire command is complete, the bar is clear; I need my print statement to be the last thing showing). The code is below If you need a reference to what the code does, refer to a post called: @Sort in Lotus Script
Thanks for any help ahead of time.
Code behind action button:
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = s.CurrentDatabase
Set agent = db.GetAgent("solution_all complete")
If agent.Run = 0 Then
Print "Agent ran",, "Success"
Else
Print "Agent did not run",, "Failure"
End If
End Sub
Agent Code:
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim view As NotesView
Dim formula As String
Dim formula2 As String
formula = "SELECT @All"
Set uiview = ws.CurrentView
Set view = uiview.View
view.SelectionFormula = formula
Call ws.ReloadWindow( )
formula2 = "SELECT s_cdate != ''"
view.SelectionFormula = formula2
Call ws.ReloadWindow( )
End Sub