O código nesta página só funciona quando você usa o Outlook como seu programa de email.
Mas o que podemos usar na propriedade .Body no corpo do e-mai para criar uma mensagem simples?
Teremos 2 opções:
1ª OPÇÃO: MailOutlookWithSignatureHtml01
Altere o conteúdo da variável strbody para:
Let strbody = "Cara Cliente Ana Cláudia" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"
Altere a linha .HTMLBody para:
Let .Body = strbody & vbNewLine & .Body
2ª OPÇÃO: MailOutlookWithSignatureHtml02
Altere o conteúdo da linha strbody para:
Let strbody = "Cara Cliente Ana Cláudia" & vbNewLine & vbNewLine & _"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"
Altere a linha .HTMLBody para:
Let .Body = strbody & vbNewLine & Signature
Mude também a extensão (htm) do arquivo de assinatura MySig.htm na SigString para txt.
Referência: Ron de Bruin
Tags: VBA, Outlook, email, e-mail, send, enviar, assinatura, signature, HTM, RTF, TXT, Ron de Bruin
Nenhum comentário:
Postar um comentário