Jump to content


p.gonzalez

Member Since 14/04/2004
Offline Last Active 28/04/2004, 10:05
-----

Topics I've Started

Acentuação Correta - Cdonts

20/04/2004, 13:53

Olá pessoal, estou com o seguinte problema: Tenho um formulário em flash (swf) que envia um e-mail usando o componente CDONTS. A mensagem é enviada normalmente mas quando eu a leio, percebo que as palavras que usam acentos aparecem de forma estranha, exemplo: a palavra "você" aparece como "você".
Estou usando o formato latino (charset=iso-8859-1) mas não sei aonde está o problema. Alguém sabe o que pode estar acontecendo?

segue o cód.:

<%
Dim mail
Destino = "pgonzalez@terra.com.br"
titulo = Request("assunto")
Origen = Request("email")
nombre = Request("nombre")
fone = Request("fone")
Mensaje = Request("mensaje")

'Creamos una instancia del objeto CDONTS
Set mail = Server.CreateObject("CDONTS.Newmail")


' Creamos el cuerpo del mensaje

strBody = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
strBody = strBody & "<html>"
strBody = strBody & "<head>"
strBody = strBody & "<meta http-equiv=""Content-Type"""
strBody = strBody & "content=""text/html; charset=iso-8859-1"">"
strBody = strBody & "<body bgcolor=""FFFFFF"">"
strBody = strBody & "<p><font size =""2"" face=""Verdana"">"
strBody = strBody & " De: </p>"
strBody = strBody & "" & nombre & "<br>"
strBody = strBody & "<p><font size =""2"" face=""Verdana"">"
strBody = strBody & "E-mail: </p>"
strBody = strBody & "" & Origen & "<br>"
strBody = strBody & "<p><font size =""2"" face=""Verdana"">"
strBody = strBody & " Fone: </p>"
strBody = strBody & "" & fone & "<br>
--------------------------------------------------------------------------------
<br>"
strBody = strBody & "<p><font size =""2"" face=""Verdana"">"
strBody = strBody & "Mensagem: </p>"
strBody = strBody & "" & Mensaje & "<br>"
strBody = strBody & "</body>"
strBody = strBody & "</html>"

mail.To = Destino
mail.Body = strBody
mail.BodyFormat =0 ' 0 = HTML, 1 = Plain
mail.MailFormat =0 ' 0 = MIME (HTML), 1 = Text
mail.From = Origen
mail.Subject = titulo

On Error Resume Next

mail.Send

If Err <> 0 Then
Response.Write "popup.mensaje=Error, Por favor, tente mais tarde " & Err.Description
Else
Response.Write "popup.mensaje=Mensagem enviada com sucesso!."
End If

Set mail = Nothing

%>

Dicas De Codificação - Cdonts

14/04/2004, 14:17

Olá pessoal... Estou com uma dúvida no uso do CDONTS pois creio que estou usando a codificação correta mas as palavras acentuadas vem codificadas como no exemplo: "Isto é um teste de mensagem... Parabéns!"

Alguém sabe o que pode ser este erro?

O envio e recebimento da mensagem é perfeito, só está com este problema...

Abraços

Segue o código:

<%

Dim mail
Destino = p.gonzalez@ids-scheer.com.br
titulo = Request(assunto)
Origen = Request(email)
nombre = Request(nombre)
fone = Request(fone)
Mensaje = Request(mensaje)

Set mail = Server.CreateObject(CDONTS.Newmail)

Creamos el cuerpo del mensaje
strBody = strBody & <font face=Verdana, Arial, Helvetica, sans-serif size=2 color=#555555>
strBody = strBody & De:
strBody = strBody & <b> & nombre & </b><br><br>
strBody = strBody & E-mail:
strBody = strBody & <b> & Origen & </b><br><br>
strBody = strBody & Fone:
strBody = strBody & <b> & fone & </b><br><hr><br>
strBody = strBody & Mensagem: <br>
strBody = strBody & Mensaje & chr(10)
strBody = strBody & </font>

mail.To = Destino
mail.Body = strBody
mail.BodyFormat = 0
mail.MailFormat = 0
mail.Importance = 1
mail.From = Origen
mail.Subject = titulo

On Error Resume Next

mail.Send

If Err <> 0 Then
Response.Write popup.mensaje=Error, Por favor, tente mais tarde & Err.Description
Else
Response.Write popup.mensaje=Mensagem enviada com sucesso!.
End If

Set mail = Nothing

%>

IPB Skin By Virteq