Como enviar Email com VBA usando o Excel?
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
Solucionado
Como enviar Email com VBA usando o Excel?
Aprendendo como enviar Email com VBA usando o Excel Esse é um código que uso com frequência e me ajuda em várias tarefas.
Implementação:
1 – Abra um novo documento no Microsoft Excel.
2 – Aperte Alt + F11 para acessar o console de Macros.
3 – Clique em inserir novo módulo.
4 – Após inserir o novo módulo copie e cole o código abaixo.
5- EM CASO DE ERRO AO EXECUTAR O CÓDIGO: Se você executar o código após isso será exibido o seguinte erro. Este erro ocorre pois na rotina que estamos criando fazemos referencia ao Objeto Outlook.Application, para corrigir este erro temos de seguir os passos a seguir, e referenciar o objeto em nosso projeto.
6 – ATIVE AS REFERÊNCIAS: Clique em Ferramentas ou Tools.
7 – Após isso será exibida a janela abaixo, onde você deverá procurar por “Microsoft Outlook 14.0 Object Library” Lembrando que pode variar conforme a versão do seu Excel, 14.0 ou 15.0 ou assim por diante.
Importante: Após realizar a criação do módulo, ativar a referência a biblioteca do Outlook você poderá utilizar o código para enviar emails diretamente do excel com VBA.
Sub Envio()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
'Criação e chamada do Objeto Outlook
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
Application.DisplayAlerts = False
With OutMail
.To = "douglas@douglasgodoy.com.br "
.CC = ""
.BCC = ""
.Subject = "Este é um e-mail de teste"
.HTMLBody = "Caros, este é um email de teste!"
'O trecho abaixo anexa a planilha ao e-mail
.Attachments.Add ActiveWorkbook.FullName
.Send 'Ou .Display para mostrar o email
End With
Application.DisplayAlerts = True
'Resetando a sessão
Set OutMail = Nothing
Set OutApp = Nothing
End Sub