Outlook 2007 MArkrofehler Laufzeitfehler 13 Typen unverträglich

Hallo zusammen,

ich habe ein Makro, das alle meine markierten Mails in den Ordner Posteingang - Erledigt verschieben soll.
Allerdings erhalte ich immer eine Laufzeitfehler 13 Typen unvertragöich,

Makro


Sub MoveDoneMails()

'-----------------------------------------------------------------------------------------
' Variablen deklarieren
'-----------------------------------------------------------------------------------------
Dim objSourceFolder As Outlook.MAPIFolder ' Zu bearbeitender Ordner
Dim objMoveFolder As Outlook.MAPIFolder ' Ordner, in den verschoben wird
Dim objMail As Outlook.MailItem ' Einzelne Mail
Dim objMails As Outlook.Items ' Alle Mails des Quellordners

'-----------------------------------------------------------------------------------------
' E-Mail-Quellordner festlegen (Posteingang)
'-----------------------------------------------------------------------------------------
Set objSourceFolder = Outlook.Session.GetDefaultFolder(olFolderInbox)

'-----------------------------------------------------------------------------------------
' E-Mail-Zielordner festlegen
'-----------------------------------------------------------------------------------------
Set objMoveFolder = objSourceFolder.Folders("Erledigt")

'-----------------------------------------------------------------------------------------
' E-Mails des E-Mail-Quellordner referenzieren
'-----------------------------------------------------------------------------------------
Set objMails = objSourceFolder.Items

'-----------------------------------------------------------------------------------------
' E-Mail(s) verschieben
'-----------------------------------------------------------------------------------------
For Each objMail In objMails

If objMail.Class = olMail Then

If objMail.FlagStatus = olFlagComplete Then objMail.Move objMoveFolder

End If

Next

Woran kann das liegen?