Ir para conteúdo

POWERED BY:

Arquivado

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

diego_sl

Email com HTML

Recommended Posts

Eae pessoal,seguinte...eu estou tentando enviar um email em formato HTML pelo aspSmartMail,mas o problema é que quando eu envio o email e abro ele no Hotmail,ou no outlook, o código HTML fica todo bagunçado :o , mas se eu mando exibir em tela(com um response.write(msg)) ou vendo ele com o Pegasus mail, fica perfeito,alguém saberia me dizer porque isso?a rotina de envio segue abaixo<%Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail") 'Tipo de envio do mailmySmartMail.ContentType = "text/html"'Servidor de mailmySmartMail.Server = "mail.lala.com.br" 'De:mySmartMail.SenderName = "lala"mySmartMail.SenderAddress = "info@lala.com.br" 'Reply to:mySmartMail.ReplyTos.Add "clinica@lala.med.br"msg = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"msg = msg & "<html>"msg = msg & "<body>"msg = msg & "<table width=""100%"" border=""0"">"msg = msg & "<tr><td><img src=""http://www.lala.med.br/img/logo_pe.gif""></td></tr>"msg = msg & "<tr><td>Boletim Informativo</td><td align=""right"">"&data&"</td>"msg = msg & "<tr><td>Olá "&etiqueta&" "&nome&""msg = msg & conteudo&"</td></tr>"msg = msg & noticiamsg = msg & cursomsg = msg & eventomsg = msg & "<tr><td align=""center"">"msg = msg & "<a href=""http://www.lala.med.br"">http://www.lala.med.br</a>"msg = msg & "</td></tr>"msg = msg & "</table>"msg = msg & "</body>"msg = msg & "</html>"mySmartMail.Subject = titulomySmartMail.Body = msgmySmartMail.SendMail %>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Eae pessoal,seguinte...eu estou tentando enviar um email em formato HTML pelo aspSmartMail,mas o problema é que quando eu envio o email e abro ele no Hotmail,ou no outlook, o código HTML fica todo bagunçado :lol: , mas se eu mando exibir em tela(com um response.write(msg)) ou vendo ele com o Pegasus mail, fica perfeito,alguém saberia me dizer porque isso?a rotina de envio segue abaixo

 

<%

Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")

 

'Tipo de envio do mail

mySmartMail.ContentType = "text/html"

 

'Servidor de mail

mySmartMail.Server = "mail.lala.com.br"

 

'De:

mySmartMail.SenderName = "lala"

mySmartMail.SenderAddress = "info@lala.com.br"

 

'Reply to:

mySmartMail.ReplyTos.Add "clinica@lala.med.br"

 

 

msg = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"

msg = msg & "<html>"

msg = msg & "<body>"

msg = msg & "<table width=""100%"" border=""0"">"

msg = msg & "<tr><td><img src=""http://www.lala.med.br/img/logo_pe.gif""></td></tr>"

 

msg = msg & "<tr><td>Boletim Informativo</td><td align=""right"">"&data&"</td>AQUI TAH FALTANDO FECHAR TR"

msg = msg & "<tr><td>Olá "&etiqueta&" "&nome&""

msg = msg & conteudo&"</td></tr>"

 

msg = msg & noticia

msg = msg & curso

msg = msg & evento

 

 

msg = msg & "<tr><td align=""center"">"

msg = msg & "<a href=""http://www.lala.med.br"">http://www.lala.med.br</a>"

msg = msg & "</td></tr>"

msg = msg & "</table>"

msg = msg & "</body>"

msg = msg & "</html>"

 

mySmartMail.Subject = titulo

mySmartMail.Body = msg

mySmartMail.SendMail %>

Ali onde eu marquei tah faltando fechar uma tag, o outlook eh muito chato na interpretacao do html, e se o problema for acento, veja se o componente dispoe da opcao EncodeType ou coisa assim no nosso caso precisa se -81881 uma coisa assim que nao me lembro agora isso evita que os acentos fiquem zuados

Compartilhar este post


Link para o post
Compartilhar em outros sites

ai cara...arrumei akilo q tui falou...mas mesmo assim continua dando erro...

v qq + pode c ai..

 

<%

Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")

 

'Tipo de envio do mail

mySmartMail.ContentType = "text/html"

mySmartMail.CharSet = "ISO-8188-1"

'Servidor de mail

mySmartMail.Server = "mail.lala.com.br"

 

'De:

mySmartMail.SenderName = "lala"

