Tema: duda
Ver Mensaje Individual
  #15 (permalink)  
Antiguo 19/04/2003, 17:16
franrtorres77
 
Fecha de Ingreso: abril-2003
Mensajes: 37
Antigüedad: 22 años
Puntos: 0
voy a pegar el codigo mejor

<%

Session("nombre") = Request("nombre")
Session("FromAddress") = Request("FromAddress")
Session("Subject") = Request("Subject")
Session("BodyText") = Request("BodyText")
Session("razonsocial") = Request("razonsocial")
Session("apellidos") = Request("apellidos")
Session("nombre") = Request("nombre")
Session("direccion") = Request("direccion")
Session("cp") = Request("cp")
Session("localidad") = Request("localidad")
Session("provincia") = Request("provincia")
Session("pais") = Request("pais")
Session("telefono") = Request("telefono")
Session("fax") = Request("fax")
Session("consulta") = Request("consulta")



Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

'configuracion de las variables
Mailer.FromAddress = Session("FromAddress")
Mailer.RemoteHost = "smtpmail.activeisp.com"
Mailer.AddRecipient "Petición de Información a Daugen", "[email protected]"
Mailer.Subject = Session("Subject")

Mailer.BodyText = "Razón Social: " & ("razonsocial")
Mailer.BodyText = "Apellidos: " & Session("apellidos")
Mailer.BodyText = "Nombre: " & Session("nombre")
Mailer.BodyText = "Dirección: " & Session("direccion")
Mailer.BodyText = "Código Postal: " & Session("cp")
Mailer.BodyText = "Localidad: " & Session("localidad")
Mailer.BodyText = "Provincia: " & Session("provincia")
Mailer.BodyText = "Pais: " & Session("pais")
Mailer.BodyText = "Teléfono: " & Session("telefono")
Mailer.BodyText = "Fax: " & Session("fax")
Mailer.BodyText = "Consulta: " & Session("consulta")
Mailer.BodyText = ""






'comprobación
if Mailer.SendMail then
Response.Write "Su Solicitud de Información ha sido enviada con éxito."
Response.Write "En un breve período de tiempo, nos pondremos en contacto con usted."
else
Response.Write "Hubo un error al intentar enviar su Petición de Información, por favor, verifique todos los campos y vuelva a intentarlo."
Response.Write "El campo de Correo electrónico no puede quedarse en blanco " & Mailer.Response
end if

'Abandonandos variables de sesion
Session.Abandon
%>

ahora esta como para enviar el email normal, sin formato ni nada, texto plano