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: |
| |
|
|
|
<%
'Creamos el Objeto del mail.
Set CdoMail = Server.CreateObject("CDO.Message")
'nuestra direccion de correo.
CdoMail.From = Request.Form("de")
'direccion del destinatario.
CdoMail.To = Request.Form("para")
'El asunto del mensaje a enviar.
CdoMail.Subject = Request.Form("titulo")
'El Texto que queremos mandar.
CdoMail.TextBody = Request.Form("com")
'Enviamos el mail
CdoMail.Send
'Limpiamos el objeto
set myMail =nothing
Response.Redirect("mail.asp")
%> |
|
|
|
|
| |
