Bem, o problema de hj é o seguinte... fiz uma newletters, e consigo fazer o envio tranquilamente em formato de texto.. Porém para ficar uma coisa mais apresentavel resolvi enviar em html. Esse foi o problema!!.. O bagulho não esta enviando nem por nada!!...............
fiz um exemplo de como quero que a galera recebe os emails:
http://www.xxx.com.br/newsletters/
Alguem poderia me ajudar..... Olha o código que fiz para tentar enviar dessa forma...
<!--#include file="conexao.asp"--> <% Server.ScriptTimeout = 2000000000 Response.Buffer = True If IsEmpty(Session("subject")) Then Session("subject") = request("subject") End If If IsEmpty(Session("message")) Then Session("message") = request("message") End If Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = conn RS.CursorLocation = 3 RS.LockType = 1 strSQL = "select email, subject, message" RS.Open strSQL Set rs.ActiveConnection = Nothing Function envia_email(email,subject,message) HTML = "<HTML><HEAD><TITLE>Novidades Tec Prima Cartões</TITLE></HEAD>" HTML = HTML & "<body bgcolor=#ffffff leftMargin=0 topMargin=0 marginheight='0' marginwidth='0' text=ffffff>" HTML = HTML & "<table border='0' cellpadding='0' cellspacing='0' width='550'> <tr>" HTML = HTML & "<td><img src='http://www.xxx.com.br/newsletters/images/spacer.gif' width=550 height=1 border=0></td>" HTML = HTML & "<td><img src='http://www.xxx.com.br/newsletters/images/spacer.gif' width=1 height=1 border=0></td>" HTML = HTML & "</tr><tr><td><img name='index_r1_c1' src='http://www.xxx.com.br/newsletters/images/index_r1_c1.gif' width=550 height=34 border=0></td>" HTML = HTML & "<td><img src='http://www.xxx.com.br/newsletters/images/spacer.gif' width=1 height=34 border=0></td>" HTML = HTML & "</tr><tr><td bgcolor='#56AA1C'><table width='100%' border='0' cellspacing='0' cellpadding='0'>" HTML = HTML & "<tr><td width='34%'><div align='center'><img src='http://www.xxx.com.br/newsletters/images/logo.gif' width='168' height='73'></div></td>" HTML = HTML & "<td width='66%'><div align='right'><img src='http://www.xxx.com.br/newsletters/images/escrita.gif' width='288' height='73'></div></td>" HTML = HTML & "</tr></table></td><td><img src='http://www.xxx.com.br/newsletters/images/spacer.gif' width='1' height='76' border='0'></td>" HTML = HTML & "</tr><tr><td><img name='index_r3_c1' src='http://www.xxx.com.br/newsletters/images/index_r3_c1.gif' width='550' height='43' border='0'></td>" HTML = HTML & "<td><img src='http://www.xxx.com.br/newsletters/images/spacer.gif' width='1' height='43' border='0'></td>" HTML = HTML & "</tr><tr><td><div align='justify'>" &request.form("message")& "</div></td>" HTML = HTML & "<td><img src='http://www.xxx.com.br/newsletters/images/spacer.gif' width='1' height='264' border='0'></td>" HTML = HTML & "</tr><tr><td><img name='index_r5_c1' src='http://www.xxx.com.br/newsletters/images/index_r5_c1.gif' width='550' height='33' border='0'></td>" HTML = HTML & "<td><img src='images/spacer.gif' width='1' height='33' border='0'></td>" HTML = HTML & "</TR></table<table width='600' border='0' align='center' cellpadding='0' cellspacing='0'><tr><th scope='row'> </th>" HTML = HTML & "</tr></table></BODY></HTML>" Set objeto = Server.CreateObject("CDONTS.NewMail") 'cria o objeto' objeto.From = "mario@xxx.com.br" 'Email de quem envia a mensagem. Neste caso o email digitado no formulario' objeto.To = rs("email") 'Email que vai receber a mensagem' objeto.Subject = request.form("subject") 'assunto da mensagem' objeto.Body = HTML objeto.Bodyformat = 0 'faz com que o cdonts envie conteudo html' objeto.MailFormat = 0 'faz com que o cdonts envie conteudo html' objeto.Body = request.form("message") objeto.Send 'envia a mensagem' Set objeto = Nothing 'finaliza o objeto' End Function
Se alguma alma puder ajudar ai.. seria de bom agrado!
Edição feita por: faixa_preta, 28/10/2006, 11:08.