Outlook Mails nach x Tagen löschen

Sub DeleteOldMails()
    dim mail as object, garbage as new Collection, limit as Date, mailcount as Long
    limit = DateAdd("d",-4,Date)  
    for each mail in ActiveExplorer.CurrentFolder.Items
        if mail.ReceivedDate < limit then
            garbage.add mail
        End if
    Next
    mailcount = garbage.Count
    if mailcount > 0 then
        for each itm in garbage
            itm.Delete
        Next
        msgbox  "Es wurden " & mailcount & " Mail(s) gelöscht", vbInformation  
    else
        msgbox  "Keine der Mails entspricht den Kriterien.", vbInformation  
    End if
End Sub

for each mail in Application.Session.Stores("user@domain.de").GetDefaultFolder(olFolderInbox).Items  

for each mail in Application.Session.Stores("user@domain.de").GetDefaultFolder(olFolderInbox).Folders("Subfolder").Items