Para el manejo de la aplicación solo deberá contener dos simples archivos.
Al primero lo llamaremos mail.asp, en el cual definimos los inputs que pasarán al otro archivo
(cdo.asp) por “POST”.
El código para el primer archivo es el siguiente:
<HTML> <HEAD> <TITLE>Prueba CDO para envio de Mails</TITLE> </HEAD> <BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080"> <center><h1>Prueba Envio de Mails con CDO</h1></center> <font size="4" style="arial"><u> Ingreso de Datos</font></u> <form action="cdo.asp" method="post"> <table> <tr><td>From:</td><td><INPUT TYPE="text" NAME="de" ></td></tr> <tr><td>To:</td><td><INPUT TYPE="text" NAME="para"></td></tr> <tr><td>Subject:</td><td><INPUT TYPE="text" NAME="titulo"></td> <tr><td>Comentario:</td><td><textarea cols="40" rows="5" NAME="com"></textarea><br> <tr><td></td><td><INPUT TYPE="submit" NAME="accion" VALUE="Enviar email"></td> </form> <hr> </BODY> </HTML>
Ahora, bien. Una vez que se haya conformado el primer archivo pasamos a armar el segundo que llevará el nombre cdo.asp
El código sería el siguiente:
<%
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Envia el mensage utilizando la red (SMTP) thenetwork).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp_dominio" 'Servidor smtp del dominio
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' Puerto
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Usar SSL (dejar FALSE)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' Tiempo de espera de conexion al servidor SMTP
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Tipo de autenticacion basica
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="cuenta_correo" ' Cuenta de Correo que va a autentificar
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="clave_correo" ' Clave correcta de la cuenta de correo que va a autentificar
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = Request.Form("para")
ObjSendMail.Subject = Request.Form("titulo")
ObjSendMail.From = Request.Form("de")
ObjSendMail.TextBody = Request.Form("com")
ObjSendMail.Send
Set ObjSendMail = Nothing
response.redirect ("mail.asp") ' Redirecciona a la pagina del formulario
%>
¡Esperamos esta información te haya sido de ayuda! Cualquier duda comunicate con nuestro servicio de atención al cliente las 24hs los 365 días del año.
