bom, eu to comum problema no envio de email usando o componente CDOSYS, no windows server 2003... a questão é que, eu consegui fazer o envio de emails funcionar na minha aplicação, mas eu estou mandando um texto em html, com estilo nas letras e tabelas... mas quando o email chega, não vem estillo nas letras,.... a tabela até vem montada, mas não o estilo.. alguém sabe o queestou fazndo de errado nesse código? ai está ele:
Pergunta
Guest felipe_azv
po pessoal!!
bom, eu to comum problema no envio de email usando o componente CDOSYS, no windows server 2003... a questão é que, eu consegui fazer o envio de emails funcionar na minha aplicação, mas eu estou mandando um texto em html, com estilo nas letras e tabelas... mas quando o email chega, não vem estillo nas letras,.... a tabela até vem montada, mas não o estilo.. alguém sabe o queestou fazndo de errado nesse código? ai está ele:
<%Response.Buffer = false%> <html> <head> <!--#include file="../pedido/library/Information.inc"--> <title>Enviando e-mail (Fale Conosco)</title> </head> <body bgcolor="#FFFFFF"> <% 'on error resume next txt_name = replace(Request.Form("txt_name"), "'", "''") txt_phone = replace(Request.Form("txt_phone"), "'", "''") txt_email = Request.Form("txt_email") txt_assunto = Request.Form("assunto") txt_message = replace(Request.Form("txt_message"), "'", "''") 'cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message") objCDOSYSMail.From = txt_email ' e-mail de quem esta enviando a mensagem objCDOSYSMail.To = emailsuporte 'emailFaleConosco e-mail de quem vai receber a mensagem objCDOSYSMail.Subject = txt_assunto & " [Pedido OnLine]" '"Assunto do E-mail" objCDOSYSMail.HtmlBody = varBody '************************************************* ************************** '******************** Para quem recebe email em html ********************************* varBody="<html>" varBody=varBody &"<head>" & chr(13) varBody=varBody &"<title>Pedido OnLine (Fale conosco)</title>" & chr(13) varBody=varBody &"<STYLE type=""text/css"">" & chr(13) varBody=varBody &"<!--" & chr(13) varBody=varBody &".textocomum { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: normal; color: #000000; text-decoration: none; font-style: normal}" & chr(13) varBody=varBody &".textocomumbold { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold; color: #000000; text-decoration: none; font-style: normal }" & chr(13) varBody=varBody &"-->" & chr(13) varBody=varBody &"</STYLE>" & chr(13) varBody=varBody &"</head>" & chr(13) varBody=varBody &"<body>" & chr(13) varBody=varBody &" <table width=""410"" border=""0"" cellspacing=""5"" cellpadding=""0"">" & chr(13) varBody=varBody &" <tr>" & chr(13) varBody=varBody &" <td class=""textocomum"" width=""123"">Nome</td>" & chr(13) varBody=varBody &" <td class=""textocomumbold"" width=""295"">" & txt_name & chr(13) varBody=varBody &" </td>" & chr(13) varBody=varBody &" </tr>" & chr(13) varBody=varBody &" <tr>" & chr(13) varBody=varBody &" <td class=""textocomum"" width=""123"">Telefone de contato</td>" & chr(13) varBody=varBody &" <td class=""textocomumbold"" width=""295"">" & txt_phone & chr(13) varBody=varBody &" </td>" & chr(13) varBody=varBody &" </tr>" & chr(13) varBody=varBody &" <tr>" & chr(13) varBody=varBody &" <td class=""textocomum"" width=""123"">Assunto</td>" & chr(13) varBody=varBody &" <td class=""textocomumbold"" width=""295"">" & txt_assunto & chr(13) varBody=varBody &" </td>" & chr(13) varBody=varBody &" </tr>" & chr(13) varBody=varBody &" <tr>" & chr(13) varBody=varBody &" <td class=""textocomum"" width=""123"">E-mail</td>" & chr(13) varBody=varBody &" <td class=""textocomumbold"" width=""295"">" & txt_email & chr(13) varBody=varBody &" </td>" & chr(13) varBody=varBody &" </tr>" & chr(13) varBody=varBody &" <tr valign=""top"">" & chr(13) varBody=varBody &" <td class=""textocomum"" width=""123"">Mensagem</td>" & chr(13) varBody=varBody &" <td class=""textocomumbold"" width=""295"">" & replace(txt_message, chr(13), "<br>") & chr(13) varBody=varBody &" </td>" & chr(13) varBody=varBody &" </tr>" & chr(13) varBody=varBody &" <tr>" & chr(13) varBody=varBody &" <td class=""textocomum"" colspan=""2""> </td>" & chr(13) varBody=varBody &" </tr>" & chr(13) varBody=varBody &" </table>" & chr(13) varBody=varBody &"</body>" & chr(13) varBody=varBody &"</html>" & chr(13) '************************************************* ************************************* objCDOSYSMail.HtmlBody = varBody objCDOSYSMail.Send If Err <> 0 Then%> <script language="javascript"> var msg = "Ocorreu um erro no envio do e-mail."; window.location.href="contentTalk.asp?msg="+msg </script> <%else%> <script language="javascript"> window.location.href="contentTalkOk.html" </script> <%End If Set objCDOSYSMail = Nothing 'Set objCDOSYSCon = Nothing %> </body> </html>se alguém puder me ajudar ai, por favor..
vlw!!!
falou!!
Editado por cyberalexxxLink para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.