Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Jow Xavier

[Resolvido] Erro na acentuação do email

Recommended Posts

Boa tarde tenho um SCRIPT de envio de email na linguagem ASP, acontece q se alguma palavra do email tiver acento, a palavra vai para o destinatário com erro de acentuação, acredito eu q seja pq o MENU do meu site está em JavaScript, pois qd eu tiro o MENU o email vai correto com os acentos ... Como faço para resolver esse problema na acentuação do email sem ter q trocar o MENU ???

Compartilhar este post


Link para o post
Compartilhar em outros sites

como está sua página? Mostra pra gente...

 

Veja se no ASP não existe alguma função de conversão de caracteres (assim como por exemplo a função utf8_decode() do PHP)!

 

ABRAX!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

então cara dei uma pesquisada e ñ econtrei nada ... abvaixo minha página

 

<META HTTP-EQUIV="REFRESH" CONTENT="5;URL=pesquisar_projetos.asp"> <!-- define um redirecionamento automatico da página -->
<% 
if session("login") <> true then
  response.redirect "default.asp"
end if
%>
<style type="text/css">
<!--
#apDiv1 {
	position:absolute;
	width:188px;
	height:324px;
	z-index:1;
	left: 23px;
	top: 57px;
}
-->
</style>
<link href="estilos.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style><table width="700" height="480" border="0" cellpadding="0" cellspacing="0">
  <tr>
	<td height="100" colspan="2" valign="top"><img src="img/barra_jobs.jpg" width="700" height="100" /></td>
  </tr>
  
  <!-- Menu Topo -->
   <tr>
  <td height="25" colspan="2" valign="top"><img src="titulo/tit_clientes.gif"></td>
  </tr> 
  <tr> 
	<td width="14%" valign="top"> </td>
	<td width="86%" height="42"><!--#include file="includes/links.asp"--></td>
  </tr>
  <tr> 
	<td valign="top"> 
	 <!--#include file="includes/agenda.asp"-->
	<td valign="top" nowrap scope="col"><div align="left"> 
		<!-- #include file="config/conexao.asp"-->
<%

call abre_conectar

sql = "Select * from membros"  

set tab = cnn.execute(sql) %>
		  
</div>
		  <span class="titulo1">Usuário: </span>
				<span class="link1_inativo"><%Response.write(Session("nome")) %></span>				<a href="logout.asp" class="link1_inativo">(Sair)</a><br><br>

<div class=titulo1>Notificação de envio de e-email</div>
<br>
<%
'Resgata valor checkbox separados por virgula.
strP=request.form("box")
titulo=request.form("titulo")
obs=request.form("obs")

ArrP=split( strP , "," ) 'No caso coloquei virgula, pois o separador é este, caso seja outro basta mudara para o desejado.

'Faz o loop para enviar até que dispare todos os selecionados.
for i = 0 to UBound(ArrP)
Set objmail = Server.CreateObject("CDONTS.NewMail") 

email = Session("email")
objMail.From = email   
objMail.To = ArrP(i)
objMail.Cc = ""
objMail.Bcc = "" 'caso queira cópia oculta

objMail.Subject = request.form("titulo") 'titulo da mensagem
sHTML = sHTML & "<html><meta http-equiv=""content-type"" content=""text/html; charset=utf-8"">"
sHTML = sHTML & "<head>"
sHTML = sHTML & "<title>Thatto Interativa</title>" 
sHTML = sHTML & "</head>"
sHTML = sHTML & "<body leftmargin=""0"" topmargin=""0"" rightmargin=""0"" bottommargin=""0"" bgcolor="""">"
sHTML = sHTML & request.form("obs") 'corpo da mensagem do formulário
sHTML = sHTML & "</body>"
sHTML = sHTML & "</html>"

objMail.MailFormat = 0 
objMail.BodyFormat = 0 
objMail.body = sHTML

objMail.Send
sHTML = ""

On Error Resume Next
set objMail = Nothing

if Err <> 0 Then
Response.Write "Foi encontrado um erro (" & Err.Description & ")."
Response.End
End if

'Fim loop.
next

'Gera alerta de envio ao fim do código.
response.Write("<font face='verdana' size='1'><br>E-mails enviado com sucesso!</font><br>")
response.Write("<font face='verdana' size='1'>Para: "&strP&".</font>") %>
 
<%

'call abre_conectar

titulo=request.Form("titulo")
box=request.Form("box")
obs=request.Form("obs")

sql = "insert into agenda (nome, titulo, obs, box)"
sql = sql & " values ('"&Session("nome")& "' ,'"&titulo&"', '"&obs&"', '"&box&"')"

set tab = cnn.execute(sql) 

call fecha_conectar
set tab = nothing %>

</div>
</div></td>
	  </tr>
	</table></td>
  </tr>
</table>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom... aí só tem coisa de ASP! rs...

Mas acho que já sei qual o problema! :D

Mude esta linha:

sHTML = sHTML & "<html><meta http-equiv=""content-type"" content=""text/html; charset=utf-8"">"

Para esta:

sHTML = sHTML & "<html><meta http-equiv=""content-type"" content=""text/html; charset=iso-8859-1"">"

 

Vê se rola!

 

ABRAX!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

opá beleza cara eu já tinho feito isso e ñ tinha funcionado heehehe ... o importante é q agora funfou ... valeuuu abraçãoooo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Beleeeza :D :D :D

 

ABrax véi! Qq coisa tamo aí!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.