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