Hallo Karl-Heinz
Es geht irgendwie nicht. Die Schriftart ändert sich nicht und das eingefügte Bild kommt nicht mehr schön zwischen ende Text und der Signatur. Vorhin hats funktioniert ohne:"<span style='font-family:Calibri;font-size:11pt;color:black;'>" With CreateObject("Outlook.Application").CreateItem(0)
Es kommt immer noch Calibri light für den unternstehende Text. Möchte aber nur Calibri.
An was liegt das?
.BodyFormat = 2 'HTML-Format, Angabe optional
.Subject = "Crate and Weight Size " & WSh.Range("F20").Value 'Betreff
.To = "test@mail.com" 'Empfänger
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 'Signatur holen
.HTMLBody = Replace(sMailtext, vbLf, "<br>") & sSignatur
.Display
iEinf = Len(sMailtext) - 1 'Grafik Einfügestelle
With .GetInspector.WordEditor.Application.Selection
.Start = iEinf: .End = iEinf
.Paste 'Grafik in Mail einfügen
End With
End With
End Sub
Gruss
ch79
|