Outlook VBA Nachrichtenobjekte

[firewalker...]

Hallo!

Ich habe mit dem untenstehenden Code, der HTML-Mails automatisch in TXT wandeln soll, aber auch eine Kopie der Originalmail in den Unter-Ordner HTML verschieben soll. Das Umwandeln funktioniert, aber das Kopieren (ist auskommentiert) nicht, es werden lediglich leere Mails abgelegt. Was habe ich falsch gemacht?

Sub HTML2Txt()

'wandelt htlmails in Text um

   Dim objNameSpace As NameSpace

    Dim objPosteingang As MAPIFolder

    Dim objNachricht As MailItem


    Set objNameSpace = Application.GetNamespace("MAPI")

    Set objPosteingang = objNameSpace.GetDefaultFolder(olFolderInbox)

    For Each objNachricht In objPosteingang.Items

        If objNachricht.UnRead = True And objNachricht.GetInspector.EditorType _

        = olEditorHTML Then

            Dim oSubFolder As Outlook.MAPIFolder

            Dim objKopie As MailItem

'            Set objKopie = Application.CreateItem(olMailItem)  ' geht noch

'           Set oSubFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("HTML") ' geht auch

'            objKopie = objNachricht.Copy

'            objKopie.Move oSubFolder  'kopiert leere Nachricht warum?

            Set oSubFolder = Nothing

            objNachricht.Body = objNachricht.Body                   'löscht HTML -> TXT

            objNachricht.Save                                       'wieder speichern

        End If

    Next

'    ActiveExplorer.ShowPane olPreview, True                        'Voransicht für Nachrichten einschalten

End Sub