Tema: de repente en el email no entran los acentos.
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 04/10/2005, 05:30
rrufo
 
Fecha de Ingreso: enero-2002
Mensajes: 1.438
Antigüedad: 23 años, 3 meses
Puntos: 0
de repente en el email no entran los acentos.
he utilizado este codigo cientos de veces, y ahoraresulta q no me envia las letras con acento.

que puede pasar?


Código: 
<%@LANGUAGE="VBSCRIPT"%> 

. . . 
<%

    Set objMail=Server.CreateObject("CDONTS.NewMail")    	        
    objMail.From = (usuario.Fields.Item("email").Value)
    objMail.To= "[email protected]"
    objMail.Subject= request("Tema")
    objMail.Body= request("Sugerencia")
    objMail.MailFormat=cdoMailFormatMIME
    objMail.Subject="Consulta sobre: "& Request("Tema")
    objMail.BodyFormat=cdoBodyFormatHTML
         strTexto="<html><body><font face=""Arial, Helvetica, sans-serif"" size=""-1"">" 
strTexto=strTexto&"<br>Estimado Usuario, " & Request("Nombre") & ", hemos recibido su mensaje, con el siguiente contenido:"
strTexto=strTexto&"<br><hr><br>Empresa: " & Request("empresa")
strTexto=strTexto&"<br>e-mail: " & Request("email")
strTexto=strTexto&"<br>Teléfono: " & Request("telefono")
strTexto=strTexto&"<br>Consulta:"
strTexto=strTexto&"<br>"& Request("Sugerencia")
strTexto=strTexto&"<hr>Si comprueba que alguno de los datos de contacto anteriores no son correctos, envíenos de nuevo el formulario con los datos corregidos."
strTexto=strTexto&"<br><br>Esta solicitud será archivada en su carpeta personal."
strTexto=strTexto&"<br>En breve un miembro de nuestro equipo procesara la información y, en su caso, dará cumplida respuesta."
strTexto=strTexto&"<br><br>Usted puede ver 'on-line' su solicitud, así como la respuesta de nuestros técnicos, en el apartado '<b>Mis preguntas</b>' de la pestaña '<b>Consultas</b>."


strTexto=strTexto&"</font></body></html>"

  objMail.Body=strTexto
  objMail.Send 
  set objMail = nothing
  end if  
    %>