Para el manejo de la aplicacion solo debera contener dos simples archivos.
Al primero lo llamaremos mailaspx.html, en el cual definimos los inputs que pasaran al otro archivo
(enviar.aspx) por "POST".
El código para el primer archivo es el siguiente:
|
| |
|
|
|
<HTML>
<HEAD>
<TITLE>Prueba CDONTS para envio de Mails con ASP NET</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080">
<center><h1>Prueba Envio de Mails con CDONTS con ASP NET</h1></center>
<font size="4" style="arial"><u> Ingreso de Datos</font></u>
<form action="enviar.aspx" 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
enviar.aspx
El código seral siguiente: |
| |
|
|
|
%@ LANGUAGE = VBScript%>
<%@ Import Namespace="System.Web.Mail" %>
<%
dim objMail
objMail = Server.CreateObject ("CDONTS.NewMail")
objMail.From = Request.form("de")
objMail.To = Request.form("para")
objMail.BodyFormat = 0
objMail.BodyFormat = 1
objMail.Subject = Request.form("titulo")
objMail.Body = Request.form("com")
objmail.Send
Response.Write ("Se envio el correo por ASP NET")
%> |
|
|
|
|
| |
