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

<%
'Instanciamos el nuevo objeto MailMessage
Dim mMailMessage As New MailMessage()

'Colocamos la cuenta de correo desde donde se enviara
mMailMessage.From = New MailAddress("correo@sudominio")
'Esto llega como parametro desde el formulario html
mMailMessage.To.Add(New MailAddress(Request.form("para")))

mMailMessage.Subject = Request.form("asunto")
mMailMessage.Body = Request.form("mensaje")

' True es que vamos a enviar el correo en formato HTML
mMailMessage.IsBodyHtml = True
'Colocamos como servidor smtp localhost
Dim mSmtpClient As New SmtpClient("localhost")
'Enviamos el correo
mSmtpClient.Send(mMailMessage)

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

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