mySmartMail.SenderAddress = "info@lala.com.br"

 

'Reply to:

mySmartMail.ReplyTos.Add "clinica@lala.med.br"

 

 

msg = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"

msg = msg & "<html>"

msg = msg & "<body>"

msg = msg & "<table width=""100%"" border=""0"">"

msg = msg & "<tr><td><img src=""http://www.lala.med.br/img/logo_pe.gif""></td></tr>"

 

msg = msg & "<tr><td>Boletim Informativo</td><td align=""right"">"&data&"</td></tr>"

msg = msg & "<tr><td>Olá "&etiqueta&" "&nome&""

msg = msg & conteudo&"</td></tr>"

 

msg = msg & noticia

msg = msg & curso

msg = msg & evento

 

 

msg = msg & "<tr><td align=""center"">"

msg = msg & "<a href=""http://www.lala.med.br"">http://www.lala.med.br</a>"

msg = msg & "</td></tr>"

msg = msg & "</table>"

msg = msg & "</body>"

msg = msg & "</html>"

 

mySmartMail.Subject = titulo

mySmartMail.Body = msg

mySmartMail.SendMail %>

Compartilhar este post


Link para o post
Compartilhar em outros sites

ai cara...arrumei akilo q tui falou...mas mesmo assim continua dando erro...

v qq + pode c ai..

 

<%

Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")

 

'Tipo de envio do mail

mySmartMail.ContentType = "text/html"

mySmartMail.CharSet = "ISO-8188-1"

'Servidor de mail

mySmartMail.Server = "mail.lala.com.br"

 

'De:

mySmartMail.SenderName = "lala"

mySmartMail.SenderAddress = "info@lala.com.br"

 

'Reply to:

mySmartMail.ReplyTos.Add "clinica@lala.med.br"

 

 

msg = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"

msg = msg & "<html>"

msg = msg & "<body>"

msg = msg & "<table width=""100%"" border=""0"">"

msg = msg & "<tr><td colspan=""2""><img src=""http://www.lala.med.br/img/logo_pe.gif""></td></tr>"

 

msg = msg & "<tr><td>Boletim Informativo</td><td align=""right"">"&data&"</td></tr>"

msg = msg & "<tr><td colspan=""2""><>Olá "&etiqueta&" "&nome&""

msg = msg & conteudo&"</td></tr>"

 

msg = msg & noticia

msg = msg & curso

msg = msg & evento

 

 

msg = msg & "<tr><td align=""center"" colspan=""2""><>"

msg = msg & "<a href=""http://www.lala.med.br"">http://www.lala.med.br</a>"

msg = msg & "</td></tr>"

msg = msg & "</table>"

msg = msg & "</body>"

msg = msg & "</html>"

 

mySmartMail.Subject = titulo

mySmartMail.Body = msg

mySmartMail.SendMail %>

marquei em negrito

Compartilhar este post


Link para o post
Compartilhar em outros sites

eae cara...alterei lá o skema das colspan tb...eu já tinha alterado akilo...só skeci de coloka no código ali em cima...mas continua formatado errado...c quizer eu t mando um email de ezxemplo pra ti ver como que ta ficando...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ae diego....Eu respondi alguns topicos sobre o CDONTs...e coloquei exemplo também de enviar email no formato HTMLprocura algum topico como CDONTSabraços

Compartilhar este post


Link para o post
Compartilhar em outros sites
Alguém ++++????alguma idéia?PLIZZZZZZZZZZZZZZZZZZZZZZ

Já tentou a página do fabricante do componente?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Salgado,já...e lá o exemplo de Html é muito simples,não contém tabelas nem nda...dai deve funcionar...o problema que eu preciso enviar com tabelas imagens texto...e lá não tem nenhum exemplo nem documentação sobre isso...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Dá algum erro? ou só não envia formatado?

Compartilhar este post


Link para o post
Compartilhar em outros sites

:D Estranho isso, já que todo servidor Windows deveria ter o CDONTS instalado.....Vou tentar procurar alguma coisa, se eu encontrar de noite posto aqui...Abraços...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Karinha, vai aí um chute.Eu só conheço o CDonts e nunca tive problemas com formatação. Por isso só sei o básico. Há duas linhas, que não sei o propósito, mas sei que sem elas o layout não sai direito.Eis as linhas:

mensagem.bodyformat = 0mensagem.mailformat = 0

que tal tentar um:mySmartMail.bodyformat = 0mySmartMail.mailformat = 0Chuta aí. Vai que o goleira fura! :D

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.