AW: Text aus Excel in Mail einfügen HTML
17.11.2018 15:39:41
Karl-heinz
Hi Detlef,
falls Deine Frage noch nicht gelöst ist, hier noch mal ein Ansatz:
Leider hast Du nicht geschrieben, wie Du Deinen Text in die Mail kopiert. Manuell aus einer Zelle?
Falls es im Rahmen einer VBA-Routine ist, mit z.B. ".html.body=", hätte ich da vielleicht etwas für Dich. Der nachfolgende Code ermittelt Text und einige Formatparameter aus der angegebenen Zelle und setzt diese in HTML um.
Sub Test()
Debug.Print GetFont(Range("A1"))
End Sub
Function GetFont(Obj As Range) As String
Dim T1 As String, T2 As String
With Obj.Font
If .Bold Then T1 = "<strong>": T2 = "</strong>"
If .Italic Then T1 = T1 & "<i>": T2 = T2 & "</i>"
If .Underline = xlUnderlineStyleSingle Then T1 = T1 & ""<u>": T2 = T2 & "</u>"
GetFont = T1 & "<span style='font-size:" & .Size & "pt;font-family:" _
& .Name & ";color:#" _
& Right$("0" & Hex(.Color And vbRed), 2) _
& Right$("0" & Hex((.Color And vbGreen) \ &H100), 2) _
& Right$("0" & Hex((.Color And vbBlue) \ &H10000), 2) _
& "'>" & Replace(Obj.Value, vbLf, "<br>") & "</span>"<br>" & T2
End With
End Function
Ansonsten vermute ich, dass Deine Angabe zur Schriftgröße in normalem, alten Font-Size-Tag umgesetzt wird. Da gibt es nur 1,2,3,4,5 aber nicht 11. Du müsstest die Pt-Form innerhalb eines Styles verwenden.
Und Hajo's Einwand ist nicht relevant. Die Urform "<br>" ist ohne "\" und funktioniert noch bestens.
viele Grüße
Karl-Heinz