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>标记。