Excel VBA發送的電子郵件的格式正文

Question

我已經看到了有關此主題的一些問題，但沒有一個特定於/類似於此場景的問題。

電子郵件的正文是通過用戶表單中的輸入接收的。 我現在想將其格式設置為Calibri size11。我嘗試了幾種方法，盡管代碼沒有出錯，但是在填充電子郵件時，它仍然是Times New Roman 12。

第一個正文行稱為文本框，是我嘗試添加格式的地方。 第二行是維護換行符所必需的。

對不起這個基本問題，我還在學習！

        .To = UserName
        .cc = txtCC
        .BCC = txtBCC
        .Importance = Importance
        .Subject = txtSubject.Value
        .HTMLBody = "<p style='font-family:calibri;font-size:14.5'>txtBody.Value</font></p>"
        .HTMLBody = Replace(UserForm1.txtBody.Text, vbCrLf, "<br>")

Answer 1

實際上，我不確定是否可以幫忙，但這里有一些建議：

為什么要編寫html主體，然后用userform.textbox中的文本覆蓋它？

而是嘗試類似：

.To = UserName
.cc = txtCC
.BCC = txtBCC
.Importance = Importance
.Subject = txtSubject.Value
AdaptedText = Replace(UserForm1.txtBody.Text, vbCrLf, "<br>")
.HTMLBody = "<p style='font-family:calibri;font-size:14.5'>" & AdaptedText & "</font></p>"

Answer 2

@Kathara的解決方案對我來說效果很好，但也可以刪除該</font>標記。