urgente! problema con CDO

[nivola69]

Hola,
Primero que nada decir que mes estoy volviendo loco con este objeto es que no hay manera de hacerlo funcionar, he probado todo, yo antes usaba el de persits y me iba mas o menos bien, un poco lento pero iba, resulta que ahora me he cambiado a los servidores de goddady (americanos) y alli solo se puede poner cdo o cdonts.
mi dominio es pielnatur.com y tambien he contratado correo para mi dominio.

he probado:

<%
Dim Mail
set Mail=server.createobject("CDO.Message")
Mail.From = "[email protected]"
Mail.To= "[email protected]"
Mail.Subject = "test email"
Mail.TextBody = "<h1>test</h1>"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") =2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.pielnatur.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
Mail.Configuration.Fields.Update
Mail.Send
set Mail=nothing
%>

y me da este error:

CDO.Message.1 error '80040213'

The transport failed to connect to the server.

/mail.asp, line 13

y esto:

<%
Dim Mail
set Mail=server.createobject("CDO.Message")
Mail.From = "[email protected]"
Mail.To= "[email protected]"
Mail.Subject = "test email"
Mail.TextBody = "<h1>test</h1>"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") =2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.pielnatur.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="[email protected]"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="*****"
Mail.Configuration.Fields.Update
Mail.Send
set Mail=nothing
%>


y me da el mismo error

lo he probado con servidores de yahoo, gmail, hotmail no hay manera, y mil maneras mas de codigo que no pongo por no hacer extenso esto, que hagooooooooooooooooooooooo?????? putos de microsoft.

[Shiryu_Libra]

primero que nada, tranquilidad

ahora, antes de probar tanto codigos, manda un correo al servicio del hosting para te la guia de envio, enviales tu codigo, y mencionales que tienes contratado el servicio de envios de correo

si tu codigo esta correcto, entonces simplemente no te han dado de alta en el servicio de correos



y como dice Guns And Roses
Patiente (paciencia)

[nivola69]

Tengo configurado en el outlook las cuentas de correo y funcionan perfectamente, envian y reciven, el problema es el hosting que tengo con ellos que no me envia los mails, he probado mi cosas, he ido a mi foros, y me se las dieferentes maneras de codigo, me pongo en contacto con ellos y me dice que cosas relacionadas con código no solucionan nada.
tu me diras no se.

[rcalle66]

Iniciado por nivola69

putos de microsoft.

Qué culpa tienen ellos en tu problema??, sólo la empresa de hosting puede ayudarte a solucionar el problema

Tienen instalado algún otro activex para enviar emails?

[server-68]

Pero cuales la linea 13?
Ademàs....


Que pasas si testeas esto?

dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "[email protected]"
objCDOMail.To= "[email protected]"
objCDOMail.Subject = "test email"
HTML = "<br><br>TEST"
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body= HTML
objCDOMail.Send
Set objCDOMail = Nothing

En el sitio de godaddy aparece este script de ejemplo que funciona en sus servidores:

<%
from = request.form("from")
body = request.form("body")
subject = request.form("subject")
%>

<%
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = from
objMail.Subject = subject
objMail.To = "hard-code your email address"
objMail.Body = body
objMail.Send

Set objMail = Nothing
Response.redirect "thankyou.asp" '<- auto-redirection
'You must always do this with CDONTS.
'Change the page name to one that exists on your site.
%>

[Uru8024]

Hola, tengo un sitio en godaddy en el cual envio mails y te diria que pruebes de cambiar el puerto 25 por el 80.
Ya que estoy de paso les comento que no anda muy bien, puede que sea mi codigo pero no me da error ni nada, el problema que tengo es que a algunos de mis usuarios les llega el mail y a otros no, si tienen alguna idea de que puede ser mi problema les estoy agradecido.
Desde ya gracias y espero que soluciones tu problema!!!

[Julcar]

Iniciado por nivola69

putos de microsoft.

Por eso es que pocos somos los sabios que conocemos a fondo a microsoft.

sobre el tema, veo un error, no has abierto la libreria.

<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-0004FB1625D"
NAME="CDO for Windows 2000 Library"
-->

y con eso otorgas premiso al CDO para usar el SMTP