For Each loop: How to adjust code to move files in one run rather than multiple

Question

I am using the below code to archive emails that have been marked completed. It is supposed to check all emails in our shared folder for anything marked complete prior to t

Answer 1

Do not use "for each" loop if you are modifying the collection

Change the loop

For Each oMailItem In oSource.Items

to a down "for" loop:

dim oItems = oSource.Items
for I = oItems.Count to 1 step -1
  set oMailItem  = oItems.Item(I)