#8110
Support 3
Participant

“Client.ClientState.CommandMessage” expect, you have selected some messages and will throw error if no messages selected.

The code enabled error handling by calling “On Error Resume Next” which causes execution to continue with the statement immediately following the statement that caused the run-time error. See the Microsoft® Visual Basic® Scripting Guide for more information.

You can ignore the error or clear it by calling “err.clear”. If your code only require the first selected message then you can use the optimise code below.

  
dim oMsg

Sub Main(Client, GWEvent)

  if IsMessageSelected(Client) then
    msgbox oMsg.subject
  end if

  set oMsg = nothing

End Sub



' Is any message selected in the GroupWise client?
' Return type: True/False
Public Function IsMessageSelected(Client)
  On Error Resume Next

  set oMsg = nothing
  Set oMsg = Client.ClientState.CommandMessage

  IsMessageSelected = not (oMsg is nothing)

  err.clear
End Function

Hope this helps.

Regards,
Advansys Support