Hallo Karl-Heinz,
ja. Funktioniert bedingt, wohl aber nicht zuverläsig.
Schau Dir mal folgendes Ergebnis an:
Sub TestHtmlBody()
Dim ff As Integer
Dim v
With CreateObject(class:="Outlook.Application").CreateItem(0)
.display
v = .htmlbody
.htmlbody = "<span font ...>" & v
v = .htmlbody
End With
ff = FreeFile
Open Environ("userprofile") & "\Desktop\Test.csv" For Output As #ff
Print #ff, v
Close
End Sub
Bei mir schaut das dann so aus:
Der SPAN-Bereich wird zwar korrekt interpretiert (!) (obwohl das Grundgerüst nonkonform ausschaut) allerdings, wie in TEs Fall eben nur bedingt.
In der OH findet man unter als Bemerkung:
https://docs.microsoft.com/de-de/office/vba/api/outlook.mailitem.htmlbody
|