aqui el codigo !!
solo reemplaza.. dominio y cuenta q tu has creado en tu host !!
Código:
<%
varF = request.form("quienloenvia")
varMMS = request.form("mensaje")
varSn = request.form("titulo")
Dim objEmail
Set objEmail = Server.CreateObject("Persits.MailSender")
objEmail.Username = "[email protected]"
objEmail.Password = "xsZYTokKv3dQe7A"
objEmail.Host = "mail.allhen.com"
objEmail.From = "[email protected]"
objEmail.FromName = request.form("nombreDeQuienLoEnvia")
objEmail.AddAddress request.form("destinatario")
objEmail.Subject = ""&varSn&" aqui el subject ..."
ObjEmail.IsHTML = True
objEmail.Body = "Mensaje:<br> "&varMMS&" <br><br><img src=""http://tudominio.com/fotocualquiera.jpg"" border=""0"">"
objEmail.Send
Set objEmail = Nothing
response.write = "Mail enviado a : """&varF&""" <br> "
%>