Erro 8004020f com CDOSYS

[Adriano Moura 0]

Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
objCDOSYSCon.Fields.update 
Set objCDOSYSMail.Configuration = objCDOSYSCon 
objCDOSYSMail.From = sNome & "<" & sEmail & ">"
objCDOSYSMail.To = sDestinatario
objCDOSYSMail.Bcc = sDestinatarioOculto
objCDOSYSMail.Subject = sAssunto
objCDOSYSMail.HtmlBody = strBody
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing

trata-se de uma pagina de contato, porém retorna sempre esse erro 8004020f mas não da descrição. Como posso testar.

 

Valeu

[Vinicius Ianni 189]

espero que ingles não seja problema:

http://classicasp.aspfaq.com/email/why-does-cdo-message-give-me-8004020f-errors.html

[rockysp 0]

Se o problema for o inglês, segue o tutorial em português.

 

http://wiki.locaweb.com.br/pt-br/Cdosys

[xanburzum 169]

verifique se o smtpserver esta correto...