我已经看到了关于这个主题的一些问题,但没有一个特定/类似于这种情况。
通过用户表单中的输入接收电子邮件正文。我现在想把它格式化为Calibri大小11.我尝试了一些方法,虽然代码没有错误,但当电子邮件填充时,它仍然是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>")
答案 0 :(得分:2)
实际上,我不确定我是否可以提供帮助,但这里有一些问题:
为什么要编写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>"
答案 1 :(得分:1)
@ Kathara的解决方案对我来说很好,但也删除了</font>
标记。