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 + AspUpload para adjuntos para .NET</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080">
<center>
<h1>Ejemplo Envio con componente ASPEMail + AspUpload para adjuntos + .NET</h1>
</center>
<font size="4" style="arial">
<u> Ingreso de Datos</font>
</u>
<form action="enviar.aspx" method="post" ENCTYPE="multipart/form-data">
<table>
<tr>
<td>Correo Destino:</td>
<td>
<INPUT TYPE="text" NAME="para">
</td>
</tr>
<tr>
<td>Asunto:</td>
<td>
<INPUT TYPE="text" NAME="asunto">
</td>
<tr>
<td>Cuerpo del correo:</td>
<td>
<textarea cols="40" rows="5" NAME="cuerpo">
</textarea>
<br>
<tr>
<td>
</td>
<TR><TD>Adjuntar Archivo:</TD>
<TD>
<INPUT TYPE=FILE NAME="Attachment">
</TD>
</TR>

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 etos que voy a utilizar
'aspCompat="True" esto es para que funcione la aplicacion aspuploadlib%>

<%@ Page aspCompat="True" Language="vbscript" Debug="true" %>

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

<%
'Inicializo variable
Dim nCount
Dim Mail as IMailSender
'Utilizamos ASPUPLOAD para subir el archivo a adjuntar
Dim Upload as ASPUPLOADLib.IUploadManager

Upload = new ASPUPLOADLib.UploadManager

'Save retorna el numero de archivos subidos

nCount = Upload.Save(Server.mappath("."), Missing.Value, Missing.Value)

'Instancio eto de aspemail
Mail = new ASPEMAILLib.MailSender()
'Host de servidor SMTP (recomendamos localhost)
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("cuerpo")

If Not Upload.Files.item("Attachment") Is Nothing Then
Mail.AddAttachment (Upload.Files.item("Attachment").Path)
End If

'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 CON EL COMPONENTE ASPEMAIL + ASPUPLOAD PARA ADJUNTOS CON .NET?