Am Thu, 24 Aug 2006 04:56:02 -0700 schrieb Darren Hermes:

Dim Items as Outlook.Items
Dim i as Long
Set Items=Application.Session.GetDefaultFolder(olFolde rDeletedItems).Items
For i=Items.Count To 1 Step-1
Items(i).Delete
Next

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


Hello everyone.

Firstly, thank you to Sue Mosher for her assistance on a recent question I
posted and her solution did the trick.

I now have another question!

Is it possible to use some code to empty the deleted items folder as part
of
a macro?

Many thanks.