saber si tiene el CDOsys el servidor

[akela]

Saludos Amigos:

me he leido ya muchos posts para el envío de correo electrónico por medio de ASP, he utilizado este código, que dice Muzztein que funciona siempre, pero ya tengo la aplicación corriendo en el server y no manda ningún correo.

como puedo saber si ese server tiene instaldo el compoente, y de no tenerlo, podría utilizar un servidor externo para enviar el correo electrónico??

saludos y gracias.

[Muzztein]

holas...

de esta manera puedes saber si tu server soporta o no CDO

dim objCDO,objCDOConfig,objFields
Set objCDO = CreateObject("CDO.Message")
Set objCDOConfig = CreateObject("CDO.Configuration")
response.write isobject(objCDO)
response.write isobject(objCDOConfig)

de todas maneras , comenta el on error resume next y ve que error te arroja.

[akela]

He probado el código que has puesto y me regresa el valor "true true" por lo que deduzco que tiene lo necesario para mandar correos.

ahora en el siguiente código:

Código PHP:

  function enviaEmail(para,cc,desde,asunto,mensaje,servidor) 
* * on error resume next 
* 
* * enviaEmail = false 
* *  
* * dim objCDO,objCDOConfig,objFields 
* * Set objCDO * * *= CreateObject("CDO.Message") 
* * Set objCDOConfig *= CreateObject("CDO.Configuration") 
* * Set objFields * *= objCDOConfig.Fields 
* * * *  
* * With objFields 
* * * .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = servidor 
* * * .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
* * * .Item("http://schemas.microsoft.com/cdo/configuration/SendUsing") = 2 
* * * .Update 
* * End With 
* *  
* * With objCDO 
* * * .Configuration *= objCDOConfig 
* * * .To * * * * *= para 
* *  
* * if cc <> false then  
* * * .cc * * * * *= cc 
* * end if *  
* *  
* * * .From * * * *= desde 
* * * .Subject * * = asunto 
* * * .TextBody * *= mensaje 
* * * .Send 
* * End With 
* *  
* * Set objFields = Nothing 
* * Set objCDO = Nothing 
* * Set objCDOConfig = Nothing  
* *  
* * if err.number = 0 then 
* * * * enviaEmail = true 
* * else  
* * * * enviaEmail = err.description 
* * end if 
* * on error goto 0 
* 
end function  
   

la variable servidor que valores puede tomar??

puede ser algo asi como "www.dominio.com"? o debe ser una IP? o aulguna otra cosa??

de antemano gracias!

[Adler]

Hola

Se refiere al servido smtp, puedes probar, por ejemplo, con la que te dio tu proveedor de internet

Suerte

[akela]

comentando el on error me tira el siguiente error.

CDO.Message.1 error '80040213'

Error de transporte en la conexión al servidor.

/constancias08/mail.asp, línea 29

creo que mi problema es la dirección del servidor para poder enviar correos

sigo investigando.

[Muzztein]

en la variable SERVIDOR debes colocar la direccion IP del servidor SMTP

[akela]

gracias Amigos:

por dedicarle tiempo a este post. he probado ya varias cosas y no consigo enviar el correo electrónico. espero no parecer el mono de este post :) jejeje

ya he probado varias cosasa y el error que me tira es el siguiente:

error '80040211'

/constancias08/mail.asp, línea 29


ya he leído que se puede relacionar tanto con el usuario y password como que el antivirus esté bloqueando la salida del correo, ya chequé y el antivirus no está bloqueando nada (mcafee) y pues no hay cuentas de correo en ese servidor

por lo que ya no se que más probar, preguntaba hace rato si puedo hacer uso de otro servidor SMTP externo, para enviar el correo desde el servidor web. através de las ASP (en el último de los casos uso hotmail) :P

saludos y gracias

[Muzztein]

cual es la linea 29?

utiliza el
response.write err.description
para saber que error es el que arroja.

[robpar]

La solución es facil.Yo tenía el mism problema y era que estaba usando una configuracion de las cuentas de correo sin conexion segura SSL.
Si añades estas dos lineas puede que soluciones el problema.Yo le solucione:
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 'puerto de servidor SMTP
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
Si con esto te sigue falando ponle la propiedad false a rue y el puerto el 465.
Te puedo enviar todo el codigo correcto si lo necesitas.

[u_goldman]

Seguramente despues de 4 años lo habrá podido resolver.

Por favor no revivir temas viejos.