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”) = 465
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”) = “eu@andafter.org”
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@andafter.org>”
objCDOSYSMail.Subject = “And After – Newsletter Junho”
objCDOSYSMail.HtmlBody = email
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing