ToWebs Preguntas Frecuentes sobre el hosting

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</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080">
<center>
<h1>Ejemplo Envio con componente ASPEMail</h1>
</center>
<font size="4" style="arial">
<u> Ingreso de Datos</font>
</u>
<form action="enviar.asp" method="post">
<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>
<td>
<INPUT TYPE="submit" NAME="accion" VALUE="Enviar email">
</td>
</form>
<hr>
</BODY>
</HTML>

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:

' Instancio el Objeto COM
Set Mail = Server.CreateObject("Persits.MailSender")

' La ip del SMTP host (aconcejamos utilizar localhost)
Mail.Host = "localhost"

'Seleccionamos el puero de correo
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 Request.Form("para")

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

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

'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 ?