Trato de hacer una pagina en flash desde la que se envien emails, para ello utilizo el siguiente codigo del lado del servidor...
<%
FirstName = Request.form("FirstName")
Email = Request.form("Email")
Company = Request.form("Company")
ToComments = Request.form("ToComments")
HearAbout = Request.form("HearAbout")
strName = "NEOPOLITA"
strEmail = "guanodulze@hotmail.com"
strSubject = "MAIL"
strBody = ToComments & HearAbout & Company
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.innerhost.com"
Mailer.FromName = FirstName
Mailer.FromAddress = Email
Mailer.AddRecipient strName, strEmail
Mailer.Subject = (strSubject)
Mailer.BodyText = strBody
if Mailer.SendMail then
Response.Write "_root.Mail.EmailStatus=Complete - Your mail has been sent"
else
Response.Write "_root.Mail.EmailStatus=Failure - Your mail was not sent - errors"
Response.Write Mailer.Response
end if
%>
en mail.innerhost.com, pongo lo apropiado, pero no funciona,
he leido en la documentacion de donde saque este script que SMTPsvg.Mailer es el mas usado, pero que hay otros, podrian decirme que otros podria utilizar o si hay otro problema?
Besos y abrazos a todos. gracias por adelantado.
cuboo
Por la cadena SMTPsvg.Mailer me imagino que estas intentando usar el componente AspMail.
Si no tienes el componente instalado en el servidor no va a funcionar.
Para instalarlo debes tener acceso al servidor y registrar una dll. Esto se hace con el comando regsvr32.
Otro componente que se usa bastante para enviar mails desde asp es el AspEmail. Pero tb tendras que instalarlo en el servidor.
Otra opción es usar CDONTS, que por defecto ya viene en windows y si el servidor no lo ha desactivado deberia funcionar. (En windows xp, hay que instalarlo por separado).
Puedes mirarte esto, a ver si te funciona.
suerte.
Neopolita
aja, muchas gracias, mi servidor tiene instalado ASPEMAIL, he modificado el codigo a....
<%
FirstName = Request.form("FirstName")
Email = Request.form("Email")
Company = Request.form("Company")
ToComments = Request.form("ToComments")
HearAbout = Request.form("HearAbout")
strName = "NEOPOLITA"
strEmail = "guanodulze@hotmail.com"
strSubject = "EMAIL"
strBody = ToComments & HearAbout & Company
Set Mailer = Server.CreateObject("Persits.MailSender")
Mailer.Host = "smtp.trece13.com"
Mailer.FromName = FirstName
Mailer.FromAddress = Email
Mailer.AddRecipient strName, strEmail
Mailer.Subject = (strSubject)
Mailer.BodyText = strBody
if Mailer.SendMail then
Response.Write "_root.Mail.EmailStatus=Complete - Your mail has been sent"
else
Response.Write "_root.Mail.EmailStatus=Failure - Your mail was not sent - errors"
Response.Write Mailer.Response
end if
%>
pero sigue sin funcionar, ¿qué hago mal?
Neopolita
ya esta solucionado, muchisimas gracias por la ayuda.