Hallo Ch79,
wolltest Du das ganze jetzt nicht mit PDF-Anlage und ohne Bereich einfügen machen?
Na gut, also...
Ich hatte schon geschrieben, dass 11Pt unter Outlook wohl nicht unterstützt wird. Bei mir ändert sich auch nichts. 12Pt dagegen ergibt eine Vergrößerung der Schrift.
Wenn 11Pt nicht unterstützt wird, kann man nix machen, der Code ist auf jeden Fall richtig.
iEinf = Len(sMailtext) - 1 'Grafik Einfügestelle
Spiel mal mit der Einfügestelle. Je nach dem, wo das Bild jetzt eingefügt wird iEnf verkleiner oder vergrößern. Es könnte hier Probleme mit dem Umsetzen des vbLf bzw. <br>-Tags geben. Außerdem darf die HTML-Formatierung hier für die Einfügestelle dann nicht berücksichtigt werden, denn das sind ja keine zum sichtbaren Text gehörenden Zeichen.
Außerdem hast Du das nicht richtig umgesetzt und den Ende-Tag </span> vergessen
1 2 3 4 5 6 7 8 9 10 | .BodyFormat = 2
.Subject = "Crate and Weight Size " & WSh.Range( "F20" ).Value
. To = "test@mail.com"
sMailtext = "<span style='font-family:Calibri;font-size:11pt;color:black;'>" _
& "Hi," & vbLf & vbLf & "Crate and weight size for " _
& WSh.Range( "F20" ).Value & ":" & vbLf & vbLf
.GetInspector: sSignatur = .HTMLBody
.HTMLBody = "<span style='font-family:Calibri;font-size:12pt;color:black;'>" _
& Replace(sMailtext, vbLf, "<br>" ) & "</span>" & sSignatur
.Display
|
Vielleicht klappt's so besser (ungetestet)
viele Grüße
Karl-Heinz
|