Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Aspmail y respuesta automática
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Vanessa
Junior Member

España
181 Posts
Mensajes - 07 May 2005 :  21:59:12  Ver Perfil  Enviar Email
Buenas tardes, tengo un formulario en aspmail con los campos nombre, email y telefono, entra una persona y rellena esos campos, y le da a enviar, ese email me llegaría a mi correo, lo que quiero hacer es una respuesta automática al campo email que me ha introducido esa persona, hay que tener en cuenta que la dirección desde la que me llega el correo es la mia también.
Yo he conseguido, enviarlo a dos destinatarios, al campo email y a mi correo, lo que pasa es que a la persona que rellena el form no quiero que le llegue el mismo asunto ni el mismo cuerpo que al mio, como puedo hacerlo?
Gracias y un saludo a tod@s

ce
Average Member

España
523 Posts
Posted - 09 May 2005 :  10:20:48  Ver perfil  Enviar e-mail  Visit ce's Homepage
Hola vanessa, no se si te he entendido bien.. pero yo diria que puedes enviar todos los mails que quieras una vez los tengas en el asp:

<%
'Asignamos los valores recibidos del formulario a las variables
Nombre = Request("Nombre")
Telefono = Request("Telefonos")
Email = Request("Mail")
fecha = now()
Mensaje = ""
Mensaje = "<h4>Se ha enviado un formulario desde la web con los siguientes datos:</h4>"' & "<br>"
Mensaje = Mensaje & "Nombre: <b>" & Nombre & "</b><br>"
Mensaje = Mensaje & "Telefonos: <b>" & Telefono & "</b><br>"
Mensaje = Mensaje & "E-mail: <b>" & Email & "</b><br>"
Mensaje = Mensaje & "El envio se ha realizado a fecha: <b>" & fecha & "</b>"
'PRIMER MAIL
Dim objMail
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.Host = "smtp.tudominio.com"
objMail.From = Email 'EMISOR O REMITENTE
objMail.FromName = "PROCEDENCIA......"
objMail.IsHTML = True
objMail.Subject = "ASUNTO...."
objMail.Body = Mensaje
objMail.AddAddress "tu@direccion.com" 'A DONDE VA EL FORMULARIO
On Error Resume Next
objMail.Send
Set objMail=Nothing

'SEGUNDO MAIL
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.Host = "smtp.tudominio.com"
objMail.From = Email 'EMISOR O REMITENTE
objMail.FromName = "PROCEDENCIA2......"
objMail.IsHTML = True
objMail.Subject = "ASUNTO2....."
objMail.Body = Mensaje
objMail.AddAddress "tuotra@direccion.com" 'A DONDE VA EL SEGUNDO FORMULARIO
On Error Resume Next
objMail.Send
Set objMail=Nothing
%>

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar