ToWebs

Para el manejo de la aplicacion solo debera contener dos simples archivos.

Al primero lo llamaremos index.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>Ejemplo Envio con componente ASPEMail para .NET</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080">
<center>
<h1>Ejemplo Envio con componente ASPEMail para .NET</h1>
</center>
<font size="4" style="arial">
<u> Ingreso de Datos</font>
</u>
<FORM METHOD="POST" action="enviar.aspx">

<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
<TR>
<TD>Para: (ingresar la direccion de correo destino):</TD>
<TD><INPUT TYPE="TEXT" name="para"></TD>
</TR>
<TR>
<TD>Asunto del correo:</TD>
<TD><INPUT TYPE="TEXT" name="asunto"></TD>
</TR>
<TR>
<TD>Cuerto/Mensaje:</TD>
<TD><TEXTAREA name="mensaje"></TEXTAREA></TD>
</TR>
<TR>
<TD COLSPAN=2><INPUT TYPE="SUBMIT" NAME="Send" VALUE="Enviar Correo" RUNAT="Server"></TD>
</TR>

</TABLE>

</FORM>

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:

'Imprto los objetos que voy a utilizar

<%@ Import Namespace="System.Web" %>
<%@ Import Namespace="ASPEmailLib" %> 'Este ASPEmialLib.dll debera estar en el bin
<%@ Import Namespace="System.Reflection"%>

<%
'Inicializo variable
Dim Mail as IMailSender

'Instancio objeto de aspemail
Mail = new ASPEMAILLib.MailSender()
'Host de servidor SMTP
Mail.Host = "localhost"

'Direccion de correo Origen
Mail.From = "info@sudominio.com"

'Direccion de correo Destinio (viene desde el html)
Mail.AddAddress (Request.form("para"),Missing.Value)

'Asunto del correo (viene desde el html)
Mail.Subject = Request.form("asunto")

'Mensaje del correo (viene desde el html)
Mail.Body = Request.form("mensaje")

'Verifico si hay error e imprimo el mensaje en pantalla por ok o no
if Mail.Send(Missing.Value) then
Response.Write ("Se envio el correo por ASP.NET con el componente ASPEmail")
else
Response.Write ("Error al enviar: " & err.description)
end if

Rute path: FAQ NT / COMO ENVIAR UN MAIL EN .NET CON EL COMPONENTE ASPEMAIL ?