vba - For Each ループがすべてのアイテムを削除しない

Question

Outlook 2007 を終了したときに「x」日以上経過した電子メールを削除するはずのマクロがありますが、そのうちのいくつかしか削除されないようで、それを開いて再度終了すると、残りが削除されます。コードは次のとおりです。

Private Sub Application_Quit()

Dim myOlApp, myNameSpace As Object
Dim MyItem As Object
Dim DeletedFolder As Object

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
'Set DeletedFolder = myNameSpace.GetDefaultFolder(olFolderDeletedItems)
Set DeletedFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Auto")

For Each MyItem In DeletedFolder.Items
If DateDiff("d", MyItem.ReceivedTime, Now) > 7 Then
MyItem.Delete
End If
Next

End Sub

この例では、受信トレイ フォルダーの下の自動フォルダーで 7 日以上経過したものを選択しました。最初にそれらをすべて削除しない理由はありますか?

ありがとう