Captura palavras com acentos, mais se perdem na hora de receber

Digon · Setembro 2, 2009

Olá

estou com um problema na hora em que recebe o convite as palavras com acentos não aparecem no email, fiz alguns testes somente com caracteres especiais e eles conseguem passar normalmente.

abaixo segue o codigo

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Dim aniversariante, convidado, dia, inicio, fim, msg, assunto, url, mensagem

aniversariante = Request.Form("aniversariante")
convidado = Request.Form("convidado")
email_aniversariante = Request.Form("email_remete")
email_convidado = Request.Form("email_destino")
dia = Request.Form("dia")
inicio = Request.Form("inicio")
fim = Request.Form("fim")
msg = Request.Form("mensagem")
assunto = "Convite de aniversÃ¡rio"
url = "convite.asp?envia=true&aniversariante="&aniversariante&"&convidado="&convidado&"&dia="&dia&"&inicio="&inicio&"&fim="&fim&"&msg="&msg&""

Set Mail = Server.CreateObject("CDONTS.NewMail")

mensagem = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
mensagem = mensagem & "<html>"
mensagem = mensagem & "<head>"
mensagem = mensagem & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"
mensagem = mensagem & "<title>Convite de aniversário no Buffet Banana Power</title>"
mensagem = mensagem & "<style type='text/css'>"
'mensagem = mensagem & "body{background-image:url('http://www.buffetbananapower.com.br/imagens/convite.jpg'); background-repeat: no-repeat;}"
mensagem = mensagem & "body {margin: 0; padding: 0; font: 14px Comic Sans MS, Verdana;}"
mensagem = mensagem & "A{font:8pt Tahoma, Verdana}"
mensagem = mensagem & "A:link{text-decoration: underline; color:#993333}"
mensagem = mensagem & "A:visited{text-decoration: underline; color:#993333}"
mensagem = mensagem & "A:active{text-decoration: underline; color:#993333}"
mensagem = mensagem & "A:hover{text-decoration: none; color:#CC6666}"
mensagem = mensagem & "#imagem{z-index:0}"
mensagem = mensagem & "#convidado{position:absolute; top: 188px; left: 365px; font-size:18px; width: 180px; text-align:center; z-index:3}"
mensagem = mensagem & "#aniversariante{position:absolute; top: 243px; left: 477px; font-size:16px; color:#006699;}"
mensagem = mensagem & "#dia{position:absolute; top: 310px; left: 326px; color: #006699; z-index:2}"
mensagem = mensagem & "#inicio{position:absolute; top: 310px; left: 494px; color: #006699; z-index:2}"
mensagem = mensagem & "#fim{position:absolute; top: 310px; left: 585px; color: #006699; z-index:2}"
mensagem = mensagem & "#mensagem{position:absolute; top: 365px; left: 226px; width: 380px; color: #006699; border: 1px solid #666666; z-index:2}"
mensagem = mensagem & "</style>"
mensagem = mensagem & "</head>"
mensagem = mensagem & "<body topmargin=0 leftmargin=0 rightmargin=0 bottommargin=0 marginheight=0 marginwidth=0  text='#006699'>"
mensagem = mensgem & "<font face='Comic Sans MS, Verdana' color='#006699'><b>"
mensagem = mensagem & "<table background='http://www.buffetbananapower.com.br/imagens/convite.jpg' width='890' height='631'>"
mensagem = mensagem & "<tr>"
mensagem = mensagem & "  <td width='209'></td>"
mensagem = mensagem & "	  <td width='106'></td>"
mensagem = mensagem & "	  <td width='78'></td>"
mensagem = mensagem & "	  <td height='181' colspan='2'></td>"
mensagem = mensagem & "    <td width='45'></td>"
mensagem = mensagem & "    <td width='38'></td>"
mensagem = mensagem & "    <td width='301'></td>"
mensagem = mensagem & "  </tr>"
mensagem = mensagem & "	<tr>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td height='29' colspan='5'  align='center' valign='middle'>" & convidado & "</td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "  </tr>"
mensagem = mensagem & "	<tr>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td height='23' colspan='2'></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "  </tr>"
mensagem = mensagem & "	<tr>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td width='61' height='23'></td>"
mensagem = mensagem & "     <td height='23' colspan='4'>" & aniversariante & "</td>"
mensagem = mensagem & "  </tr>"
mensagem = mensagem & "	<tr>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td height='39' colspan='2'></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "  </tr>"
mensagem = mensagem & "	<tr>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td>" & dia & "</td>"
mensagem = mensagem & "	  <td height='21' colspan='2'></td>"
mensagem = mensagem & "	  <td>" & inicio & "</td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td>" & fim & "</td>"
mensagem = mensagem & " </tr>"
mensagem = mensagem & "	<tr>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td height='22' colspan='2'></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "  </tr>"
mensagem = mensagem & "	<tr>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td height='269' colspan='6' valign='top'>" & msg & "</td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	</tr>"
mensagem = mensagem & "	<tr>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "	  <td height='0' colspan='6'></td>"
mensagem = mensagem & "	  <td></td>"
mensagem = mensagem & "  </tr>"
mensagem = mensagem & "</table>"
mensagem = mensagem & "</b></font>"
mensagem = mensagem & "</body>"
mensagem = mensagem & "</html>"

Mail.From = email_aniversariante
Mail.To = email_convidado
Mail.Subject = assunto
Mail.Importance = 2
Mail.BodyFormat = 0
Mail.MailFormat = 0
Mail.Body = mensagem
Mail.Send
Set Mail = Nothing 

Response.Redirect(url) 
 
%>

Ted k' · Setembro 2, 2009

No DW você abre esse arquivo, na parte de Modify http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Page Properties... Selecione Title/Encoding, mude o Encoding para UTF-8 e aplique

Deixe sua pagina toda UTF-8 até no charset!

Digon · Setembro 2, 2009

No DW você abre esse arquivo, na parte de Modify http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Page Properties... Selecione Title/Encoding, mude o Encoding para UTF-8 e aplique

Deixe sua pagina toda UTF-8 até no charset!

coloquei na pagina que contem o formulario e na que cria e envia a mensagem para o email e não deu certo.

Depois que eu tinha postado eu acabei acertando aqui, ao invés de colocar UTF-8 eu experimentei colocar Europeu Ocidental

Thank you Ted K

Ted k' · Setembro 2, 2009

usa entao esse codepage

<%@LANGUAGE="VBSCRIPT" %>
<% Response.CodePage = 28591 %>

converte tudo para ISO como você quer!

qualquer dúvida posta, ou no link

http://www.example-code.com/asp/asp-charset-convert-tutorial.asp

Entrar

Arquivado

Captura palavras com acentos, mais se perdem na hora de receber

Recommended Posts

Digon 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Digon 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante