<%
varF = request.form("quienloenvia")
varMMS = request.form("mensaje")
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 ...al inicio recoge una variable"
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> Puedes seguir enviando...."
%>