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

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

O objetivo de desenvolver esse projeto, compartilhando parte de um código que utilizo a muitos anos, envolve basicamente três aspectos:

1º Compartilhar uma técnica simples e eficiente de envio de e-mails sem problemas com a versão do MS Office, MS Excel ou com a necessidade de ter instalado o MS Outlook, com todos os seus problemas de envio de anexos e tamanho da mensagem. Essa técnica nos libera de tudo isso.

2º Empedí-lo de contratar um serviço de envio de e-Mails disponíveis gratuitamente na Internet, o que tornaria necessário você disponibilizar sua lista de e-Mails sabe lá com quem e em qual servido ao redor do mundo.

3º Permitir que você, de fato, tenha total controle dos seus envios, retornos, problemas, necessidade de higienização dos dados e controle do processo, certificando-se em não fazer SPAM aproveitando-se do método para validar todos seus dados, excluindo e corrigindo aqueles e-Mails que apresentarem problemas, correções e | ou atualizações.

3º Passo
Essa função checará os endereços de e-Mails que usaremos:

Function ValidateEmails (nAddress As String) As Boolean

Dim oRegEx As Object

Set oRegEx = CreateObject("VBScript.RegExp")

With oRegEx

Let .Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$"

Let ValidEmail = .Test(nAddress)

End With

Set oRegEx = Nothing

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: