Views

Histats

Vitrine

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://4.bp.blogspot.com/-8RXbRo540O4/WAYN3aG_xOI/AAAAAAAAHLY/tDcUnP3jtNIuj37Rj8AORVRZHn1cLhHkQCLcB/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:

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


brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®✔ Brazil SFE®´s Facebook´s Profile  Google+   Author´s Professional Profile  ✔ Brazil SFE®´s Pinterest       ✔ Brazil SFE®´s Tweets

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias