NÃO SAI A PONTUA?ÃO NO ENVIO DO EMAIL
Galera não conheço muito o ASP, alias quase nada, más estou chamando um form onde vc abre um chamado para a assistência e estou com um problema na pontuação do email, quando uso qqer acento ele não sai
Já pesquisei bastante, cheguei a achar até uma pessoa que estava com o mesmo problema que eu e usando o mesmo script, porém quando coloquei a solução que foi proposta, não adiantou
Segue a página onde envio o email e um alerta na página
O problema se encontra apenas no envio do email, a página e a gravação no mysql estão perfeitos
<%@LANGUAGE=[Ô]VBSCRIPT[Ô] CODEPAGE=[Ô]65001[Ô]%>
<%
[ô]Força a declaração de todas as variáveis
Option Explicit
[ô]Não deixa informações no Cache
Response.Expires = 0
[ô]Declaração das variáveis
Dim Conexao, Rs, StrSql, nome, email, TipoTicket, Mensagem,RazaoSocial,Cnpj,CodigoGerado
[ô]Atribuição dos valores as respectivas variáveis
nome = Request.Form([Ô]txtnomeusuario[Ô])
mensagem = Request.Form([Ô]txtmensagem[Ô])
email = Request.Form([Ô]txtemailusuario[Ô])
tipoticket = Request.Form([Ô]CboTipoChamado[Ô])
razaosocial = request.form([Ô]txtrazaosocial[Ô])
cnpj = request.form([Ô]txtcnpj[Ô])
[ô]Cria o objeto RecordSet e atribui a variável
Set conexao = server.CreateObject([Ô]ADODB.Connection[Ô])
StrSql =[Ô]DRIVER={MySQL ODBC 5.1 Driver};Server=localhost;uid=root;Database=Teste[Ô]
conexao.open StrSql
[ô]Insere os dados na tabela aberta
StrSql = [Ô]INSERT INTO pedidoteste (razaosocial,cnpj,email,obs,usuario,tipochamado) [Ô]
StrSql = StrSql & [Ô]VALUES ([ô][Ô]&razaosocial&[Ô][ô],[ô][Ô]&cnpj&[Ô][ô],[ô][Ô]&email&[Ô][ô],[ô][Ô]&mensagem&[Ô][ô], [ô][Ô]&nome&[Ô][ô], [ô][Ô]&tipoticket&[Ô][ô])[Ô]
[ô]Caso ocorra um erro esta função de erro será chamada
On error Resume Next
[ô]Executa a inserção no Banco de Dados
Set Rs = conexao.Execute(StrSql)
[ô]Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0
[ô]Redireciona o usuário caso não tenha ocorrido erro na transação
if err = 0 Then
[ô]Pega o número gerado
set rs = recordset
rs.open([Ô]Select last_insert_id()[Ô]),conexao,1
CodigoGerado=rs(0)
[ô]Fecha o Objeto de Conexão
conexao.close
[ô][Ô]APAGA[Ô] qualquer instancia que possa ter no objeto objRs e objConn
Set Rs = Nothing
Set conexao = Nothing
[ô]Enviar um email com o ticket
[ô] Criar o corpo do email
StrSql = [Ô]<meta http-equiv=[ô]Content-Type[ô] content=[ô]text/html; charset=ISO-8859-1[ô]>[Ô]
ou
StrSql = [Ô]<meta http-equiv=[ô]Content-Type[ô] content=[ô]text/html; charset=irf-8[ô]>[Ô]
ou nenhuma dessas opções
StrSql = StrSql & [Ô]<font face=[ô]Verdana, Arial, Helvetica, sans-serif[ô] size=[ô]2[ô] color=[ô]#555555[ô]> [Ô]
StrSql = StrSql & Nome &[Ô],<br>[Ô]
StrSql = StrSql & [Ô]O chamado foi criado com sucesso, para o seguinte problema relatado: éééé [Ô]
StrSql = StrSql & [Ô]<br><b>[Ô] & mensagem & [Ô]</b><br><br>[Ô]
StrSql = StrSql & [Ô]CHAMADO Nº [Ô] & codigogerado & chr(10)
StrSql = StrSql & [Ô]</font>[Ô]
Dim ConfigEmail
Dim EnviaEmail
Dim schema
schema = [Ô]http://schemas.microsoft.com/cdo/configuration/[Ô]
[ô]cria o objeto para o envio de e-mail
Set EnviaEmail = Server.CreateObject([Ô]CDO.Message[Ô])
[ô]cria o objeto para a configuração do envio de e-mail
Set ConfigEmail = Server.CreateObject([Ô]CDO.Configuration[Ô])
ConfigEmail.Fields(schema & [Ô]smtpserver[Ô]) = [Ô]mail.equip-tecnologia.com[Ô]
ConfigEmail.Fields(schema & [Ô]sendusing[Ô]) = 2
ConfigEmail.Fields(schema & [Ô]smtpserverport[Ô]) = 587
ConfigEmail.Fields(schema & [Ô]smtpconnectiontimeout[Ô]) = 60
ConfigEmail.Fields(schema & [Ô]smtpusessl[Ô]) = False
ConfigEmail.Fields(schema & [Ô]smtpauthenticate[Ô]) = 1
ConfigEmail.Fields(schema & [Ô]sendusername[Ô]) = [Ô]email@email.com.br[Ô]
ConfigEmail.Fields(schema & [Ô]sendpassword[Ô]) = [Ô]123456[Ô]
ConfigEmail.Fields.Update
set EnviaEmail.Configuration = ConfigEmail
EnviaEmail.To = [Ô]email@ig.com.br[Ô][ô]
EnviaEmail.From = email
EnviaEmail.Subject = [Ô]Abertura de Chamado[Ô]
EnviaEmail.HtmlBody = StrSql
EnviaEmail.Send
set ConfigEmail = nothing
set EnviaEmail = nothing
end if
%>
<html>
<head>
<title>Cadastro de Ticket</title>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=utf-8[Ô]>
</head>
<body bgcolor = [Ô]#ffffff[Ô]>
<table width=[Ô]100%[Ô] border=[Ô]0[Ô] cellspacing=[Ô]2[Ô] cellpadding=[Ô]2[Ô]>
<tr bgcolor=[Ô]#0099FF[Ô]>
<td colspan=[Ô]7[Ô] height=[Ô]1[Ô] align=[Ô]center[Ô]> <font size=[Ô]2[Ô] color=[Ô]#FFFF00[Ô]><b><font face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]>Seus dados foram inseridos com sucesso - TICKET GERADO Nº <%= CodigoGerado %> </font></b></font></td>
</tr>
</table>
<a href=[Ô]Default.asp[Ô]>[Ô]Clique aqui para ir para a página principal[Ô]</a>
</body>
</html>
o Email chega assim
Alvaro Luiz Bernardi Junior,
O chamado foi criado com sucesso, para o seguinte problema relatado: iiii
iiiiii zzzzzz
CHAMADO N: 41
Esse iiiiiii do email na verdade o que esta escrito - ééééééé
Esse zzzz do email na verdade o que esta escrito - úúúúúúú
Alguém pode me dar uma força
Desde já agradeço a todos
Já pesquisei bastante, cheguei a achar até uma pessoa que estava com o mesmo problema que eu e usando o mesmo script, porém quando coloquei a solução que foi proposta, não adiantou
Segue a página onde envio o email e um alerta na página
O problema se encontra apenas no envio do email, a página e a gravação no mysql estão perfeitos
<%@LANGUAGE=[Ô]VBSCRIPT[Ô] CODEPAGE=[Ô]65001[Ô]%>
<%
[ô]Força a declaração de todas as variáveis
Option Explicit
[ô]Não deixa informações no Cache
Response.Expires = 0
[ô]Declaração das variáveis
Dim Conexao, Rs, StrSql, nome, email, TipoTicket, Mensagem,RazaoSocial,Cnpj,CodigoGerado
[ô]Atribuição dos valores as respectivas variáveis
nome = Request.Form([Ô]txtnomeusuario[Ô])
mensagem = Request.Form([Ô]txtmensagem[Ô])
email = Request.Form([Ô]txtemailusuario[Ô])
tipoticket = Request.Form([Ô]CboTipoChamado[Ô])
razaosocial = request.form([Ô]txtrazaosocial[Ô])
cnpj = request.form([Ô]txtcnpj[Ô])
[ô]Cria o objeto RecordSet e atribui a variável
Set conexao = server.CreateObject([Ô]ADODB.Connection[Ô])
StrSql =[Ô]DRIVER={MySQL ODBC 5.1 Driver};Server=localhost;uid=root;Database=Teste[Ô]
conexao.open StrSql
[ô]Insere os dados na tabela aberta
StrSql = [Ô]INSERT INTO pedidoteste (razaosocial,cnpj,email,obs,usuario,tipochamado) [Ô]
StrSql = StrSql & [Ô]VALUES ([ô][Ô]&razaosocial&[Ô][ô],[ô][Ô]&cnpj&[Ô][ô],[ô][Ô]&email&[Ô][ô],[ô][Ô]&mensagem&[Ô][ô], [ô][Ô]&nome&[Ô][ô], [ô][Ô]&tipoticket&[Ô][ô])[Ô]
[ô]Caso ocorra um erro esta função de erro será chamada
On error Resume Next
[ô]Executa a inserção no Banco de Dados
Set Rs = conexao.Execute(StrSql)
[ô]Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0
[ô]Redireciona o usuário caso não tenha ocorrido erro na transação
if err = 0 Then
[ô]Pega o número gerado
set rs = recordset
rs.open([Ô]Select last_insert_id()[Ô]),conexao,1
CodigoGerado=rs(0)
[ô]Fecha o Objeto de Conexão
conexao.close
[ô][Ô]APAGA[Ô] qualquer instancia que possa ter no objeto objRs e objConn
Set Rs = Nothing
Set conexao = Nothing
[ô]Enviar um email com o ticket
[ô] Criar o corpo do email
StrSql = [Ô]<meta http-equiv=[ô]Content-Type[ô] content=[ô]text/html; charset=ISO-8859-1[ô]>[Ô]
ou
StrSql = [Ô]<meta http-equiv=[ô]Content-Type[ô] content=[ô]text/html; charset=irf-8[ô]>[Ô]
ou nenhuma dessas opções
StrSql = StrSql & [Ô]<font face=[ô]Verdana, Arial, Helvetica, sans-serif[ô] size=[ô]2[ô] color=[ô]#555555[ô]> [Ô]
StrSql = StrSql & Nome &[Ô],<br>[Ô]
StrSql = StrSql & [Ô]O chamado foi criado com sucesso, para o seguinte problema relatado: éééé [Ô]
StrSql = StrSql & [Ô]<br><b>[Ô] & mensagem & [Ô]</b><br><br>[Ô]
StrSql = StrSql & [Ô]CHAMADO Nº [Ô] & codigogerado & chr(10)
StrSql = StrSql & [Ô]</font>[Ô]
Dim ConfigEmail
Dim EnviaEmail
Dim schema
schema = [Ô]http://schemas.microsoft.com/cdo/configuration/[Ô]
[ô]cria o objeto para o envio de e-mail
Set EnviaEmail = Server.CreateObject([Ô]CDO.Message[Ô])
[ô]cria o objeto para a configuração do envio de e-mail
Set ConfigEmail = Server.CreateObject([Ô]CDO.Configuration[Ô])
ConfigEmail.Fields(schema & [Ô]smtpserver[Ô]) = [Ô]mail.equip-tecnologia.com[Ô]
ConfigEmail.Fields(schema & [Ô]sendusing[Ô]) = 2
ConfigEmail.Fields(schema & [Ô]smtpserverport[Ô]) = 587
ConfigEmail.Fields(schema & [Ô]smtpconnectiontimeout[Ô]) = 60
ConfigEmail.Fields(schema & [Ô]smtpusessl[Ô]) = False
ConfigEmail.Fields(schema & [Ô]smtpauthenticate[Ô]) = 1
ConfigEmail.Fields(schema & [Ô]sendusername[Ô]) = [Ô]email@email.com.br[Ô]
ConfigEmail.Fields(schema & [Ô]sendpassword[Ô]) = [Ô]123456[Ô]
ConfigEmail.Fields.Update
set EnviaEmail.Configuration = ConfigEmail
EnviaEmail.To = [Ô]email@ig.com.br[Ô][ô]
EnviaEmail.From = email
EnviaEmail.Subject = [Ô]Abertura de Chamado[Ô]
EnviaEmail.HtmlBody = StrSql
EnviaEmail.Send
set ConfigEmail = nothing
set EnviaEmail = nothing
end if
%>
<html>
<head>
<title>Cadastro de Ticket</title>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=utf-8[Ô]>
</head>
<body bgcolor = [Ô]#ffffff[Ô]>
<table width=[Ô]100%[Ô] border=[Ô]0[Ô] cellspacing=[Ô]2[Ô] cellpadding=[Ô]2[Ô]>
<tr bgcolor=[Ô]#0099FF[Ô]>
<td colspan=[Ô]7[Ô] height=[Ô]1[Ô] align=[Ô]center[Ô]> <font size=[Ô]2[Ô] color=[Ô]#FFFF00[Ô]><b><font face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]>Seus dados foram inseridos com sucesso - TICKET GERADO Nº <%= CodigoGerado %> </font></b></font></td>
</tr>
</table>
<a href=[Ô]Default.asp[Ô]>[Ô]Clique aqui para ir para a página principal[Ô]</a>
</body>
</html>
o Email chega assim
Alvaro Luiz Bernardi Junior,
O chamado foi criado com sucesso, para o seguinte problema relatado: iiii
iiiiii zzzzzz
CHAMADO N: 41
Esse iiiiiii do email na verdade o que esta escrito - ééééééé
Esse zzzz do email na verdade o que esta escrito - úúúúúúú
Alguém pode me dar uma força
Desde já agradeço a todos
Na marcação HTML use:
<META http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=ISO-8859-1[Ô]>
ao invés de
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=utf-8[Ô]>
<META http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=ISO-8859-1[Ô]>
ao invés de
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=utf-8[Ô]>
Kerplunk obrigado pelo retorno
Más essa marcação é na tag da página ou do email, pois como coloquei no corpo do email usei as duas possibilidades, pois o problema se encontra no email
Más essa marcação é na tag da página ou do email, pois como coloquei no corpo do email usei as duas possibilidades, pois o problema se encontra no email
Kerplunk eu coloquei o que vc pediu na criação da página de exibição e o email foi enviado ainda errado, só que dessa vez teve uma diferença
O email chegou dessa forma
Alvaro Luiz Bernardi Junior,
O chamado foi criado com sucesso, para o seguinte problema relatado: ????
iiiiii zzzzzz
CHAMADO N? 51
Esses ??????? eram iiiiiiii, eles mudaram exatamente com o código que vc postou, porém o resto ficou a mesma coisa
Isso mudou pq o texto acentuado esta escrito
[Ô] StrSql = StrSql & [Ô]O chamado foi criado com sucesso, para o seguinte problema relatado: éééé [Ô]
e o que esta na variável continuou a mesma coisa
StrSql = StrSql & [Ô]<br><b>[Ô] & mensagem & [Ô]</b><br><br>[Ô]
O email chegou dessa forma
Alvaro Luiz Bernardi Junior,
O chamado foi criado com sucesso, para o seguinte problema relatado: ????
iiiiii zzzzzz
CHAMADO N? 51
Esses ??????? eram iiiiiiii, eles mudaram exatamente com o código que vc postou, porém o resto ficou a mesma coisa
Isso mudou pq o texto acentuado esta escrito
[Ô] StrSql = StrSql & [Ô]O chamado foi criado com sucesso, para o seguinte problema relatado: éééé [Ô]
e o que esta na variável continuou a mesma coisa
StrSql = StrSql & [Ô]<br><b>[Ô] & mensagem & [Ô]</b><br><br>[Ô]
Tente usar o Server.HTMLEncode para codificar corretamente estes caracteres, algo do tipo
StrSql = StrSql & [Ô]<br><b>[Ô] & Server.HTMLEncode(mensagem) & [Ô]</b><br><br>[Ô]
StrSql = StrSql & [Ô]<br><b>[Ô] & Server.HTMLEncode(mensagem) & [Ô]</b><br><br>[Ô]
Ocelot obrigado pelo retorno
Estava olhando e no schemas da microsoft não tem algo parecido com isso que vc falou, somente
[ô]ObjSendMail.HTMLBody = [Ô]this is the body[Ô]
ObjSendMail.TextBody = [Ô]this is the body[Ô]
E esses dois métodos eu ja utilizei
Estava olhando e no schemas da microsoft não tem algo parecido com isso que vc falou, somente
[ô]ObjSendMail.HTMLBody = [Ô]this is the body[Ô]
ObjSendMail.TextBody = [Ô]this is the body[Ô]
E esses dois métodos eu ja utilizei
E você testou o que eu falei?
Ocelot eu testei o que vc falou, e não deu a mensagem que não dava suporte ao objeto e acabei procurando e outros sites e achei no http://wiki.locaweb.com.br/pt-br/Cdosys uma outra documentação que a dona microsoft não postou e dentre deles tinha uma opção para definir o caracter da mensagem, não como eu tinha posto no código
[ô] Criar o corpo do email
StrSql = [Ô]<meta http-equiv=[ô]Content-Type[ô] content=[ô]text/html; charset=ISO-8859-1[ô]>[Ô]
ou
StrSql = [Ô]<meta http-equiv=[ô]Content-Type[ô] content=[ô]text/html; charset=irf-8[ô]>[Ô]
más sim uma opção do objeto
[ô]Para definir o charset da mensagem
[ô]objCDOSYSMail.BodyPart.Charset = [Ô]utf-8[Ô]
Com isso o meu email foi enviado com todas as acentuações
Apenas colocando o código como que ficou.
Após o Update
set EnviaEmail.Configuration = ConfigEmail
EnviaEmail.To = [Ô]email@ig.com.br[Ô][ô]
EnviaEmail.From = email
EnviaEmail.Subject = [Ô]Abertura de Chamado[Ô]
EnviaEmail.BodyPart.Charset = [Ô]utf-8[Ô]
EnviaEmail.HtmlBody = StrSql
EnviaEmail.Send
Agradeço a todos pela ajuda
[ô] Criar o corpo do email
StrSql = [Ô]<meta http-equiv=[ô]Content-Type[ô] content=[ô]text/html; charset=ISO-8859-1[ô]>[Ô]
ou
StrSql = [Ô]<meta http-equiv=[ô]Content-Type[ô] content=[ô]text/html; charset=irf-8[ô]>[Ô]
más sim uma opção do objeto
[ô]Para definir o charset da mensagem
[ô]objCDOSYSMail.BodyPart.Charset = [Ô]utf-8[Ô]
Com isso o meu email foi enviado com todas as acentuações
Apenas colocando o código como que ficou.
Após o Update
set EnviaEmail.Configuration = ConfigEmail
EnviaEmail.To = [Ô]email@ig.com.br[Ô][ô]
EnviaEmail.From = email
EnviaEmail.Subject = [Ô]Abertura de Chamado[Ô]
EnviaEmail.BodyPart.Charset = [Ô]utf-8[Ô]
EnviaEmail.HtmlBody = StrSql
EnviaEmail.Send
Agradeço a todos pela ajuda
Tópico encerrado , respostas não são mais permitidas