Thanks Ken, I guess it is similar to deleting rows in Excel. I will change
it to a down counter.

Cheers

"Ken Slovak - [MVP - Outlook]" wrote:

Don't use For Each loops or up counting For loops for deleting items from a
collection. Use For loops that count down (Step -1) or use Do loops that
test for no items left.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Nigel RS" wrote in message
...
The following snippet of VBA code (Outlook 2003) is used to selectively
delete mail items from a selected mail folder. where the mail item
subject
matches a predefined string (MailSubject). This code works great except
it
fails to delete the last item. If there are 10 items matching it will
delete
9 but leave one behind. If there is only 1 it fails to delete it.

If I step the code in the debugger it works! What could be causing this?

For Each objItem In objFolder.Items
' delete the item from the folder
If Left(objItem.Subject, mSubLen) = MailSubject Then
objItem.Delete
End If
Next