Outlook Lesebestätigung in Ordner verschieben?

Private Sub Application_NewMail()
On Error Resume Next
' Variablen deklarieren
Dim objInboxFolder          As MAPIFolder       ' Posteingang
Dim objReportFolder         As MAPIFolder       ' Ordner für Lesebestätigungen
Dim objItems                As Items            ' Alle Elemente des Posteingangs
Dim objItem                                     ' Einzelnes Element im Posteingang
' Posteingang referenzieren
Set objInboxFolder = GetNamespace("Mapi").Folders(1).Folders("Posteingang")
' Ordner für Lesebestätigungen referenzieren
Set objReportFolder = GetNamespace("Mapi").Folders(1).Folders("Posteingang").Folders(" _
Lesebestätigungen")
' Alle E-Mails des Posteingangs referenzieren
Set objItems = objInboxFolder.Items
' Gelesene Lesebestätigungen verschieben
For Each objItem In objItems
If objItem.UnRead = False And InStr(LCase(objItem.Subject), "lesebestätigung")  0  _
Then
objItem.Move objReportFolder
End If
Next
End Sub