Si bueno esto ya esta incluido, mejor coloco el codigo..
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.dominio.com"
'Mail.Port = 25
Mail.Username = "
[email protected]"
Mail.Password = "clave"
Mail.AddAddress Request("dest")
Mail.From = "
[email protected]"
Mail.FromName = "Nombre del departamento"
Mail.Subject = "Asunto del mensaje"
Mail.Body = "Cuerpo del mensaje"
on error resume next
Mail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If
Set Mail = Nothing
%>