Ir para conteúdo

POWERED BY:

Arquivado

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

icap

Problemas de envio de e-mail com CDO

Recommended Posts

Olá pessoal td bem??

 

mas uma vez venho recorrer a vcs...pois procurei na net e no forum daki tb e td q achei nao funcionou em meu codigo.

 

Seguinte, tenho um formulario onde o usuario coloca o conteudo do e-mail em um fckeditor. Dps envia o e-mail usando componente CDO. O e-mail muitas vees contem tabelas, imagens e mais outras coisas, porém quando tem caracter com acento o mesmo é substituido por um e dps não é interpretado qdo vou ler o e-mail, saja por outlook, browser, etc...

 

Já tentei colocar "SERVER.HTMLENCODE", mas ai piorou t nem imagens e tabela ele interpretou.

 

Não sei mais o q fazer, qdo imprimo o conteudo do formulario antes de envia-lo por e-mail aparece normal na tela. Por exemplo:

 

Na tela:

"

Título ãà áÀç ô

 

informações ;; testeé

"

 

No e-mail:

"

TÍTULO ÃÃ ÁÀÇ Ô

 

INFORMAÇÕES ;; TESTEÉ

"

 

Já usei "<META http-equiv=content-type content="text/html; charset=iso-8859-1">", sinceramente ainda não achei nd pra solucionar meu problema.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Segue o código de envio de e-mail, lembrando que a variavel "ConteudoEmail" é onde esta o html.

 

Set CDO  = Server.CreateObject("CDO.Message")
Caminho  = "http://schemas.microsoft.com/cdo/configuration/"
CDO.From = De
CDO.To   = destinatario
CDO.subject  = assuntoEmail
CDO.HtmlBody = ConteudoEmail
CDO.Configuration.Fields.Item(Caminho & "smtpauthenticate")	= 1
CDO.Configuration.Fields.Item(Caminho & "smtpserverport")	= 25
CDO.Configuration.Fields.Item(Caminho & "sendusing")		= 2 
CDO.Configuration.Fields.Item(Caminho & "smtpusessl")	= False 
			
'Configurar SMTP
CDO.Configuration.Fields.Item(Caminho & "smtpserver")	= RSSMTP("SMTPServidor")
CDO.Configuration.Fields.Item(Caminho & "sendemailaddress")	= RSSMTP("Email")
CDO.Configuration.Fields.Item(Caminho & "sendusername")	= RSSMTP("Email")
CDO.Configuration.Fields.Item(Caminho & "sendpassword")	= RSSMTP("SenhaEmail")
CDO.Configuration.Fields.Update
CDO.Send
Set CDO = nothing

aahhhhh tinha eskecido, uso esse código para enviar e-mail que nao vem conteudo do editor, ai vai normal. O problema é q eu preciso usar esse editor, mesmo achando q o problema pode ta nele!

Compartilhar este post


Link para o post
Compartilhar em outros sites

o Language tbm interfere coloque ele assim:

e caso você esteja usando Server.HTMLEnconde aconselho a retirar

 

ASP
<%@LANGUAGE="VBSCRIPT"%>

 

sem nenhum codepage

 

e no seu codigo de envio coloque essa linha abaixo:

CDO.ContentType = "text/html"

Compartilhar este post


Link para o post
Compartilhar em outros sites

Desculpem a demora pra responder o post, mas estava fazendo outras partes do projeto...

 

enfim utilizei o "CDO.ContentType = "text/html" " e o "@LANGUAGE="VBSCRIPT" " não resolveu nao... ¬¬

 

 

 

Desde já agradeço.

 

abs!

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.