Problema Com Cdosys

[Curry]

Estou utilizando CDOSYS no servidor do Terra e ocorre o seguinte erro:

CDO.Message.1 error '80040213'

The transport failed to connect to the server.

/artsluvas/utils.asp, line 51 >> sendmail.send

SENDMAIL.ASP

<!-- #include file="utils.asp" -->

<%

if request.querystring("snd")<> "" then
        MailArray="seguimento,empresa,cnpj_cpf,nome,telefone,fax,email,site,end,bairro,cep,cidade,uf" 
        MailSubject="Contato pelo site - Cadastro"
    else
end if
if request.querystring("snd2")<> "" then
        MailArray="nome,empresa,email,telefone,mensagem" 
        MailSubject="Cadastro pelo site - Atendimento"
    else
end if

vet=split(MailArray,",")

strHtml="<table>"
for a=0 to ubound(vet)
strHTML = strHTML & "<tr><td><b>" & vet(a) & "</b></td><td>" & request.form(vet(a)) & "</td></tr>"
next

strHTML=strHTML & "</table>"

SendMail mailCliente,mailTo,MailSubject,strHTML

response.redirect("msg.asp?msg=Solicitação enviada")
%>

UTILS.ASP

<% 
mailCliente = "zzzzz@zzz.com.br"
mailing = "zzzz@zzz.com.br"

Function rKeyGen(Digits)

    Dim i, j, UB
    Dim Temp
    Dim Poss(62) ' This is our array of possible characters

    j = 0    
    
    For i = 48 To 57
        Poss(j) = Chr(i)
        j = j + 1
    Next

    For i = 65 To 90
        Poss(j) = Chr(i)
        j = j + 1
    Next

    Temp = ""
    UB = 35 
    
    For i = 1 To Digits
        Randomize
        Temp = Temp & Poss(Int((UB - 0 + 1) * Rnd + 0))
    Next
    
    rKeyGen = Temp
End Function


sub SendMail(mailFrom,mailTo,mailSubject,mailBody)

    Set objCDOSYSMail = Server.CreateObject("CDO.Message")

    Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
        objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.zzzzz.com.br"
        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 = mailCliente
        objCDOSYSMail.To = mail
        objCDOSYSMail.Subject = mailSubject
        objCDOSYSMail.HtmlBody = strHTML
        objCDOSYSMail.Send 

    Set objCDOSYSMail = Nothing 
    Set objCDOSYSCon = Nothing 

end sub
%>

Procurei na net e diz que o email de envio tem que ser do próprio servidor, mas mesmo assim não deu certo...

[bareta]

você tem que informar o smtp correto usuario smtp e senha smtp...

[Curry]

Cara, eu só num coloquei isso no ar porque é de cliente, mas os endereços e emails estão certos., verifiquei 3x

[bareta]

<% 
'cria o objeto para o envio de e-mail 
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 

'cria o objeto para configuração do SMTP 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 

'SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dominio.com.br" 

'porta do SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") 
= 25 

'porta do CDO 
objCDOSYSCon.Fields 
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'timeout 
objCDOSYSCon.Fields 
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 

objCDOSYSCon.Fields.update 

'atualiza a configuração do CDOSYS para o envio do e-mail 
Set objCDOSYSMail.Configuration = objCDOSYSCon 

'e-mail do remetente 
objCDOSYSMail.From = "eu@MeuDominio.com.br" 

'e-mail do destinatário 
objCDOSYSMail.To = "destinatario@dominio.com.br" 

'assunto da mensagem 
objCDOSYSMail.Subject = "Teste do CDOSYS" 

'conteúdo da mensagem 
objCDOSYSMail.TextBody = "Teste do componente CDOSYS" 
'para envio da mensagem no formato html altere o TextBody para HtmlBody 
'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS" 

'objCDOSYSMail.fields.update 
'envia o e-mail 
objCDOSYSMail.Send 

'destrói os objetos 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 

response.write "E-mail enviado para destinatario@dominio.com.br ..." 
%>

troque os dados e teste