Support 1

The code sample below finds all sent messages and displays the total number found in a message box. See the Filter syntax for a reference.

Sub Main(Client, GWEvent)

  dim oMsg
  dim oMessages
  on error resume next
  set oMessages = GroupWise.account.mailbox.messages.find("(MAIL) AND (BOX_TYPE = OUTGOING)")
  if oMessages is nothing then
    exit sub
  end if

  msgbox "Total sent messages: " & oMessages.count
  set oMessages = nothing

End Sub

I hope this helps.

Advansys Support