Ir para conteúdo

Arquivado

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

Fabio Mazzi

envio de email não mostra letras ascentuadas

Por , em ASP Clássico

Recommended Posts

Fabio Mazzi    0

Fabio Mazzi
Postado

Pessoal, eu tenho o codigo abaixo, porém ao enviar email, as letras com ascentuação nao aparecem.

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
	Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
	Mailer.ContentType = "text/html"
	Mailer.RemoteHost = "smtp2.locaweb.com.br"
	Mailer.FromName = request.form("solicitante") 'quem envia'
	Mailer.FromAddress = request.form("email") 'e-mail de quem envia'
	Mailer.AddRecipient "teste", request.form("destination") 'quem recebe
	Mailer.AddBCC "Four", "web@four.com.br" 'quem recebe
	Mailer.Subject= request.form("subject")
	Mailer.Bodytext = "<style type='text/css'>"
	myMessage = myMessage & ".indicenot{font-size:11px; text-decoration: none; color:#cc0000; font-family:Verdana, Arial, Helvetica, sans-serif;}"
	myMessage = myMessage & ".indicenot:hover{color:#000000; text-decoration: underline;}"
	myMessage = myMessage & ".verdecinza{font-size:11px; text-decoration: underline; color:#006600; font-family:Verdana, Arial, Helvetica, sans-serif;}"
	myMessage = myMessage & ".verdecinza:hover{color:#999999; text-decoration: none;}"
	myMessage = myMessage & "</style>"
	myMessage = myMessage & "<body>"
	myMessage = myMessage & "<p>"
	myMessage = myMessage & " <strong> "&request.form("subject")&" </strong><p>"
	myMessage = myMessage & "Empresa: "&request.form("empresa")&"<br>"
	myMessage = myMessage & "Nome: "&request.form("solicitante")&"<br>"
	myMessage = myMessage & "Telefone: "&request.form("ddd")&" "&request.form("fone")&"<br>"
	myMessage = myMessage & "email: "&request.form("email")&"<br>"
		  ......
	Mailer.BodyText = myMessage
	if Mailer.SendMail then
	response.redirect(request.form("feedback"))
	 else
		  Response.Write ("Ocorreu um erro.<BR>")
		 Response.Write ("O Erro é " & Mailer.Response)
	end if
	Mailer.SendMail
	set Mailer = nothing
%>

E ja tentei as seguintes variações:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Email Gascat</title>
<%
	Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
	Mailer.ContentType = "text/html"
	Mailer.RemoteHost = "smtp2.locaweb.com.br"
	Mailer.FromName = request.form("solicitante") 'quem envia'
	Mailer.FromAddress = request.form("email") 'e-mail de quem envia'
	Mailer.AddRecipient "teste", request.form("destination") 'quem recebe
	Mailer.AddBCC "Four", "web@four.com.br" 'quem recebe
	Mailer.Subject= request.form("subject")
	Mailer.Bodytext = "<style type='text/css'>"
	myMessage = myMessage & ".indicenot{font-size:11px; text-decoration: none; color:#cc0000; font-family:Verdana, Arial, Helvetica, sans-serif;}"
	myMessage = myMessage & ".indicenot:hover{color:#000000; text-decoration: underline;}"
	myMessage = myMessage & ".verdecinza{font-size:11px; text-decoration: underline; color:#006600; font-family:Verdana, Arial, Helvetica, sans-serif;}"
	myMessage = myMessage & ".verdecinza:hover{color:#999999; text-decoration: none;}"
	myMessage = myMessage & "</style>"%>
	</head>
<%	myMessage = myMessage & "<body>"
	myMessage = myMessage & "<p>"
	myMessage = myMessage & " <strong> "&request.form("subject")&" </strong><p>"
	myMessage = myMessage & "Empresa: "&request.form("empresa")&"<br>"
	myMessage = myMessage & "Nome: "&request.form("solicitante")&"<br>"
.......
%>
</html>

ou

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<html>
<%
	Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
	Mailer.ContentType = "text/html"
	Mailer.RemoteHost = "smtp2.locaweb.com.br"
	Mailer.FromName = request.form("solicitante") 'quem envia'
	Mailer.FromAddress = request.form("email") 'e-mail de quem envia'
	Mailer.AddRecipient "teste", request.form("destination") 'quem recebe
	Mailer.AddBCC "Four", "web@four.com.br" 'quem recebe
	Mailer.Subject= request.form("subject")
	Mailer.Bodytext = "<html>"
	myMessage = myMessage & "<head>"
	myMessage = myMessage & "<meta http-equiv='Content-Type' content='text/html; charset=utf-8' />"
	myMessage = myMessage & "</head>"
	myMessage = myMessage & "<style type='text/css'>"
	myMessage = myMessage & ".indicenot{font-size:11px; text-decoration: none; color:#cc0000; font-family:Verdana, Arial, Helvetica, sans-serif;}"
	myMessage = myMessage & ".indicenot:hover{color:#000000; text-decoration: underline;}"
	myMessage = myMessage & ".verdecinza{font-size:11px; text-decoration: underline; color:#006600; font-family:Verdana, Arial, Helvetica, sans-serif;}"
	myMessage = myMessage & ".verdecinza:hover{color:#999999; text-decoration: none;}"
	myMessage = myMessage & "</style>"
	myMessage = myMessage & "<body>"
	myMessage = myMessage & "<p>"
	myMessage = myMessage & " <strong> "&request.form("subject")&" </strong><p>"
	myMessage = myMessage & "Empresa: "&
.......
			   myMessage = myMessage & "Material de construção: "&request.form("material_construcao")&"<br>"
			myMessage = myMessage & "Observações: <br>         "&request.form("observacoes")&"<p>"
			myMessage = myMessage & "</body>"
			myMessage = myMessage & "</html>"
%>

e nenhum destes resolveu, será que alguem poderia me ajudar, pois se ele nao aparece, ele mostra o ponto de ?

 

 

grato.

Compartilhar este post

Link para o post
Compartilhar em outros sites

beto_solobó    0

beto_solobó
Postado

Fábio... tenho o mesmo problema...

 

Desisti de tentar... coloquei uma função que troca todos os caracteres com acento por caracteres sem acento.

 

A única ajuda que posso te dar sobre seu código é pra você fazer uma variação lá no CODEPAGE.

 

Dá uma pesquisada que cada CODEPAGE irá interpretar os acentos de uam forma...

 

Abraço!

 

Beto

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fabio Mazzi    0

Fabio Mazzi
Postado

Ted K, perfeito, eu consegui chegar ao que esperava fazendo exatamente oq me disse, removendo o codeapge, perfeito, valew mesmo a ajuda mesmo resolvido antes, se nao tivesse a sua dica ia ser preciosissima.

 

Alguem sabe como mudo o texto la para resolvido?

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

os moderadores mudam o tópico para resolvido

 

possivelmente o codepage correto seria o padrão 1252 e não o 65001

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito