Código VBA no Excel. Enviar uma região de células por e-mail.

Question

Estou desenvolvendo uma planilha que dispara relatórios a partir de uma lista de e-mail.

A única coisa que ainda não consegui fazer, é copiar a área com as células especificas da pessoa para colar no corpo do e-mail.

Segue código que estou utilizando:

Sub Envia_Emails(EnviarPara As String, Assunto As String)

    Dim OutlookApp As Object

    Dim OutlookMail As Object

    'Informa os valores das variaveis "OutlookApp" e "Outlookmail"

    Set OutlookApp = CreateObject("Outlook.Application")

    Set OutlookMail = OutlookApp.CreateItem(0)

        With OutlookMail

        .To = EnviarPara

        .CC = ""

        .BCC = ""

        .Subject = Assunto

        .Body = ThisWorkbook.Sheets("Filtro").Select("a4:u4", Selection.End(xlDown)).Select

        .Display 'para envia o email diretamente defina o código .Send ou .Display para visualizar antes.

    End With

    Set OutlookMail = Nothing

    Set OutlookApp = Nothing

End Sub

A parte que deixei em negrito é o que esta dando erro.

Se eu oculto o código que está em .Body ou troco o código por algo "texto" ele carrega o outlook e envia a mensagem normal. Mas quase todos os códigos que eu conheço de carregar uma região de células ele não está aceitando.

Answer 1

Olá Adesilva!

Não poste sua dúvida no TECHNET, pois este fórum não é voltado para este tipo de dúvida.

O fórum correto para dúvidas de VBA seria o MSDN cujo linnk é:

https://social.msdn.microsoft.com/Forums/pt-BR/home?forum=vbapt

Sobre sua dúvida, vou dar uma sugestão que talvez te ajude. Acesse o link abaixo do blog de um amigo, que já tem pronto o desenvolvimento para enviar parte de uma planilha no corpo do e-mail. Você pode instalar o suplemento e acessar o código fonte com a senha que está disponível lá no blog. O link é:

http://ambienteoffice.com.br/blog/ambientexl/#mailxl

Abraços!

Answer 2

Muito obrigado pela ajuda.

Vou acessar o blog do seu colega e entrar no MSDN. kkk

Até mais.

Answer 3

Olá Adesilva, tudo bem? 

Bem-vindo à Comunidade da Microsoft!

Referente ao seu caso, onde deseja suporte para o Sharepoint, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao TECHNET que são fóruns especialmente destinados para desenvolvedores e profissionais em TI.

 **:: TECHNET ::**

Se a resposta ajudou de alguma forma, por favor, clique em “Resolvi meu problema” localizado logo abaixo desta mensagem, caso a sua dúvida não tenha sido solucionada, por favor, poste novamente. 

Espero ter ajudado, até mais!