Please see the sample for the Restrict function in your VBA help file. You
can loop backwards through the resulting Items collection and call each
item's Delete method. A backwards loop looks like this:
Dim i&
Dim Items as Outlook.Items
Dim obj as Object
For i=Items.Count to 1 Step-1
set obj=Items(i)
obj.Delete
Next
