(Resolvido) Problema com o CDOSys

[marceloths]

Desenvolvi um sistema de newsletter para enviar as notícias através de e-mail para os visitantes cadastrados.

O problema que eu notei que o CDOSys só está aceitando enviar para os e-mails do domínio camarasantarita.sp.gov.br , veja o código completo abaixo:

Do While RSNewsletter.EOF = False
            Anexo = "<br>Data e hora de envio deste e-mail: " & Data & " - " & Hora & "<br>"
            Nome = RSNewsletter("nome")
            Email = RSNewsletter("email")
            Corpo = "Testando"
            set EnviarMail =  Server.CreateObject("CDO.Message")    
            set EnviarMailConf = Server.CreateObject ("CDO.Configuration")
            EnviarMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.camarasantarita.sp.gov.br"
            EnviarMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            EnviarMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            EnviarMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
            EnviarMailConf.Fields.update
            EnviarMail.Configuration = EnviarMailConf
            [b]EnviarMail.From = "comunicacao@camarasantarita.sp.gov.br"
            EnviarMail.To = "webmaster@camarasantarita.sp.gov.br"[/b]
            EnviarMail.Subject = Assunto
            EnviarMail.HtmlBody = Corpo
            EnviarMailConf.Fields.update
            EnviarMail.Send
            On Error Resume Next
            RSNewsletter.Movenext
        Loop
        
        Set EnviarMail = Nothing
        Set EnviarMailConf = Nothing

Uma observação quando eu altero a parte do código acima para: (Não funciona)

EnviarMail.From = "comunicacao@camarasantarita.sp.gov.br"
        EnviarMail.To = RSNewsletter("email")

ou simplesmente (não funciona):

EnviarMail.From = "comunicacao@camarasantarita.sp.gov.br"
        EnviarMail.To = "marceloths@bol.com.br"

Já não funciona mais, pois na lista de e-mails encontra-se vários e-mails de outros domínios como: bol.com.br, terra.com.br , hotmail.com

Esses e-mails com domínio diferente do camarasantarita.sp.gov.br não funciona e ocorre o seguinte erro:

error '8004020f'

/admin/newsletter-enviar.asp, line 52

A linha 52 fica o comando: EnviarMail.Send

Existe uma configuração para aceitar enviar newsletter para e-mails de outros domínios? E como solucionar esse problema?

Atenciosamente,

Marcelo.

[Rafael Spilki]

você deve autenticar o SMTP para envio para servidores externos.

Procure por "cdo.sys com smtp autenticado" no google que com certeza tu acha.

[]'s

[marceloths]

Muito obrigado Rafael, é aquilo (SMTP Autenticado) mesmo que você falou.

Você resolveu o meu problema.

Atenciosamente,

Marcelo.