<% Set MyMail = Server.CreateObject("Persits.MailSender") MyMail.host="smtp.fibertel.com.ar" MyMail.Username="infotec@steelcote.com.ar" MyMail.Password="info2003" 'MyMail.host="smtp.mail.yahoo.com.ar" 'MyMail.Username="anagonzalezmoreno@yahoo.com.ar" 'MyMail.Password="fenicia" MyMail.From = "a@b.com" MyMail.FromName="Juan" MyMail.AddAddress "enrique2k15@yahoo.com.ar" MyMail.Subject = "prueba de mail" & " (WEB)" MyMail.Body = "Este es el mensaje" MyMail.Send If Err = 0 Then response.write("
La consulta ha sido enviada.") else Response.Write "Se encontró un error: " & Err.Description End If Set MyMail = Nothing %>