Excel VBA发送的电子邮件的格式正文
我已经看到了关于这个主题的一些问题，但没有具体的/类似于这种情况。
电子邮件的正文通过用户表单中的input接收。 我现在想格式化为Calibri大小11.我已经尝试了几种方法，虽然代码不会错误，当电子邮件填充，它仍然是时代新罗马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>") 其实，我不确定我能不能帮忙，但在这里有一些提示：
你为什么要写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>"
@ Kathara的解决scheme对我来说工作得很好，但也删除了</font>标签。