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

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

Antes que alguém apresente alguma dúvida sobre a utilização de e-Mails, gostaria de dizer: Os e-Mails estão aqui para ficar.

Mais de 20.5 bi e-Mails são enviados todos os dias, e isso é crescente. No local de trabalho, tem sido um burro de carga incansável. Faz todo o trabalho pesado para tudo, desde o gerenciamento de projetos até a edição de documentos.
Uma área em que e-Mails possa estar diminuindo o uso é conversa, pelo menos para a geração do milênio.

Os aplicativos de mensagens instantâneas como o WhatsApp, Snapchat e WeChat provaram-se superiores ao antigo padrão de comunicação pessoal; enquanto o Slack e Hipchat estão em primeiro lugar no que diz respeito a mensagens entre equipes.

Uma área em que o e-Mail é imbatível - transferência de arquivo. O e-Mail é usado em todas as organizações, em todo o mundo, e através das gerações, e em todos os sistemas (qualquer dispositivo, qualquer sistema operacional).

O e-Mail é a língua comum de comunicação na Internet.
Nada poderá bater o e-Mail. Nada é tão fácil, familiar e flexível para enviar arquivos do que um e-Mail, em qualquer lugar e em qualquer dispositivo. Agora, é verdade que os problemas com os e-Mails vêm depois da feita a transferência.

E o que desejamos nesta altura do nosso projeto de envio de e-Mail através de uma planilha MS Excel, é torná-lo totalmente acessível.

4º Passo
Lembre-se de que, em cada conta de e-Mail, efetuaremos 5 envios com aproximadamente 100 e-Mails. Sim, aproximadamente porque a lista será validada durante o processo, e certamente apresentará alguns e-Mails problemáticos que não serão inseridos nos blocos de envio pelo GMail.

Com o intuito de darmos um tempo ao servidor SMTP do GMail, bem como para a máquina onde a aplicação estiver processando, será relevante inserirmos um intervalo de uns cinco minutos para cada bloco de 100 e-Mails. O código abaixo regulará o nosso intervalo:

Sub LapseTime (Finish As Integer)

Let newHour = Hour(Now())

Let newMinute = Minute(Now())

Let newSecond = Second(Now()) + Finish

Let waitTime = TimeSerial(newHour, newMinute, newSecond)

Application.Wait waitTime

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: