'*** ThisOutlookSession
Sub stream_BODY_and_HTMLBODY_properties_into_Textfiles()
    With CreateObject("ADODB.Stream")
        .Charset = "utf-8"
        
            '*** HTMLBody
            .Open
            .WriteText ThisOutlookSession.ActiveInspector.CurrentItem.HTMLBody
            .SaveToFile "c:\HTMLBody.txt"
            .Close
            
            '*** BODY
            .Open
            .WriteText ThisOutlookSession.ActiveInspector.CurrentItem.Body
            .SaveToFile "c:\Body.txt"
            .Close
    
    End With
End Sub

Öffne so eine Mail und lass den Code laufen.

Er erzeugt Dir zwei Textdateien direkt auf c:\. Kämpf Dich da durch und frage Dich, warum Du Dich sich so quälen willst.

Keep it simple.