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

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

As pessoas preferem usar e-Mails para as comunicações comerciais. Por exemplo, 81% dos compradores on-line americanos estão propensos a fazer compras adicionais, seja online ou em uma loja, como resultado de e-Mails resultantes de análises de Inteligência Competitiva baseada nos comportamentos de compras e preferências anteriores. - Harris Interactive

72% dos consumidores dizem que o e-Mail é sua principal forma de comunicação com as empresas que fazem negócios. 61% dos consumidores dizem gostar de receber e-Mails promocionais semanais e 28% desejariam recebê-los com mais frequência. - MarketingSherpa (2015)

66% dos consumidores já fizeram uma compra on-line como um resultado direto de uma mensagem de e-Mails Marketing - Direct Marketing Association (2013)

Um em cada cinco (19%) consumidores diz ler cada e-Mail que recebe apenas para ver se há qualquer coisa em oferta. - Levantamento technographics norte-americano Forrester Research (2014)

Em 2014 os consumidores eliminaram menos e-Mails promocionais, sem olhar. Uma diminuição de 25,4% em relação a 2010. - Forrester Research - Survey technographics norte-americana (2014)

Este é o Informações como estas me levaram a disponibilizar esse projeto que lhe permite enviar e controlar 100% da sua abordagem com os seus clientes, simplesmente através de uma planilha MS Excel. Nesse passo terá acesso a função que promove a automação do projeto, controlando quantos e-Mails são enviados e por que contas do GMail.

7º Passo

O código a seguir será responsável pelo controle das contas do GMail, bem como pelo número de e-Mails enviados em cada uma delas.

Com alterações bem simples, um número maior de contas pode ser inserido para o processamento.

Sub AUTOMATOSENDER()
    Dim i As Integer, j As Integer, k As Integer
    
    Dim whenwait As Integer, whenhundred As Integer
    Dim bulkmails As String
    Dim nVezes As Integer
    Dim nSourceMail01 As String
    Dim nSourceMail02 As String
    Dim nSourceMail03 As String
    Dim nSourceMail04 As String
    Dim nSourceMail05 As String
    
    Let Application.ScreenUpdating = False

    Let j = 18
    Let k = 6
    Let nSourceMail01 = "MarketingProspect001@gmail.com"
    Let nSourceMail02 = "MarketingProspect002@gmail.com"
    Let nSourceMail03 = "MarketingProspect003@gmail.com"
    Let nSourceMail04 = "MarketingProspect004@gmail.com"

    For i = 12 To 10000        ' Inicia na linha 12 e busca por ocorrências até a linha 10 mil.
        If ValidateEmails(Worksheets(1).Cells(i, j).Value) And Worksheets(1).Cells(i, k).Value <> "x" And Worksheets(1).Cells(i, k).Value <> "Erro" Then
            Let Worksheets(1).Cells(i, k).Value = "x"

            Let whenwait = whenwait + 1

            If whenwait < 50 Then
    
                Let bulkmails = bulkmails & ", " & Worksheets(1).Cells(i, j).Value
            Else
                Let nVezes = nVezes + 1     ' Possibilita o envio diário limite de 500 emails por conta do gmail.
                Let whenwait = 0

                If nVezes <= 10 Then
                    Call SND_CDO_GMail ("inanyplace@gmail.com" & bulkmails, nSourceMail01)    ' Envia para os endereços!
                ElseIf nVezes > 10 And nVezes <= 20 Then
                    Call SND_CDO_GMail ("inanyplace@gmail.com" & bulkmails, nSourceMail02)    ' Envia para os endereços!
                ElseIf nVezes > 20 And nVezes <= 25 Then
                    Call SND_CDO_GMail ("inanyplace@gmail.com" & bulkmails, nSourceMail03)    ' Envia para os endereços!
                ElseIf nVezes > 25 And nVezes <= 30 Then
                    Call SND_CDO_GMail ("inanyplace@gmail.com" & bulkmails, nSourceMail04)    ' Envia para os endereços!
                Else
                    Exit For    ' Sai do loop e encerra o envio.
                End If

                Let bulkmails = ""

                LapseTime (10)  ' 1 Minuto
            End If
        Else

            Let Worksheets(1).Cells(i, k).Value = "Erro"   'eMails com problema no endereço.
        End If

    Next

    Let Application.ScreenUpdating = True

End Sub



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