Envio de e-mail (CDOSYS), mas usando o Google Apps

[zrageburn 0]

Bom dia,

 

Estou para fazer uma migração de hospedagem para do Hotel da Web para a UOL Host e estou para sugerir que o cliente utilize o Google Apps.

 

A questão é, para envio de e-mails (UOL Host), vou utilizar o CDOSYS (que necessita de autenticação), porém, estou meio na dúvida... Quais seriam as configurações necessárias para utilizar o Google Apps... Alguém teria algum exemplo?

 

Agradeço desde já.

 

Abs

[xanburzum 169]

é 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") = "eu@teste .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 teste "
objCDOSYSMail.To = "Nome <email@teste .org>"
objCDOSYSMail.Subject = "teste - Newsletter "
objCDOSYSMail.HtmlBody = email
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 

 

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:

 

news1@andafter.org

news2@andafter.org

news3@andafter.org

news4@andafter.org

 

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.

[zrageburn 0]

Desculpe a demora em retornar, é que a migração acabou sendo cancelada e devido às outras prioridades acabei não retornando ao fórum tão rapidamente... hehe.

 

Mas de qualquer forma, muito obrigado pelo código... Vou deixar guardado.

 

Abs

 

Obs.: Tentei enviar mensagem pra você, mas o sistema gritou "O membro xanburzum não pode receber novas mensagens", hehe

[xanburzum 169]

maravilha, ASPmano...

pode executar o code desta forma que vai tranquilo