VBA Excel - GMAIL - Enviando 10.000 e-Mails - 8º Passo

VBA Excel - GMAIL - Enviando 10.000 e-Mails - 8º Passo

Alguns têm se perguntado: O e-Mail morreu?

Pessoalmente acho que não. E os dados abaixo talvez façam você refletir sobre o seu uso.

Existem mais de 4 milhões de contas de e-Mails. E está previsto alcançar 5 milhões e meio até 2019, o que será um crescimento superior a 26% - Radicati Group (2015)

Existem 2,5 bi de usuários de e-Mail em todo o mundo, incluindo os usuários de negócios e consumo. - Radicati Group (2015)

72% dos adultos americanos online enviam ou recebem e-Mail pessoais através de Smartphone pelo menos semanalmente - Forrester (2014)

122.500.453.020 de e-Mails são enviados a cada hora. - MarketingProfs (2014)

Tudo isso me leva a querer concluir nosso projeto, vamos lá?

Este é o último passo com a principal função do projeto que permite-nos enviarmos nossos 10 mil ou mais e-Mails.

8º Passo

A função que compõe a última parte deste projeto é responsável pela conexão com o GMail e o envio propriamente dito. Nela estão todas os parâmetros necessários para envio:

Function SND_CDO_GMail (nTo As String, SMTPSource As String)

    Dim iMsg As Object

    Dim iConf As Object

    Dim strbody As String

    Dim Flds As Variant

    Dim SndTm As String

    Set iMsg = CreateObject("CDO.Message")

    Set iConf = CreateObject("CDO.Configuration")

    Let Application.ScreenUpdating = False

    Let Application.DisplayAlerts = False

    iConf.Load -1 ' CDO Source Defaults

    

    Set Flds = iConf.Fields

    

    With Flds

        Let .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

        Let .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

        Let .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPSource   '"[COLOQUE SEU E_MAIL DE CONEXÃO]"

        Let .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "[DIGITE A SENHA]"

        Let .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

         

        Let .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

        Let .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

        

        .Update

    End With

     

    Let strbody = nHTMLMess(1)

     

    With iMsg

        Set .Configuration = iConf

        Let SndTm = " | " & Replace(Replace(Replace(Now(), ":", ""), "/", ""), " ", "")

        Let .To = nTo

        Let .CC = ""

        Let .BCC = "brazilsalesforceeffectiveness@gmail.com"

    

        Let .From = """A&A: VBA Office Automation®"" " & SMTPSource

        Let .Subject = "A&A: VBA Office Automation® - MS Excel, MS Access, MS Outlook, MS Powerpoint, etc..." & SndTm

         

        .AddAttachment "https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiHm1bBbZVdo4S1dO1__3JksLc4i5VIaeYD6RY1ExuaW1qCAvPL51UsPyVWx4jOoW94p-BksegFL39q08BAVh2NAv2UNcpQaeJXF14tw10epgHK74mLIcWUFKNRqmyWF0BMzUoyHAWLfQC_/s1600/BrazilSFE_Dashboards_Panilhas_Scorecards_001.png"

        

        Let .HTMLBody = strbody

        

        .Send

    End With

    Let Application.ScreenUpdating = True

    Let Application.DisplayAlerts = True

End Function

Deixe seus comentários e contribuições.

Leia isso!!!

Este código não funcionará no Windows 98 e ME. Você precisa estar conectado à internet quando executar um exemplo. 

Pense na possibilidade de poder criar inúmeros conteúdos HTML para diversos e-Mails, permitindo liberdade de criação dinâmica através de código VBA:

• 1º Passo - Crie algumas contas no GMail para organizar o seu envio.
• 2º Passo - Configure o GMail para o envio através do MS Excel.
• 3º Passo - Função de validação dos endereços de e-Mail.
• 4º Passo - Função de controle dos intervalos de envio dos e-Mails.
• 5º Passo - Formatação da planilha repositória da lista de e-Mails.
• 6º Passo - Função intercambiável, modeladora do HTML do e-Mail.
• 7º Passo - Funcionalidade de automação do processo de envio.
• 8º Passo - Conexão e envio ao GMail.

brazilsalesforceeffectiveness@gmail.com