Enviando e-mail em ASP (CDO) utilizando o Google Apps

Desde que migrei para o novo servidor que estou gerenciando optei por fornecer os benefícios do Google Apps para todos os meus clientes, principalmente pela poderosa ferramente de e-mail (Gmail) que de longe é o melhor sistema de webmail que eu já testei.

Como resolvi utilizar este como único servidor de e-mails, tive que fazer alterações nos scripts de envio de e-mail, newsletter, contato, etc. dos sites dos clientes, como demorei um pouco para descobrir porque não estava funcionando acho que este pode ajudar quem está com o mesmo problema.

 

Enviando e-mail em ASP utilizando o Google Apps

Muito bem, é um script simples mas que me tomou algum tempo pois eu havia esquecido de habilitar o SSL. Não esqueça de usar um e-mail do seu domínio como remetente, criar a conta de e-mail (cerifique logando no webmail) e habilitar o uso de SMTP pelo painel do Google Apps.

Feito isso, é só utilizar o código abaixo alterando apenas as configurações para sua conta.

 

 
Dim objCDOSYSMail

Dim objCDOSYSCon
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

"Aqui estava o meu problema: SSL tem que ser TRUE!
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

"o e-mail completo que você utiliza no google apps (não esqueça de habilitar SMTP no painel fo Google apps!
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
 
objCDOSYSCon.Fields.update 
Set objCDOSYSMail.Configuration = objCDOSYSCon
 
objCDOSYSMail.From = "Newsletter And After
objCDOSYSMail.To = "Nome <[email protected]>"
objCDOSYSMail.Subject = "And After - Newsletter Junho"
objCDOSYSMail.HtmlBody = email
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 

 

 

 

Limite de envios

O Google libera o envio de apenas 500 e-mails por conta para evitar o uso indevido do Google Apps, por isso você pode utilizar duas ou mais contas se for necessário o envio de Newsletter assim. Por exemplo, crie as contas:

Assim você pode realizar o disparo de 2.000 mensagens a cada 24h, configurando cada grupo de usuário para ser atendido por uma conta de e-mail. :)

 

 

Espero que ajude, para o envio em PHP também é necessário habilitar o SSL (óbvio...) mas não vou me arriscar no código, se alguém quiser compartilhar publique-o no And After :)

Ir para o topo