Como Usar Macro Excel para Enviar Email sem Outlook

Há muitos motivos para enviar email de macro Excel. Exemplo: quando soma de vendas atinge certo valor, gerente pode querer saber na hora. Embora haja formas de enviar email de macro, o método mais comum usa Outlook. Problema se não tem Outlook no computador. Nesse caso, use CDO (Collaboration Data Object).

Passo 1

Pressione "Alt" e "F11" simultaneamente na planilha para abrir editor Visual Basic integrado.

Passo 2

Copie e cole o seguinte código na janela de código em branco:

Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Fields("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2
iConf.Fields("https://schemas.microsoft.com/cdo/configuration/smtpserver") = "Seu servidor SMTP aqui"
iConf.Fields("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
iConf.Fields.Update

strbody = "Olá" & vbNewLine & vbNewLine & _
"Esta é a linha 1" & vbNewLine & _
"Esta é a linha 2" & vbNewLine & _
"Esta é a linha 3" & vbNewLine & _
"Esta é a linha 4"

With iMsg
    Set .Configuration = iConf
    .To = "destinatario@email.com"
    .CC = ""
    .BCC = ""
    .From = "Remetente <remetente@email.com>"
    .Subject = "Assunto"
    .TextBody = strbody
    .Send
End With
End Sub

Passo 3

Substitua "Seu servidor SMTP aqui" pelo endereço do servidor SMTP que deseja usar.

Passo 4

Pressione "F5" para executar a macro e enviar sua mensagem.

Dica

Se não tem servidor próprio, Google oferece servidor SMTP (https://gmail.google.com) gratuito.

• Como Calcular Endereço de Memória
• Como Calcular Alcance do Wi-Fi