macro para enviar email


Macro para enviar email

macro para enviar email

Assim como obter dados da Internet, o Excel também permite enviar e-mails com o seu relatório através de uma conta do Microsoft Outlook.

Uma maneira simples de fazer a tarefa é usar a seguinte macro para enviar o arquivo inteiro:

Sub Email()

ActiveWorkbook.SendMail “[email protected]”, “Título do Email”

End Sub

 

Se você quiser enviar apenas uma de suas abas dentro de um novo arquivo, uma maneira interessante de fazer é criar um novo arquivo, copiar a aba para este arquivo e fazer o envio do email

 

‘Define a planilha que será enviada por email. Ex.: Plan1, Balancete, Lista De Nomes, etc

nomedaaba = “Plan1”

 

‘Criar um novo arquivo excel

Set NovoArquivo = Application.Workbooks.Add

 

‘Copiar a planilha para o novo arquivo criado

ThisWorkbook.Sheets(nomedaaba).Copy Before:=NovoArquivo.Sheets(1)

 

‘Salvar o arquivo

ThisWorkbook.SaveAs ThisWorkbook.Path & “\NovoArquivo” & “.xlsm”

nomecompleto = NovoArquivo.FullName

 

‘Enviar o email

ThisWorkbook.SendMail “[email protected]”, “Título do Email”

 

‘Fechar o arquivo novo

ThisWorkbook.Close

Faça o curso completo de Macros para Excel conosco: