VBA Outlook - Inserindo assinatura simples no e-mail como TXT - Insert Outlook Signature in mail


O código nesta página só funciona quando você usa o Outlook como seu programa de email.

Inserindo uma assinatura simples (txt) na mensagem.

Nos dois códigos anteriores (1, 2) usamos a propriedade .HTMLBody para adicionar texto e uma assinatura ao e-mail.

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ênciaRon 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

diHITT - Notícias