Agora deu certo!
O problema está no arquivo swf e não no ASP ou no CDONTS.
No frame 1 do flash coloque:
System.useCodepage = true;
(faz o flash usar o código "ISO-Latino" referenciado no html "content=text/html; charset=iso-8859-1>")
Obrigado a todos!
p.gonzalez
p.gonzalez's Content
There have been 5 items by p.gonzalez (Search limited from 20/04/2023)
#352210 Acentuação Correta - Cdonts
Posted by
on 28/04/2004, 10:06
in
ASP
#346086 Acentuação Correta - Cdonts
Posted by
on 20/04/2004, 16:51
in
ASP
Estou usando assim:
strBody = strBody & "<meta http-equiv=""Content-Type"""
strBody = strBody & "content=""text/html; charset=iso-8859-1"">" (exemplo da Microsoft)
Tbém já tentei carregar as carcterísticas locais com:
mail.SetLocaleIds(1046)
mas não funcionou...
strBody = strBody & "<meta http-equiv=""Content-Type"""
strBody = strBody & "content=""text/html; charset=iso-8859-1"">" (exemplo da Microsoft)
Tbém já tentei carregar as carcterísticas locais com:
mail.SetLocaleIds(1046)
mas não funcionou...
#345848 Acentuação Correta - Cdonts
Posted by
on 20/04/2004, 13:53
in
ASP
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
%>
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
%>
#341772 Dicas De Codificação - Cdonts
Posted by
on 15/04/2004, 10:20
in
ASP
Funciona sim, muito bem e muito rápido...
tentei usar a linha
Session.LCID = 1046 (configuração Português - Brasil)
Mas não deu certo...
tentei usar a linha
Session.LCID = 1046 (configuração Português - Brasil)
Mas não deu certo...
#341183 Dicas De Codificação - Cdonts
Posted by
on 14/04/2004, 14:17
in
ASP
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
%>
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
%>
