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 System.Web.Mail</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080">
<center>
<h1>Ejemplo Envio con System.Web.Mail</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:

<%@ IMPORT namespace="System.Web.Mail" %>

<%
Dim obj As System.Web.Mail.SmtpMail
Dim Mailmsg As New System.Web.Mail.MailMessage()

'Reemplazar por la cuenta que enviara el correo
Mailmsg.From = "correo@sudominio"

'Obtiene los datos del form
Mailmsg.To = Request.form("para")
Mailmsg.Subject = Request.form("asunto")

'Esta linea es para mandar el correo en formato HTML
Mailmsg.BodyFormat = MailFormat.Html

'El mensaje que viene del html
Mailmsg.Body = Request.form("mensaje")

'Utilizamos como host de smtp localhost
SmtpMail.SmtpServer = "localhost"
SmtpMail.Send(Mailmsg)

if (err.number = 0) then
Response.Write ("Se envio el correo por System.Web.Mail")
else
Response.Write ("Error al enviar: " & err.description)
end if

Mailmsg = Nothing

Rute path: FAQ NT / COMO ENVIAR UN MAIL CON SYSTEM.WEB.MAIL ?