Acentuação Correta - Cdonts

p.gonzalez · Abril 13, 2004

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 &

strBody = strBody & De:

strBody = strBody & & nombre &

strBody = strBody & E-mail:

strBody = strBody & & Origen &

strBody = strBody & Fone:

strBody = strBody & & fone & <hr>

strBody = strBody & Mensagem:

strBody = strBody & Mensaje & chr(10)

strBody = strBody &

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

%>

Victor · Abril 13, 2004

O que você escreve quando aparece uma coisas assim, quais as letras??

dark0 · Abril 13, 2004

puts..

isso parece alguma coisa relacionada à idioma

já me aconteceu antes.. mas não lembro o que era..

esse script parece que não é padrão portuga..

que doido..

já tentou usar um script cdont comunzinho?

Victor · Abril 13, 2004

O CDONTS dele deve ser alguma outra versão!!! Pois o do meu professor acontece isso, e ele disse alguma coisa assim, que é em outra linguagem Alguma coisa assim!!!

[]'s

Victor

p.gonzalez · Abril 14, 2004

Creio que falta alguma linha para codificação do HTML... Estilo padrões de linguagem ou algo assim:

strBody = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf

O Cdonts está correto.

Victor · Abril 14, 2004

Use este que eu fiz agora pouco, ai já usei uma logica diferente :

function_email.asp

<%
function email_cdonts(de_email, para_email, subject,  mensagem)

Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.mailformat=0 'para enviar html como mensagem
objmail.bodyformat=0 'para enviar html como mensagem
objmail.from = de_email
objmail.to = para_email
objmail.subject = subject
objmail.body = mensagem
objmail.send
Set objmail = nothing

end function
%>

Formulario.asp

<%
if request.form("acao")<>"" then

nome = request.form("nome")
email = request.form("email")
telefone = request.form("telefone")
texto = request.form("texto")
saudacao = ""&nome&", seu e-mail foi enviado corretamente, em breve estaremos respondendo seu e-mail"

mensagem="Serviços - Websites<br><br>Nome: "&nome&"<br>Cidade: "&cidade&"<br>CEP: "&CEP&"<br><br>"&texto
call email_cdonts (request.form("email"), "email@provedor.com", "Assunto - você escolhe",  mensagem)%>
<%if time >= #00:00# and time < #12:00# then
response.write "Bom dia "&saudacao&""
elseif time >= #12:00# and time < #18:00# then
response.write "Boa tarde "&saudacao&""
else
response.write "Boa noite "&saudacao&""
end if%>
<%else%>
<form action="formulario.asp" method="post">
<table>
	<tr>
  <td>Nome:&nbsp;</td>
  <td><input name="nome"></td>
	</tr>
	<tr>
  <td>E-mail:&nbsp;</td>
  <td><input name="email"></td>
	</tr>
	<tr>
  <td>Telefone:&nbsp;</td>
  <td><input name="telefone"></td>
	</tr>
	<tr>
  <td>Mensagem:&nbsp;</td>
  <td><textarea cols="25" rows="5"></textarea></td>
	</tr>
	<tr>
  <td><input type="Hidden" name="acao" value="enviar"><input type="submit" name="enviar" value="Enviar"></td>
	</tr>
</table>
</form>
<%end if%>
<!--#include file="function_email.asp"-->

Eu fiz ele enviar email e responder tudo na mesma página, caso tenha mais alguma dúvida é só gritar!!!!

[]'s

Victor

ursolouco · Abril 15, 2004

Brother!!

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

'Caracteres Iso Latino

ou

 Session.Lcid = 1046

'Formato Brasileiro

ou até mesmo, vejas as configurações regionais do seu servidor (testes/host)

Abraços!!!

Deividy · Abril 15, 2004

acho que você não deveria tentar mudar nada e sim entrar em contato com o seu servidor pra saber esta as configurações!

p.gonzalez · Abril 15, 2004

jÁ CONTACTEI O SERVIDOR... ESTOU AGUARDANDO UMA RESPOSTA

OBRIGADO POR ENQUANTO GALERA, quando TIVER A SOLUÇÃO EU VOU POSTAR...

ABRAÇOS

p.gonzalez · Abril 15, 2004

