Ir ao conteúdo
  • Cadastre-se

Excel Enviar email com anexo com VBA


Posts recomendados

Olá!! Preciso de ajuda.

 

Tenho uma planilha com as abas A,B,C e quero criar um VBA para quando clicar num botão na aba A ele enviar por email a aba B.

 

Encontrei o código abaixo em um video no youtube e tentei adapta-lo mas ele funciona até o corpo do email.  Ele não está anexando a planilha no email.

 

Alguém pode me ajudar?

 

Sub enviar_email()

Set objeto_outlook = CreateObject("Outlook.Application")

Set Email = objeto_outlook.createitem(0)

Email.display

Email.to = "alex.eng@hotmail.com"

Email.Subject = "Relatório de Vendas"

Email.Body = Cells(2, 2).Value & "," & Chr(10) & Chr(10) _
& Cells(2, 3).Value & Chr(10) & Chr(10) _
& "Abraços," & Chr(10) & "Diego Amorim"

 

Email.Attachments.Add (ThisWorkbook.Path & "\Vendas - " & Cells(2, 2).Value & ".xlsx")

Email.send


End Sub

Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!