Salu, es muy sencillo, akí te dejo el código. Tengo un documento de ayuda en PDF dame un dir de emilio y te mando si te hace falta, es que pesa 80k y dudo que esto lo admita.
Código:
<%
Dim Mail
'Creamos el objeto
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "TU SMTP"
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
' esto se usa cuando tu servidor SMTP requiere autentificación
Mail.Username = "User"
Mail.Password = "Pass"
Mail.From = "DIR MAIL" ' Quien manda
Mail.FromName = "Nombre" ' Quien manda
'Mail y nombre de a quien le llega
Mail.AddAddress "E-mail", "ValNombre"
Mail.Subject = "Mensaje de que puede ir el correo"
Mail.Body = "Akí va el mensaje"
On Error Resume Next
Mail.Send
'Mail.Send Mail.SendToQueue si son mas de 1 correo
If Err <> 0 Then
'Response.Write "An error occurred: " & Err.Description
Response.Write "Ocurrió el siguiente error: " & Err.Description
else
%>
<script type="text/JavaScript">
<!--
alert("En breves momentos le llegará confirmación a su dirección de correo");
window.history.go(-1); // esto te regresa a la pag anterio así que si la has abierto en _blank tendrás que quitar la line o sustituirla por Window.Close();
//-->
</script>
<%
End If
set Mail=Nothing
%>