Para el manejo de la aplicacion solo debera contener dos simples archivos.
Al primero lo llamaremos mail.asp, en el cual definimos los inputs que pasaran 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 llevara 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
%> |
|
|
|
|
| |
