E-mail e assinatura do Outlook no Excel VBA - .Body vs .HTMLbody
Tenho um botão na minha planilha para enviar um e-mail (além de mais, mas não importante). Quero minha assinatura padrão com sua formatação HTML, mas nenhuma opção está produzindo os resultados que desejo:
.Body
produz o corpo correto (fontes e retornos de carro), mas a assinatura é texto simples
.HMTLBody
produz a assinatura correta, mas o corpo, por algum motivo, a fonte vai para Times New Roman, em vez do padrão Calibri, e os retornos de carro não funcionam se eu usarvbNewLine
, vbCr
ouvbCrLf
Eu sou apenas S.O.L.? Preciso escolher um e lidar com ele, ou existe uma maneira de eu comer meu bolo e também comê-lo?
Código:
.Display ' need to display email first for signature to work
.Subject = Title
.To = ActiveSheet.Range("E10").Value ' <-- Put email of the recipient here
.CC = "" ' <-- Put email of 'copy to' recipient here
.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
Atualizar:Código de trabalho final, graças à ajuda das duas respostas abaixo:
.Display ' We need to display email first for signature to be added
.Subject = Title
.To = ActiveSheet.Range("E10").Value
.CC = ""
.HTMLBody = "<font face=""calibri"" style=""font-size:11pt;"">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." & _
"<br><br>" & _
"Thank you," & _
.HTMLBody & "</font>" ' Adds default signature
.Attachments.Add PdfFile