Macro email range + assinatura

Question

Bom dia.

Preciso de ajuda em uma macro para envio de e-mails no Outlook 2007.

Possuo uma macro que seleciona um determinado intervalo de células (tudo para a direita e tudo para baixo à partir de uma célula referenciada) e cola em um e-mail, junto com a introdução. Porém, preciso que minha assinatura seja incluída no fim do e-mail.

Segue o código:

`Sub Envia_Email()       
'Seleciona o intervalo de células na planilha ativa.
Application.DisplayAlerts = False 'desabilite o alerta

Sheets("Base filtrada").Select

Dim email_envio As Variant

email_envio = Range("AP2") 'e-mail para qual será enviado   
descricao = Range("AQ2")

Range("R1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

' Mostrar o envelope na ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = "Prezado, bom dia!." & vbCr & "Seguem os extratos atualizados nas campanhas:" 'Texto Corpo do e-mail
    .Item.To = email_envio 'Para quem sera enviado
    .Item.Cc = 'Quem será copiado
    .Item.Subject = "Extrato " & descricao 'Assunto do e-mail
    .Item.Send
End With

End Sub` 

Desde já, agradeço.

Answer 1

Olá LeonardoMendes Pires, tudo bem?    

Obrigado por entrar em contato com a Comunidade Microsoft!

Para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo à página da technet.microsoft.com que é um fórum especialmente destinado para área corporativa, desenvolvedores e profissionais em TI.

• https://social.technet.microsoft.com/Forums/pt-br/home.

Acesse o link acima e clique em Fazer uma pergunta.

Se houver outras dúvidas relacionadas aos produtos Microsoft, por favor, volte a postar. Estamos à disposição.

Até mais!

Answer 2

Olá LeonardoMendes Pires, tudo bem?    

Obrigado por entrar em contato com a Comunidade Microsoft!

Para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo à página da technet.microsoft.com que é um fórum especialmente destinado para área corporativa, desenvolvedores e profissionais em TI.

• https://social.technet.microsoft.com/Forums/pt-br/home.

Acesse o link acima e clique em Fazer uma pergunta.

Se houver outras dúvidas relacionadas aos produtos Microsoft, por favor, volte a postar. Estamos à disposição.

Até mais!

Olá Emerson.

Muito obrigado, estarei apagando o tópico aqui e inserindo lá.