7 replies to this topic

[kaplan]

Salve gente estou com um problema mais doido q o batman

bom eu fiz um sistema no qual envia um e-mail ao cliente quando eu ativo o seu cadastro e ele recebe um e-mail com o assunto "ativação do site x"

no internet explore eu fui ver esta o assunto esta apareçendo certinho....
mais no outlook express apareçe assim: ativagao do site x

o que sera que pode ser eu ja deixei o meu texto assim:

ativação do site x

escrevendo pelo dreamweaver ele troca os acentos e tal por codigo, mais tb naum rolou, alguem tem ideia do que pode ser isto e como resolver???

[Generation]

no ASPMail voce pode setar o charset para ISO-8859-1

Exemplo:

EMail.CharSet = 2

[kaplan]

	Set Mailer = Server.CreateObject("Persits.MailSender")
	Mailer.Host = "host"
	Mailer.IsHTML = True
	Mailer.FromName   = reg("nome")
	'Mailer.From = dados("email_cad")
	Mailer.AddAddress email
	'Mailer.AddCC mailz
	'Mailer.AddBcc = mailz
	Mailer.CharSet = 2	
	Mailer.Subject = "Ativação de Cadastro"
	Mailer.Body = Mensagem
	Mailer.Send

é assim que tem que ficar pq o ativação ainda esta apareçendo ativagco
o mais doido é que quando eu clico em responder no outlook o assunto fica certinho so na caixa de entrada que fica errado o que fazer??

[Worm]

Set Mailer = Server.CreateObject("Persits.MailSender")
Mailer.Host = "host"
Mailer.IsHTML = True
Mailer.FromName = reg("nome")
'Mailer.From = dados("email_cad")
Mailer.AddAddress email
'Mailer.AddCC mailz
'Mailer.AddBcc = mailz
Mailer.CharSet = 2
Mailer.Subject = "Ativação de Cadastro"
Mailer.Body = response.charset = "iso-8859-1" & Mensagem
Mailer.Send

Testa ai e veja se resolve

[kaplan]

sem sucesso....o titulo ainda esta errado e no corpo do email veio escrito False...........
que negocio xatu heimmm

[Worm]

Faz assim então...

Set Mailer = Server.CreateObject("Persits.MailSender")
Mailer.Host = "host"
Mailer.IsHTML = True
Mailer.FromName = reg("nome")
'Mailer.From = dados("email_cad")
Mailer.AddAddress email
'Mailer.AddCC mailz
'Mailer.AddBcc = mailz
Mailer.CharSet = 2
Mailer.Subject = server.htmlencode("Ativação de Cadastro")
Mailer.Body = response.charset = "iso-8859-1" & Mensagem
Mailer.Send

Tive alguns problemas com acentuação mas foi em outro caso e o HtmlEncode() me salvou.

[kaplan]

eita ainda com erros buaaaa

o assunto apareçeu assim:

Ativa&# 231 ; & # 227;o de Cadastro

como se estive escrito pelo dreamweaver...

ahhh eu naum quero desistir tentei outros jeitos e naum rolou o que fazer agora???????

Edição feita por: kaplan, 25/08/2006, 16:16.

[Marcos-RJ]

Com Ajax, eu uso esta função p/ resonver problemas com acentuação, vê se resolve o seu problema.

Function BinaryToString(strBinary)
Dim intCount, xBinaryToString
xBinaryToString =""
For intCount = 1 to LenB(strBinary)
xBinaryToString = xBinaryToString & chr(AscB(MidB(strBinary,intCount,1)))
Next
BinaryToString = xBinaryToString
End Function

Mailer.Body = Mensagem = BinaryToString(mensagem)

se estiver usando algum "response.charset = "iso-8859-1" , tire p/ usar o código, senão dá erro!

Edição feita por: Marcos-RJ, 26/08/2006, 22:13.