For Each loop: Not deleting all emails

Question

I wrote the below in an attempt to save emails older than six months in an external folder:

Option Explicit

Public Sub EBS()
Dim oMail As MailItem
Dim sPath As          


        

Answer 1

When you delete (or move) item 1, item 2 moves into position 1. You skip that item and move on to item 3 which is now in position 2. For Each works the same way.

One way of dealing with this is For i = oInboxFolder.Items.Count to 1 step -1