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.asp) por "POST".
El código para el primer archivo es el siguiente:

<HTML>
<HEAD>
<TITLE>Ejemplo Envio con componente ASPEMail + AspUpload para adjuntos</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080">
<center>
<h1>Ejemplo Envio con componente ASPEMail + AspUpload para adjuntos</h1>
</center>
<font size="4" style="arial">
<u> Ingreso de Datos</font>
</u>
<form action="enviar.asp" 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.asp
El código seral siguiente:

'Instanciamos el Objeto de AspUpload

Set Upload = Server.CreateObject("Persits.Upload")
Upload.IgnoreNoPost = True

'Grabo el archivo dentro de mi sitio antes de enviar

Upload.Save server.mappath(".")

' Instantiate the COM Object
Set Mail = Server.CreateObject("Persits.MailSender")

' This is the Your IP Address
Mail.Host = "localhost"

' This is the Hosts Station Internal SMTP Port
Mail.Port = "25"

' Mi cuenta de correo
Mail.From = "info@sudominio.com"

' El nombre que deseo que se vea cuando alguien recibe mi correo
Mail.FromName = "Juan Perez"

' La cuenta de correo donde deseo que respondan
Mail.AddReplyTo "reply@sudominio.com"

' Esta es la cuenta donde va a ir el correo, viene desde el html
Mail.AddAddress Upload.Form("para")

' Este es el asunto del correo
Mail.Subject = Upload.Form("asunto")

' Este es el cuerpo del correo
Mail.Body = Upload.Form("cuerpo")

'Verifico si subiero algun archivo para enviar
If Not Upload.Files("Attachment") Is Nothing Then
Mail.AddAttachment Upload.Files("Attachment").Path
End If

'Indico que voy a enviar correo en formato HTML

Mail.IsHTML = True

'Envio el correo

Mail.Send

' Esto verfica si se envio correctamente el correo

If Err <> 0 Then
Response.Write "El correo no se envio porque se encontro un error: " & Err.Description
Else
Response.Write "El correo fue enviado correctamente."
End If
%>

Rute path: FAQ NT / COMO ENVIAR UN MAIL CON EL COMPONENTE ASPEMAIL + ASPUPLOAD PARA ADJUNTOS?