[Resolvido] Envio de email HTML

[sauloborges 0]

Boa tarde galera, faz um tempo que eu não posto aqui no forum, mas dessa vez esse problema ta me deixando de cabelo em pé!

 

Eu implementei um sistema de envio de newsletter em um script de loja virtual que tenho aqui, acontece que ta tudo funcionando perfeitamente, so o corpo das mensagem que ta ficando estranho, vou explicar melhor com imagens:

 

Por exemplo, quando eu crio uma mensagem como essa:

 

Ela como podem ver esta formatada de maneira correta, abaixo segue o html dessa mensagem:

 

Eu clico em enviar e todos os campos são enviados para a mesma página que trata as informações e via ajax eu aciono outro script que envia a mensagem uma por vez, aí que esta o problema, as mensagens chegam mas sem formatação, inclusive faltando pedaços veja a imagem abaixo, é como a mensagem chega:

 

 

Eu já fiz várias alterações no script mas minhas opções acabaram, espero que você possam me ajudar, eu vou postando o código conforme a necessidade, pois é muita coisa pra não conjestionar o tópico!!

 

Espero ancioso pela ajuda de todos vocês!!!!! http://forum.imasters.com.br/public/style_emoticons/default/natal_smile.gif

 

Olha pra agilizar segue o código do CDONTS:

 

Set objEmail = Server.CreateObject("CDONTS.NewMail")
				objEmail.to = para
				objEmail.from = de
				objEmail.subject = assunto
				objEmail.Importance = 1
				objEmail.BodyFormat = 0
				objEmail.MailFormat = 0
				objEmail.body = mensagem		
				objEmail.send
			Set objEmail = Nothing

[hargon 64]

Usa CDOSYS ao invés de CDONTS. Faça o teste, se o erro repetir, dê um response.write na variável mensagem e poste o que ela armazena.

[xanburzum 169]

usa o CDOSYS e coloca a propriedade HtmlBody para sua mensagem

 

<% 
'Cria o objeto para o envio de e-mail 
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 

'Cria o objeto para configuração do SMTP 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 

'SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 

'Porta do SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 

'Porta do CDO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'Timeout 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 

objCDOSYSCon.Fields.update 

'Atualiza a configuração do CDOSYS para o envio do e-mail 
Set objCDOSYSMail.Configuration = objCDOSYSCon 

'E-mail do remetente. Você pode indicar no formato: 
' Nome <e-mail@dominio> ou somente o e-mail 
objCDOSYSMail.From = "Seu nome<email@teste.com.br>" 

'E-mail do destinatário. Você pode indicar no formato: 
' Nome <e-mail@dominio> ou somente o e-mail 
objCDOSYSMail.To = "Nome da pessoa<email@teste.com>" 

'Anexo. Substitua LOGIN pelo do seu FTP e TESTE pelo diretório do arquivo 
'objCDOSYSMail.AddAttachment("x:\web\arquivos\anexo.jpg") 

'Assunto da mensagem 
objCDOSYSMail.Subject = "Assunto" 

'Conteúdo da mensagem 

'para envio da mensagem no formato html altere o TextBody para HtmlBody 
'objCDOSYSMail.HtmlBody = "sua mensagem" 

'objCDOSYSMail.fields.update 
'Envia o e-mail 
objCDOSYSMail.Send 

'Destrói os objetos 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 

response.write "E-mail enviado com sucesso ..." 
%>

[sauloborges 0]

Aí valew mesmo pelas dicas, deu tudo certim!!! Desculpa demorar pra responder pois estive fora 4 dias. Abraços!!!!!!1