error con CDO.Message.....smtp desactivado?

[haven]

Hola muy buenas, tengo un problema con el envio de un formulario. En mi servidor como trabajamos con w2000 e utilizado el CDONTS, pero ahora lo hemos migrado a un w2003 con asp.net y no e logrado que funcione aun pasandolo a CDO, a lo primero me daba este fallo:

CDO.Message.1 error '80040220'
No es válido el valor de configuración "SendUsing".
/correo/contacto.asp, línea 172

la linea 172 es justamente el send, el codigo es este:

Set objCDOSYSMail = CreateObject("CDO.Message")
objCDOSYSMail.To = strSendTo
objCDOSYSMail.From = strFrom
objCDOSYSMail.Subject = "formulario de envio"
objCDOSYSMail.HTMLBody = strHTML
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing

Despues de buscar por los foros y por google e pasado a poner esto:


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


'Out going SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.miserver.es"
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") = 60

objCDOSYSCon.Fields.Update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.To = strSendTo
objCDOSYSMail.From = strFrom
objCDOSYSMail.Subject = "formulario web"
objCDOSYSMail.HTMLBody = strHTML
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

pero ahora me da este error

error '8004020f'
/correo/contacto.asp, línea 179

y esa linea sigue siendo el send

, eso que puede ser, que el servidor smtp de máquina está desactivado????? o no configurado?? o que puede ser?

Un saludo

[trasgukabi]

-O ese SMTP no acepta relay(podrías solucionarlo poniendo en el .from una dirección de correo del mismo dominio)
-O ese SMTP no existe/no está configurado
-O la secuencia de asignación de valores a los campos de configuración está mal hecha, ya que la línea lógica sería
.especificamos que lo vamos a mandar por un SMTP ajeno(aquí prepara los campos smtpserver y smtpserverport para ser usados. Si decimos sendusing=1 el servidor es localhost y éstos no se usan)
.especificamos el SMTP
.especificamos el puerto


pueden pasar más cosas, pero con poner el numero de error en google te van a faltar horas para leer todo lo que te va a salir.

será verdad esto que he escrito?

[haven]

hola trasgukabi, lo primero gracias por responder.
e estado probando mas soluciones y comentarte que en principio el smtp de esa máquina parece funcionar ya que es los correos que se envian de esa empresa llegan sin problemas y un antiguo formulario que tienen también les funciona bien, pero no me dejan ver ese formulario, lástima se podrían solucionar muchas cosas. me han comentado que utilice en vez del mail.empresa.com el numero ip que me han pasado por lo que e probado de esta forma:

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

strSendTo = "[email protected]"
strFrom = "[email protected]"
objCDOSYSMail.To = strSendTo
objCDOSYSMail.From = strFrom
objCDOSYSMail.Subject = strName & " - " & strSubject
objCDOSYSMail.HTMLBody = strHTML

'Out going SMTP server
objCDOSYSMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objCDOSYSMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "165.125.80.28"
objCDOSYSMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
objCDOSYSMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSMail.Configuration.Fields.Update

objCDOSYSMail.Send

Pero me vuelve a salir un error:

CDO.Message.1 error '80040222'

Es necesaria la ruta de acceso del directorio de recogida, pero no se especificó.

/correo/contacto.asp, línea 172

Comentar que para estar seguro de que esta el componente CDO instalado y hacer pruebas e utilizado el código de PensaWorks, el Mailer component text y me dice que si esta instalado pero al hacer las pruebas con este mismo código me da también error, la verdad es que esto no me había pasado nunca,

Un saludo

[trasgukabi]

a ver aver. es que tienes un error de concepto. si especificas sendusing=1 no te hace falta poner servidor SMTP (tienes que tener uno en local)

[haven]

Hola muy buenas, haber veamos que me aclare, je, o se, que no hace falta que ponga el servidor smtp? entonces esa linea la quito directamente, es que eso de tenerlo en local no lo entiendo.

E mirado el error que me sale en la página del MSDN, en la direccion que tienes en tu firma y pone esto?

CDO_E_NO_PICKUP_DIR 0x80040222L The pickup directory path is required and was not specified.

que es el error de "Es necesaria la ruta de acceso del directorio de recogida, pero no se especificó." pero no se, ni idea de que significa esto, le tengo que poner alguna ruta??, juer que raro

Un saludo

[trasgukabi]

no necesitas poner el servidor SMTP porque se ASUME que tienes uno instalado en local....imagina lo que viene después....

[haven]

Hola muy buenas, bueno parece que ya todo funciona perfectamente gracias, e utilizado lo qeu pone en esta web:

http://www.aspfaq.com/show.asp?id=2305


En particular este código:

