/ Forums / Advansys Formativ / Creating Solutions with Formativ / “Notify” user when shared message arrives / Reply To: “Notify” user when shared message arrives

February 17, 2004 at 2:55 pm #6904
Support 1
Participant

    Here is an example applet to delete a message from a shared folder. The key to this solution is the Token GroupWise.Refresh, used instead of the Object API method Account.Refresh.

    Sub Main(Client, GWEvent)
 
  dim oMsg
 
  if Client.ClientState.SelectedMessages.Count = 0 then
    exit sub
  end if
 
  set oMsg = Client.ClientState.SelectedMessages.Item(1)
  msgbox oMsg.Subject
  oMsg.Delete
  set oMsg = nothing
 
  Groupwise.Refresh

End Sub

    I hope this helps.

    Advansys Support

    [This message was edited by Support 3 on February 17, 2004 at 03:10 PM.]