Permanently Deleting Mails in IMAP-Folder

Hi,

I'm using an IMAP-Folder structure to view mails on different computers.
Unfortunately, in Outlook mails that are deleted are only marked for
deletion but not really deleted.
I know, that there is the menu Edit/Purge Deleted, but this has to be done
for each folder each time you leave the folder.

So I want to write a short Makro, that does this job for me.

I did already write all that GetFolder stuff to see each message in the IMAP
hierarchy, but i dont know how i can see, if the particular message is
marked for deletion or not. The Property "RemoteState" is alwalys
"olRemoteStatusNone" (no difference if the item is marked for deletion or
not).

The next question is, what method should i call, if i found the right
property? Is it enough to call the Delete-method or is there something else?

Please can anybody help me??

Thanks on behalf
Andreas