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.
[This message was edited by Support 3 on February 17, 2004 at 03:10 PM.]