lizardbr

é amigo, se seu server é 2003, vc tem que usar o CDOSYS e nao o CDONTS, tá igual eu trocando tudo de cdonts, também tenho o indique que quando envio nao chega nada

deve ser igual ao meu caso, vc tem que usar o CDOSYS em vez de CDONTS, que entrou no lugar do mesmo, CDONTS ja era, servidores 2003 só usam o CDOSYS, eu usava o aspmail, o script rolava blz mas nao chegava nada de emails, depois usei cdonts e também nada, e o erro era pq tinha que ser o CDOSYS mesmo, que até agora não resolvi hehehe @#%@#*&*$#

posta a parte em que vc cria o objeto ate ai...

 

'Cria os Componentes de Envio e de Configuração
set objCDOSYSMail = Server.CreateObject("CDO.Message")
set objCDOSYSCon = Server.CreateObject("CDO.Configuration")
'Enviar via porta (não através de Pickup Diretory
objCDOSYSCon.Fields("http://schemas.micro...tion/sendusing") = 2
'Colocar o SMTP para enviar e-mail
objCDOSYSCon.Fields("http://schemas.micro...ion/smtpserver") = "smtp.xyz.com.br"
'Porta SMTP usada
objCDOSYSCon.Fields("http://schemas.micro...smtpserverport") = 25
'Remetente
objCDOSYSCon.Fields("http://schemas.micro...ndemailaddress") = VarSeuNome & "<" & VarSeuEmail & ">"

objCDOSYSCon.Fields.update
set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.Subject = SubjectIndique
objCDOSYSMail.HTMLBody = Corpo
objCDOSYSMail.To = VarNomePara & "<" & VarEmailPara & ">"
objCDOSYSMail.Send
set objCDOSYSMail = Nothing
set objCDOSYSCon = Nothing
else

ja vi este link, o problema que não estou conseguindo adapta-lo ao meu, estou procurando para ver se não encontro algum parecido que ja usa CDOSYS

isso mesmo amigo, é CDOSYS, eu duvido que a hostnet ligaria para rodar CDONTS