Per Skript alle Mails älter als 14 Tage von IMAP-Server löschen

Sub DeleteOldMailsImap()
    Dim fldrImapRoot As Folder, colOldMails As New Collection, mail as Mailitem
    Set fldrImapRoot = Application.Session.Stores("user@domain.de").GetRootFolder  
    parseImapFolders fldrImapRoot, colOldMails
    For Each mail In colOldMails
        mail.Delete
    Next
End Sub

Sub parseImapFolders(ByVal fldr As Folder, ByRef colOldMails As Collection)
    Dim objMail As MailItem, dateRemove As Date
    dateRemove = DateAdd("d", -14, Date)  
    
    If fldr.DefaultItemType = olMailItem Then
        For Each objMail In fldr.items
            If objMail.ReceivedTime < dateRemove Then
                colOldMails.add objMail
            End If
        Next
    End If
    For Each subfolder In fldr.Folders
        parseImapFolders subfolder, colOldMails
    Next
End Sub