NO SAI A PONTUAO NO ENVIO DO EMAIL

 Tópico anterior Próximo tópico Novo tópico

NO SAI A PONTUAO NO ENVIO DO EMAIL

ASP CLASSICO

 Compartilhe  Compartilhe  Compartilhe
#437300 - 15/04/2014 12:57:01

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Galera no conheo muito o ASP, alias quase nada, ms estou chamando um form onde vc abre um chamado para a assistncia e estou com um problema na pontuao do email, quando uso qqer acento ele no sai

J pesquisei bastante, cheguei a achar at uma pessoa que estava com o mesmo problema que eu e usando o mesmo script, porm quando coloquei a soluo que foi proposta, no adiantou

Segue a pgina onde envio o email e um alerta na pgina

O problema se encontra apenas no envio do email, a pgina e a gravao no mysql esto perfeitos

<%@LANGUAGE=[]VBSCRIPT[] CODEPAGE=[]65001[]%>
<%
[]Fora a declarao de todas as variveis
Option Explicit
[]No deixa informaes no Cache
Response.Expires = 0
[]Declarao das variveis
Dim Conexao, Rs, StrSql, nome, email, TipoTicket, Mensagem,RazaoSocial,Cnpj,CodigoGerado

[]Atribuio dos valores as respectivas variveis
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 varivel
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 funo de erro ser chamada
On error Resume Next
[]Executa a insero no Banco de Dados
Set Rs = conexao.Execute(StrSql)
[]Caso a funo On Error Resume Next no tenha sido chamada o objeto err ser = a 0
[]Redireciona o usurio caso no tenha ocorrido erro na transao
if err = 0 Then
    []Pega o nmero gerado
    set rs = recordset
    rs.open([]Select last_insert_id()[]),conexao,1
    CodigoGerado=rs(0)

    []Fecha o Objeto de Conexo
    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 opes

    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 configurao 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 pgina 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 -


Algum pode me dar uma fora
Desde j agradeo a todos

Teoria quando se sabe tudo, e nada funciona. Prtica e quando tudo funciona e ningum sabe porque.
[]Aquele que quer aprender gosta que lhe digam quando esta errado;
s o tolo no gosta de ser corrigido -[]Prov.12:1


#437302 - 15/04/2014 13:11:28

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Na marcao HTML use:
<META http-equiv=[]Content-Type[] content=[]text/html; charset=ISO-8859-1[]>
ao invs de
<meta http-equiv=[]Content-Type[] content=[]text/html; charset=utf-8[]>



_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#437303 - 15/04/2014 13:17:04

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Kerplunk obrigado pelo retorno

Ms essa marcao na tag da pgina ou do email, pois como coloquei no corpo do email usei as duas possibilidades, pois o problema se encontra no email

Teoria quando se sabe tudo, e nada funciona. Prtica e quando tudo funciona e ningum sabe porque.
[]Aquele que quer aprender gosta que lhe digam quando esta errado;
s o tolo no gosta de ser corrigido -[]Prov.12:1


#437304 - 15/04/2014 13:44:57

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Kerplunk eu coloquei o que vc pediu na criao da pgina de exibio e o email foi enviado ainda errado, s que dessa vez teve uma diferena
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 cdigo que vc postou, porm 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 varivel continuou a mesma coisa
StrSql = StrSql & []<br><b>[] & mensagem & []</b><br><br>[]


Teoria quando se sabe tudo, e nada funciona. Prtica e quando tudo funciona e ningum sabe porque.
[]Aquele que quer aprender gosta que lhe digam quando esta errado;
s o tolo no gosta de ser corrigido -[]Prov.12:1


#437305 - 15/04/2014 14:14:49

OCELOT
SOROCABA
Cadast. em:Março/2012


Tente usar o Server.HTMLEncode para codificar corretamente estes caracteres, algo do tipo

StrSql = StrSql & []<br><b>[] & Server.HTMLEncode(mensagem) & []</b><br><br>[]



#437307 - 15/04/2014 14:39:55

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Ocelot obrigado pelo retorno

Estava olhando e no schemas da microsoft no tem algo parecido com isso que vc falou, somente
[]ObjSendMail.HTMLBody = []this is the body[]
ObjSendMail.TextBody = []this is the body[]

E esses dois mtodos eu ja utilizei

Teoria quando se sabe tudo, e nada funciona. Prtica e quando tudo funciona e ningum sabe porque.
[]Aquele que quer aprender gosta que lhe digam quando esta errado;
s o tolo no gosta de ser corrigido -[]Prov.12:1


#437308 - 15/04/2014 14:42:58

OCELOT
SOROCABA
Cadast. em:Março/2012


E voc testou o que eu falei?



#437310 - 15/04/2014 15:04:06

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Ocelot eu testei o que vc falou, e no deu a mensagem que no dava suporte ao objeto e acabei procurando e outros sites e achei no http://wiki.locaweb.com.br/pt-br/Cdosys uma outra documentao que a dona microsoft no postou e dentre deles tinha uma opo para definir o caracter da mensagem, no como eu tinha posto no cdigo
[] 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[]>[]

ms sim uma opo do objeto

[]Para definir o charset da mensagem
[]objCDOSYSMail.BodyPart.Charset = []utf-8[]

Com isso o meu email foi enviado com todas as acentuaes

Apenas colocando o cdigo como que ficou.

Aps 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

Agradeo a todos pela ajuda

Teoria quando se sabe tudo, e nada funciona. Prtica e quando tudo funciona e ningum sabe porque.
[]Aquele que quer aprender gosta que lhe digam quando esta errado;
s o tolo no gosta de ser corrigido -[]Prov.12:1


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ALVAROVB2009 em 15/04/2014 15:04:56