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

#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.]