Erro 8004020f com CDOSYS

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