ASP - Como utilizar CDOSYS

 
Vista:

Como utilizar CDOSYS

Publicado por Denis Raul (1 intervención) el 02/08/2005 16:01:07
Necesito usar CDOSYS para mandar email desde ASP, tengo algunos fragmentos de código pero no me funcionan.
Además deseo saber como debe estar confirurado el server SMTP de windows y si puedo hacer funcionar el CDOSYS con MDaemon.
Saludos
Gracias
denisr
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como utilizar CDOSYS

Publicado por Guillermo Tapia (1 intervención) el 20/08/2005 08:56:32
Yo modifique el siguiente ejemplo para que me funcionara, te recomiendo que lo copies a un editor de texto para que puedas diferenciar entre el código y los comentarios del mismo.

<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

invioA = "postmaster@tuodominio.ext" 'Direccion de correo con que se esta accesando al SMTP (debe ser una direccion valida).

invioDa = "linkbruttocane@technet.it" 'Direccion de correo a enviar el mail.

'------------final de las modificaciones necesarias------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'* creo los objetos cdosys en el servidor y los gestiono
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.tuodominio.ext" 'Aqui se pone el nombre del dominio smtp del servidor de correo
'Cabe mencionar que se debe tener un software de servidor de correo o se debe usar un smtp que tenga el software para enviar el correo
'el windows 2000 server y xp profesional no traen un servidor de correo solo te permiten hacer la salida
'a un servidor de correo como pudiere ser "smtp.prodigy.net.mx", a menos que en su mismo servidor de trabajo
'tengan uno pueden poner su nombre.
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoBasic 'En los siguientes campos se indica que la autenticación sera por ID y clave
Flds(cdoSendUserName) = "postmaster@tuodominio.ext" 'Aqui se debe poner el ID de usuario con que se accesar al servidor de correo
'previamente asignado en el campo del SMTP (recuerde debe ser una direccion valida para el servidor de correos).
Flds(cdoSendPassword) = "TuaPassword" 'Aqui por supuesto va la clave de acceso del id de usuario
'Es preferible que se use de esta manera a menos de que su servidor de correo no requiera
'autenticación por medio de ID y contraseña, en este caso sí se usa un servidor por
'ejemplo smtp.prodigy.net.mx (ISP de prodigy), se debe poner su dirección completa de correo
'y su clave para accesar a su correo como comunmente lo haria al quere revisar su correo.
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA 'Aqui va una dirección de correo valida por el servidor de correo, de preferencia se usa con la que se acceso.
'en los campos anteriores UserName y Password.
.From = Request.Form("email") 'Aqui se pone la dirección de correo a donde se desea enviar el mail.
'.Sender = invioDa 'Este se usa para enviar el mail a esa direccion es posible que les de problemas a mi no me funciono y lo quite.
.Subject = "Contacto desde el dominio" & nomeDominio
.TextBody = "Siguen los datos introducidos en el módulo que se encuentra a la pagína" & modulo & " por usuario con dirección IP " & indirizzoIp & " navegador y sistema operativo" & browserSistemaOperativo & vbCrLf & " End"

.Send 'Por fin se envia el mensaje.
End With
%>

Este ejemplo lo saque de un sitio que explicaba las librerias dll a usar para mandar mensajes y lo modifique para que me funcionara
por respeto al creador del ejemplo pongo el url http://vademecum.aruba.it/start/contatto/contatto_es.htm
pero tambien agrego que no es tan explicito como uno desearia, ya que me desespere muchisimo al
tratar de hacer que funcionara, eso sin mencionar todos los ejemplos que probe de otros sitios y que ninguno explica
el como hacerlo, ya que como lo mencione con anterioridad el Windows 2000 Server y el Windows
XP profesional (que solo se puede tener el CDOSYS si se instala el outlook de office) permiten la salida
por el puerto 25 pero no estan habilitados para poder enviar el correo por si solos, requieren del software
de servidor de correo, en este caso logre que funcionara direccionando el "Flds(cdoSMTPServer)" al nombre del servidor de correos de la empresa
en que trabajo y asi fue como logre que se pudieran enviar mails con el CDOSYS.

Por otra parte debo recordar que no cambie la configuracion de mi SMTP del IIS, deje la que me puso
por default, en caso de que no les funcione el ejemplo, les recomiendo que revisen la configuración del SMTP
de su IIS (entrar al IIS y expandir para ver la seccion servidor virtual SMTP)en este caso algo muy comun es
que en la configuracion de su SMTP en la pestaña de "entrega", en el boton "advanzada", el nombre del dominio
no conincida con el nombre de su maquina (debe ser el mismo nombre), y en el "host inteligente" se agregara el
nombre del servidor que asignen en la variable "Flds(cdoSMTPServer)" del ejemplo anterior.

Espero les sea de utilidad ya que por fin logre que se enviaran mails y tambien espero que mi explicacion logre que
comprendan como se debe usar el CDOSYS.

TecnoHill Systems
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como utilizar CDOSYS

Publicado por drghdf (1 intervención) el 10/03/2006 18:52:53
gfdgfdgdfg
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como utilizar CDOSYS

Publicado por Jusein Quevedo Cabrera (2 intervenciones) el 15/07/2006 20:48:00
el codigo esta bien
pero tengo un pequeño problema como envio un archivo asp desde una ruta de intranet.

reemplanzando el siguiente ejemplo:
mymail.CreateMHTMLBody "http://www.w3schols.com/asp/"

esta linea como lo reemplazo con un archivo asp que esta en mi intranet.

gracias si me pueden ayudar

jusein Quevedo Cabrera
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como utilizar CDOSYS

Publicado por Jusein Quevedo Cabrera (2 intervenciones) el 15/07/2006 20:49:38
el codigo esta bien
pero tengo un pequeño problema como envio un archivo asp desde una ruta de intranet.

reemplanzando el siguiente ejemplo:
mymail.CreateMHTMLBody "http://www.w3schols.com/asp/"

esta linea como lo reemplazo con un archivo asp que esta en mi intranet.

gracias si me pueden ayudar

jusein Quevedo Cabrera

si tuviesen la rpta escribir a direccion electronica adjunta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como utilizar CDOSYS

Publicado por juan (1 intervención) el 23/02/2007 18:29:18
fdfsdfds
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar