Ich habe eine Schaltfläche in meinem Arbeitsblatt, um eine E-Mail zu senden (und mehr, aber nicht wichtig). Ich möchte meine Standardsignatur mit ihrer HTML-Formatierung, aber keine der beiden Optionen liefert die gewünschten Ergebnisse:

.Body erzeugt den korrekten Text (Schriften und Zeilenumbrüche), aber die Signatur ist normaler Text

.HMTLBody erzeugt die richtige Signatur, aber aus irgendeinem Grund wird der Textkörper an Times New Roman anstatt an den Standard-Calibri gesendet, und die Zeilenumbrüche funktionieren nicht, wenn ich @ verwendvbNewLine, vbCr, odervbCrLf

Bin ich nur S.O.L.? Muss ich nur einen auswählen und damit umgehen, oder gibt es eine Möglichkeit für mich, meinen Kuchen zu haben und ihn auch zu essen?

Code

    .Display         ' need to display email first for signature to work
    .Subject = Title
    .To = ActiveSheet.Range("E10").Value ' <-- Put email of the recipient here
    .CC = "" ' <-- Put email of 'copy to' recipient here
    .HTMLBody = "Thank you for the opportunity to bid on " & ActiveSheet.Range("B9").Value & ". " & _
        " Please read our attached proposal in its entirety to be sure of all inclusions, exclusions, and products proposed.  Give us a call with any questions or concerns." & _
        vbCrLf & vbCrLf & _
        "Thank you," & _
        .HTMLBody      ' Adds default signature
    .Attachments.Add PdfFile

Aktualisieren

Endgültiger Arbeitscode dank der beiden folgenden Antworten:

.Display         ' We need to display email first for signature to be added
.Subject = Title
.To = ActiveSheet.Range("E10").Value
.CC = ""
.HTMLBody = "<font face=""calibri"" style=""font-size:11pt;"">Thank you for the opportunity to bid on " & ActiveSheet.Range("B9").Value & ". " & " Please read our attached proposal in its entirety to be sure of all inclusions, exclusions, and products proposed.  Give us a call with any questions or concerns." & _
    "<br><br>" & _
    "Thank you," & _
    .HTMLBody & "</font>"   ' Adds default signature
.Attachments.Add PdfFile