我的工作表上有一个按钮来发送电子邮件(加上更多,但不重要).我想要我的默认签名及其HTML格式,但两个选项都没有产生我想要的结果:
> .Body生成正确的正文(字体和回车),但签名是纯文本
> .HMTLBody产生正确的签名但由于某种原因身体,字体转到Times New Roman而不是默认的Calibri,并且无论我使用vbNewLine,vbCr还是vbCrLf,回车都不起作用
我只是S.O.L.?我需要选择一个并处理它,还是有办法让我吃蛋糕也吃它?
码:
.Display ' need to display email first for signature to work
.Subject = Title
.To = ActiveSheet.Range("E10").Value '
.CC = "" '
.HTMLBody = "Thank you for the opportunity to bid on " & ActiveSheet.Range("B9").Value & ". " & _
" Please read our attached proposal in its entirety to be sure of all inclusions, exclusions, and products proposed. Give us a call with any questions or concerns." & _
vbCrLf & vbCrLf & _
"Thank you," & _
.HTMLBody ' Adds default signature
.Attachments.Add PdfFile
更新:
最后的工作代码归功于以下两个答案的帮助:
.Display ' We need to display email first for signature to be added
.Subject = Title
.To = ActiveSheet.Range("E10").Value
.CC = ""
.HTMLBody = "Thank you for the opportunity to bid on " & ActiveSheet.Range("B9").Value & ". " & " Please read our attached proposal in its entirety to be sure of all inclusions, exclusions, and products proposed. Give us a call with any questions or concerns." & _
"
" & _
"Thank you," & _
.HTMLBody & "" ' Adds default signature
.Attachments.Add PdfFile