Me sugeriram o usar o "CDOSYS" funcionou o envio, mas os caracteres acentuados continuam vindo errado... usei este código, pode estar faltando alguma linha para codificação de idioma

<%

Destino = "falecomgonzalez@terra.com.br"

titulo = Request("assunto")

Origen = Request("email")

nombre = Request("nombre")

fone = Request("fone")

Mensaje = Request("mensaje")

sch = "http://schemas.microsoft.com/cdo/configuration/"

Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields

.Item(sch & "sendusing") = 2 ' cdoSendUsingPort

.Item(sch & "smtpserver") = "smtp.digiweb.com.br"

.update

End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage

Set .Configuration = cdoConfig

.From = Origen

.To = Destino

.Subject = titulo

.TextBody = Mensaje & " " & fone & " " & nombre

On Error Resume Next

.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

end with

Set cdoMessage = Nothing

Set cdoConfig = Nothing

%>

dark0 · Abril 15, 2004

faça o que o urso disse logo acima da sua mensagem..

Victor · Abril 15, 2004

faça o que o urso disse logo acima da sua mensagem..

Mas aquilo que o URSO postou é para HTML, e ASP não precisar ter aquilo Certo?

dark0 · Abril 15, 2004

releia a mensagem do urso!

ele disse tb:

Session.Lcid = 1046
'Formato Brasileiro

colocar isso no começo do site..

Victor · Abril 15, 2004

releia a mensagem do urso!
ele disse tb:
Session.Lcid = 1046
'Formato Brasileiro
colocar isso no começo do site..

há sim, agora entendi Vlw!!

Bicicleta · Abril 15, 2004

E mesmo assim, a parada do ISO lá, as vezes é necessário...

Aposto que se o cara der um request.form pra ver, vai vir exatamente como ele digitou, mais as vezes ao enviar o email, dá esses erros por causa da codificação da página!

p.gonzalez · Abril 16, 2004

Pô, já contactei o servidor e não suporta o CDOSYS. Tentei receber texto comum (sem HTML) e continua o mesmo problema. Voltei a usar o CDONTS. Agora vou partir para o Flash pois o formulário é feito em flash, mas mesmo assim já usei o "Session.Lcid = 1046 " e o "<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">" e não deu certo... mas eu descubro!!!

quem tiver mais dicas pode mandar, valeu por enquanto!

pgmador · Abril 18, 2004

Onde você colocou o

Session.Lcid = 1046

e o

Estes comandos devem fazer parte do e-mail. Então o micro da pessoa pode estar configurada para qualquer formato, que irá ler no formato que você colocar.

p.gonzalez · Abril 19, 2004

valeu A TODOS GALERA... CONSEGUI!

NA VERDADE EU MUDEI O COMPONENTE E estou USANDO O ASPMAIL...

TKS

Victor · Abril 19, 2004

AFFFFF

p.gonzalez · Abril 20, 2004

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 & ""

strBody = strBody & " De: "

strBody = strBody & "" & nombre & " "

strBody = strBody & ""

strBody = strBody & "E-mail: "

strBody = strBody & "" & Origen & " "

strBody = strBody & ""

strBody = strBody & " Fone: "

strBody = strBody & "" & fone & "

--------------------------------------------------------------------------------

"

strBody = strBody & ""

strBody = strBody & "Mensagem: "

strBody = strBody & "" & Mensaje & " "

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

%>

dark0 · Abril 20, 2004

Olá

Eu Juntei os dois tópicos, pois os mesmos abordam o mesmo assunto, e são do mesmo autor!

Ao autor dos 2 tópicos..

Por favor, não crie vários tópicos sobre a mesma dúvida, ok?

Até mais,

Dark

p.gonzalez · Abril 23, 2004

ok!!! desculpas...

[]'s

dark0 · Abril 23, 2004

sem problemas.. ok?

mas vejamos..

você ainda está com esse problema?:??

p.gonzalez · Abril 28, 2004

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

Outubro 28, 2005

Coloca isso aí:

	Set myMail=CreateObject("CDO.Message")
	myMail.bodypart.Charset = "ISO-8859-1"

E tenho dito

Entrar

Acentuação Correta - Cdonts

Pergunta

Link para o comentário

Compartilhar em outros sites

24 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Pedro Soares

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns