Error al enviar mail con CDO, que hago mal?

[@padawan@]

Tengo un server win 2003 R2 y antes tenia un win 2000 con lo que en mis script de envio de emails usaba siempre el componente cdonts, ahora con win 2003 debo usar el cdo pero haga lo que haga el script no me anda, les dejo el codigo que tengo:

Código:

Sub Mail(sFrom,sTo,sCC,sSubject,sBody)

Set miMail = Server.CreateObject("CDO.Message")
	
Set Config = Server.createObject ("CDO.Configuration")
With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "11.111.11.11(IP) ó nombre de server"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With

Set miMail.Configuration = Config


 
	
	miMail.From = sFrom
	miMail.To = sTo
	
	IF sCC<> "" then   miMail.cc = sCC
	
	miMail.Subject = sSubject
	
	miMail.HTMLBody = miBody
	
	miMail.Send
	
	Set miMail = Nothing

End sub

Cuando uso esta funcion me tira un error como este:

CDO.Message.1 error '80040213'

The transport failed to connect to the server.

La verdad probe un montond de codigos que saque de la web, son todos parecidos y me parecen que todos hacen lo mismo, pero ninguno me anduvo, no se que puede ser, o si debo hacer otra cosa.

Tambien probe con este otro codigo, que a muchos les anduvo pero a mi no me anduvo para nada.
me tira el mismo error:

Sub Mail(sFrom,sTo,sCC,sSubject,sBody)

Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "74.86.231.141"
.Update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = sFrom
.To = sTo
.Subject = sSubject
.TextBody = sBody
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing

End sub

[Shiryu_Libra]

comparalo con este otro codigo, es similar CDO.Message del Dark Master(U_G)

[luisvasquez]

Aca hay una función que uso y me funciona sin problemas:

Código:

<%
Function envia_correo(fromName,from,rcpt,subject,body,html)

Dim objMail'Crea el objeto mail
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = FromName&"<"&From&">"
objMail.To = rcpt
objMail.Subject= Subject
If html = "Y" then
   objMail.HTMLBody = Cstr(Body)
Else
   objMail.TextBody = Cstr(Body)
End if


'Envía el correo
objMail.Send
if err <> 0 then
   response.Write("  ERROR:"&err.description&"   codigo:"&err)
end if

    
'limpia el objeto mail 
Set objMail = Nothing

 
end Function
%>

Y la forma de llamar la función:

Código:

<%
email_usuario = "[email protected]"
cuerpo        = "Esto es una prueba de envío de correo con CDO"
call envia_correo("Tu empresa", "[email protected]", email_usuario, "Titulo del email", cuerpo, "N")

'OJO : Si la variable cuerpo lleva código HTML entonces el último parametro de la función es "Y"

%>

Espero que te sirva...

Saludos,
Luis

[@padawan@]

Me tira un error:

"Microsoft VBScript runtime error '800a01f5'

Illegal assignment: 'mail' "

En esta linea:

Set mail = New SimpleMailSender

es como que esta mal que se instancie de esa manera.
No se.

Iniciado por Shiryu_Libra

comparalo con este otro codigo, es similar CDO.Message del Dark Master(U_G)