Excel VBA

时间:2016-01-28 10:11:24

标签: excel vba

我已经看到了关于这个主题的一些问题,但没有一个特定/类似于这种情况。

通过用户表单中的输入接收电子邮件正文。我现在想把它格式化为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>")

2 个答案:

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