<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->
<%
Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "<enter_mail.server_here>"
.Update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = "[email protected]"
.To = "[email protected]"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>

Y por ahora la cosa parece que funciona,

Un saludo

[Gaby_Corr]

hola, he tenido problemas con los codigos que he encontrado y con el q has puesto haven ami no me funciona y me marca este error:

Error Type:
CDO.Message.1 (0x80040213)
The transport failed to connect to the server.


pero es q me han comentado q en la linea .Item(cdoSMTPServer) = "<enter_mail.server_here>" debe ir el nombre del servidor, pero como lo estoy haciendo de manera local, me dijeron q pusiera el nombre de mi makina pero ni asi, me funciona, tengo wind xp pro y el IIS 5.1 y tengo todo de manera local

q puede ser ??

[javierobick]

Hola Gaby_Corr

Acabo de solucionar mis problemas con el envío de mails de asp (no aspx) y gracias ha toda la información de este hilo.

No se si ya lo has solucionado, pero te remito link original (el de aspfac.com) donde, aunque en inglés, te ponen el código y los posibles problemas que te puedan aparecer (ya que el código está bien) y como solucionarlos

Lo que tienes que entender de todo esto son las dos lineas de configuración del objeto <CDO.Configuration>. Una es para indicar el método de envío o quien se va a encarga de enivarlos, si ponemos 1 (uno) no hay que especificar la segunda, ya que el servidor es la propia máquina donde reside el IIS, si se pone 2 entonces si tenemos que especificar la ip o máquina externa (puede ser de la misma red/lan o de internet) que se haga cargo del mail que queremos enviar.

Nada mas, a mi la única pega es que dependiendo de que dirección usea como destinatario me tarda mas o menos, pero eso ya no es del código, si no del servidor que tiene las cuentas destinatarioas, que tarda mas en recibir/enviar los mails.

Saludos y muchas gracias por la información aquí mostrada.

[wfabianbl]

Iniciado por Gaby_Corr

hola, he tenido problemas con los codigos que he encontrado y con el q has puesto haven ami no me funciona y me marca este error:

Error Type:
CDO.Message.1 (0x80040213)
The transport failed to connect to the server.


pero es q me han comentado q en la linea .Item(cdoSMTPServer) = "<enter_mail.server_here>" debe ir el nombre del servidor, pero como lo estoy haciendo de manera local, me dijeron q pusiera el nombre de mi makina pero ni asi, me funciona, tengo wind xp pro y el IIS 5.1 y tengo todo de manera local

q puede ser ??

tenés que poner así:

.Item(cdoSMTPServer) = "localhost"

[Mafezu]

Mil gracias, lo utilice y me funciona, lo unico que necesito colocar varias
lineas de texto del correo y no me lo permite. me puedes ayudar. gracias

[Shiryu_Libra]

para agregar mas lineas....

contenido= "This is a test for CDO.message"
contenido=contenido & "here some more lines about it"
contenido=contenido & "need more???"
contenido=contenido & "let's make a table"
contenido=contenido & "<table><tr>"
contenido=contenido & "</td>one cell in this table</td>"
contenido=contenido & "</tr></table>"
contenido=contenido & "what about a link?? can you do it??"
contenido=contenido & "<a href=www.forosdelweb.com>Foros Del Web 2007</a>"

.TextBody = contenido

suerte

[issac]

Hola que tal...

Yo aun tengo problemas con el envio de correos y con ASP, me podrían ayudar, por favor? - gracias

Este es el codigo de la pagina asp:

Dim Mail, Config
Set Mail = Server.createObject("CDO.Message")
Set Config = Server.createObject ("CDO.Configuration")
With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '2 originalmente con 1 no secesitas smtpserver
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
Set Mail.Configuration = Config
Mail.From = "[email protected]"
Mail.To = Request.Form("email")
Mail.Subject = Request.Form("asunto")
Mail.HTMLBody = Request.Form("mensaje")
Mail.Send()

La pagina menciona el siguiente error:

CDO.Message.1 (0x80040213)
The transport failed to connect to the server

Trate de configurar el Default SMTP Virtual Server haciendo:
Clic derecho en Default SMTP Virtual Server | IP address (maquina local)
Enable logging
pestaña Acces | Relay: Add.. (IP address (maquina local)

Pero no obtengo respuesta...

Gracias y saludos!

[Shiryu_Libra]

intenta con el nombre del equipo o direccion IP en esta parte

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

[dennis_vidol]

Estoy utilizando CDO.Message en pagina asp NO SALE ERROR pero no Manda el correo
A que se debe esto.

gracias.

[monkyta]

Lean respuesta que envie en otro correo con estos mismos problemas.. ahi puse la solucion