For Each loop: Some items get skipped when looping through Outlook mailbox to delete items

by

Likely cause: When you do this InboxMsg.Move, all of the messages in your inbox after the one that was moved are bumped up by one position in the list. So you end up skipping some of them. This is a major annoyance with VBA’s For Each construct (and it doesn’t seem to be consistent either).

Likely solution: Replace 

For Each InboxMsg In Inbox.Items

with

For i = Inbox.Items.Count To 1 Step -1 'Iterates from the end backwards
    Set InboxMsg = Inbox.Items(i)

This way you iterate backward from the end of the list. When you move a message to deleted items, then it doesn’t matter when the following items in the list are bumped up by one, because you’ve already processed them anyway.

More Related Contents:

  1. Get reference to additional Inbox
  2. How to add default signature in Outlook
  3. How do I trigger a macro to run after a new mail is received in Outlook?
  4. Outlook VBA – Run a code every half an hour
  5. Can I iterate through all Outlook emails in a folder including sub-folders?
  6. Download attachment from Outlook and Open in Excel
  7. Embed picture in outlook mail body excel vba
  8. How to move each emails from inbox to a sub-folder [duplicate]
  9. Save attachments to a folder and rename them
  10. Outlook Reply or ReplyAll to an Email
  11. VBA Search in Outlook
  12. Distinguish visible and invisible attachments with Outlook VBA
  13. Check for the senderEmailAddress
  14. Removing a string that includes CRLF characters from body of e-mail
  15. How to insert text into Outlook email editor using VBA
  16. How do you extract email addresses from the ‘To’ field in outlook?
  17. How do I open an outlook .msg file from my harddrive that is NOT in outlook?
  18. Add a “CC recipient” to Outlook 2010 VBA
  19. Using visual basic to access subfolder in Inbox?
  20. Search structured text in Outlook body
  21. Switching the FROM Inbox
  22. How to add an embedded image to an HTML message in Outlook 2010
  23. Iterate all email items in a specific Outlook folder
  24. Restrict Outlook Items by Date
  25. VBA Outlook Mail .display, recording when/if sent manually
  26. MS Access VBA: Sending an email through Outlook [closed]
  27. Where does Outlook store the VBA code files?
  28. Working with current open email
  29. Debugging an Outlook 2007 script fired by a rule
  30. Runtime error 287. Sending Emails through Outlook using VBA in Access

Leave a Comment