Como usar CDOSYS!

Existen diferentes herramientas para enviar emails directamente desde tu pagina web, algunas cuestan dinero y otras no, esta vez hablaré de una de las más comúnes, poderosas y además gratuitas, se trata de CDOSYS, una herramienta de Microsoft que funciona bajo los servidores IIS desde los 5.1 para arriba.

para aquellos que quieran profundizar más en el tema pueden ver este enlace ASP Cdosys ,

lo que voy a mostrarles ahora es un ejemplo sobre como configurar esta herramienta en nuestro sitio web, y que esta "funcione" correctamente, me tomó un tiempo dar con buenos ejemplos en la web y despues de hacer varias pruebas por fin lo logré que funcione, pero para empezar debo aclarar lo siguiente:
  1. Cdosys debe estar instalado en el servidor IIS donde esté alojado su sitio web (normalmente lo está, pero si nó puden solicitar a su proveedor que lo instale).
  2. Para este ejemplo utilizaré el lenguaje ASP.
  3. Deben tener una cuenta de email configurada para su sitio web, por ejemplo si su sitio se llama: www.ejemplo.com, lo mas común es que su cuenta de email (si crearon una) sea "micuenta@ejemplo.com".
bueno, ahora el ejemplo, yo utilicé una página HTML que contiene el formulario donde llenamos los datos del email y el mensaje en sí (contacto.html) , y otra página ASP que procesa el envío y lo ejecuta (cdosys.asp).

este es el código de "contacto.html":
------------------------------------------------------------------------------------------------


<html>
<head><title>contacto.html</title>
</head>
<body>
<form name="email" action="cdosys.asp" method="post">

Remitente:
<font color=#808080>coloque su dirección de email</font><br />
<input type="text" name="remitente" size="66" maxlength="256" /><br /><br />

Destinatario:
<font color=#808080>email del destinatario</font><br />
<select name="destinatario">
<option value="">seleccione un email
<option value="miemail1@ejemplo.com">miemail1@ejemplo.com<!--aca pudes colocar cualquier dirección/es de email-->
<option value="miemail2@ejemplo.com">miemail2@ejemplo.com
</select><br /><br />

Asunto:
<input type="text" name="asunto" size="66" maxlength="256" /><br /><br />

Mensaje:
<textarea name="cuerpo" cols="50" rows="15"></textarea><br />
<input type="submit" value="Enviar" />
<input type="reset" value="Limpiar" />
</form>

</body>
</html>

-----------------------------------------------------------------------------------------------

éste el de la página que procesa el envío en ASP (cdosys.asp):

-----------------------------------------------------------------------------------------------

<% @ LANGUAGE=VBSCRIPT
ENABLESESSIONSTATE=FALSE %&g
t;

<html>

<head></head>
<%

Dim remitente,destinatario,asunto,cuerpo
remitente=request.form("remitente")

destinatario=request.form("destinatario")
asunto=request.form("asunto")
cuerpo=request.form("cuerpo")

Dim ObjSendMail


Set ObjSendMail = CreateObject("CDO.Message")

'Esta sección provee la informacion necesaria para la configuración del servidor SMTP remoto.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing
") = 2
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="servidor.ejemplo.com" 'servidor SMTP
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smt
pserverport") = 587 'puerto de servidor SMTP
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Usar SSL para la conección (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60


' Si su servidor requiere autenticación por nombre de usario y password agregue las siguientes 3 líneas, si no, no necesita hacerlo.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="direccion@ejemplo.com" 'Nombre de Usuario

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="1234" 'Password
ObjSendMail.Configuration.Fields.Up
date
'Aquí acaba la configuración del servidor SMTP remoto==

ObjSendMail.To = destinatario
ObjSendMail.Subject = asunto

ObjSendMail.From = remitente
ObjSendMail.TextBody = cuerpo
ObjSendMail.Send

Set ObjSendMail = Nothing
%>
<body>

<div id="index">
<div id="mensaje">

su mensaje se ha enviado con éxito...

</div>

<meta http-equiv="refresh" Content="3;URL=contacto.html">

</div>

</body>

</html>

----------------------------------------------------------------------------------------------

ver un ejemplo en el sitio que desarrollé recientemente:

0 comentarios :

Publicar un comentario

Agregar Comentarios