Hola foro, gracias por su ayuda de antemano, quiero pedirles de su ayuda para que me ayuden a arreglar este pequeño ASP que amablemente una amiga me ayudo a hacer, actualmente si funciona, pero necesito modificarlo y la verdad no se como hacerle, ojala me puedan ayudar, Mil gracias.
.
Solo les comento los siguientes puntos.
- Debido a la seguridad del server del hosting debo validar el SMTP con un usuario y contraseña.
- El formulario esta en FLASH y desde ahi se envían los datos al ASP.
Las modificaciones que quiero hacer son las siguientes.
Como podran ver actualmente se envia un correo a ventas y a portal, pero al leer este aparece como si el remitente hubiera sido portal, que es lo que sucede por lo de la seguridad del servidor, lo que quiero hacer es que me aparezca que el remitente es el nombre capturado en el campo nombre y el correo tambien del mismo campo. Si esto no es posible por lo menos que al dar responder al correo recibido automaticamente le responda al correo capturado en el formulario.
Y el otro punto es que cuando recibo el correo el cuerpo del mensaje viene en HTML pero me aparece con un tipo de letra enorme, como puedo hacer para que me acepte las tildes y los acentos sin poner basura y ademas ajustar el texto a un tamaño de letra adecuado.
<%@ Language=VBScript %>
<%On Error Resume Next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.midominio.com"
Mail.Username = "
[email protected]"
Mail.Password = "xxxxxxx"
Mail.From = "
[email protected]"
Mail.FromName= "Pagina WEB"
Mail.AddReplyTo = Request ("email")
'Mail.AddAddress request("email")
Mail.AddBCC "
[email protected]"
Mail.AddBCC "
[email protected]"
Mail.Subject = "Pedido desde la pagina WEB"
Temp = "Nombre: " & Request("nombre") & (Chr(13) & Chr(10))
Temp = Temp & "Telefono: " & Request("telefono") & (Chr(13) & Chr(10))
Temp = Temp & "E-mail: " & Request("email") & (Chr(13) & Chr(10))
Temp = Temp & "Comentarios: " & Request("comentarios") & ""
Mail.Body =Temp
On Error Resume Next
Mail.IsHTML = True
Mail.Send
if Err <> 0 Then
Response.Write ( "Mail enviado." )
else
Response.Write ( "Error: " & Err.Description )
end if
%>