Ir para conteúdo

POWERED BY:

Arquivado

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

diego_sl

Email com HTML

Por , em ASP Clássico

Recommended Posts

diego_sl    0

diego_sl
Postado

Eae galeraaaaaaaaaaaaaaaaaaaaaaa,vlw pela ajuda de todos,mas discobri qual era o problema. O problema que estava dando era porque como eu jogava tudo para dentro de uma variável,e quando eu associava a variavel para ser o corpo da mensagem,dava erro,pois a variavel ficava de um tamanho muito grande,ultrapassando o tamanho limite de uma linha html,então para resolver o problema, eu tive que quebrar a linha, com um Chr(13)+Chr(10)

 

o código ficou assim:

 

<%

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"">"&Chr(13)+Chr(10)

msg = msg & "<html>"&Chr(13)+Chr(10)

msg = msg & "<body>"&Chr(13)+Chr(10)

msg = msg & "<table width=""100%"" border=""0"">"&Chr(13)+Chr(10)

msg = msg & "<tr><td colspan=""2""><img src=""http://www.lala.med.br/img/logo_pe.gif""></td></tr>"&Chr(13)+Chr(10)

 

msg = msg & "<tr><td>Boletim Informativo</td><td align=""right"">"&data&"</td></tr>"&Chr(13)+Chr(10)

msg = msg & "<tr><td colspan=""2""><>Olá "&etiqueta&" "&nome&""&Chr(13)+Chr(10)

msg = msg & conteudo&"</td></tr>"&Chr(13)+Chr(10)

 

msg = msg & noticia

msg = msg & curso

msg = msg & evento

 

 

msg = msg & "<tr><td align=""center"" colspan=""2""><>"&Chr(13)+Chr(10)

msg = msg & "<a href=""http://www.lala.med.br"">http://www.lala.med.br</a>"&Chr(13)+Chr(10)

msg = msg & "</td></tr>"&Chr(13)+Chr(10)

msg = msg & "</table>"&Chr(13)+Chr(10)

msg = msg & "</body>"&Chr(13)+Chr(10)

msg = msg & "</html>"&Chr(13)+Chr(10)

 

mySmartMail.Subject = titulo

mySmartMail.Body = msg

mySmartMail.SendMail %>

 

 

 

agradeço a todos e até a próxima....fuizzzzzzzzz :(

Compartilhar este post

Link para o post
Compartilhar em outros sites

Traunos    0

Traunos
Postado

massa ... coisas que so se fud**do muito se descobre ... !!parabens ... acho que ajudo muito pra galera .... eu mesmo não postei pq não descobri o pq heheagora ja sabo oq fazer caso aconteça algo :) :) :)

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