Unexpected Macro Behavior

RetiredCHE · #1 03-29-2018, 10:19 AM

I am running Outlook 2013 in Office 2013 Pro in Windows 10. Everything is fully patched and up to date.

I have written a macro to empty my Trash folder when I quit Outlook. I also put an icon on my QAT to run the macro on demand. The macro runs in both cases, but it only deletes half of the items in the Trash Folder. If I run it a 2nd time on demand it deletes half the remaining items. The macro loops through the items in the folder using a For Each ... Next construct. What am I doing wrong? Below is just the For Each loop of the macro, not the entire macro.

For Each myItem In myTrash
myItem.Delete
Next myItem

Let me know if I need to post the entire macro. Any help will be appreciated!

gmayor · #2 03-30-2018, 04:28 AM

Run the loop in reverse so as not to screw up the count

Code:

For i = myTrash.Items.Count to 1 step -1
     myTrash.Items(i).Delete
Next i

RetiredCHE · #3 03-30-2018, 05:28 AM

Thanks, gmayor! I had to make a minor change to get it to work for me, but you put me on the right track with the reverse loop. Below is the loop with the change I had to make since variable myTrash was already defined as the collection of items in the folder.

For i = myTrash.Count To 1 Step -1
myTrash(i).Delete
Next I

Thanks again! This item is solved.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Strange macro behavior in 2016	Ulodesk	Word VBA	5	04-02-2017 03:34 PM
Unexpected formatting issue	kcvinu	Word	6	03-29-2017 02:26 PM
unexpected Roman numbering in ToC	eNGiNe	Word	3	08-09-2016 11:13 PM
Unexpected behavior of actual finish	patrickd123	Project	3	07-23-2014 01:53 PM
Unexpected Server Response	GreenAccord	Project	0	01-31-2006 12:52 PM