✔ Programação GLOBAL®: VBA Excel - GMAIL - Enviando 10.000 e-Mails

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: