Jump to content


Photo

Newsletters Cdonts. Html C/ Imagens


  • Faça o login para participar
4 replies to this topic

#1 faixa_preta

faixa_preta

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado

Posted 18/09/2006, 11:17

Fala ai rapazeada!! blzura?!

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'>&nbsp;</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.

<?
// olhe abaixo

$nome = faixa_preta // Mário Junior
$estado = Rio de Janeiro // Cidade Desespero!

if ($FIQUE BAMBOOCHA!) {

?>

// VIVA O SEXO PAGO!
// A ALEGRIA DE TODOS OS PROGRAMADORES!
// Ninguém é tão grande que não possa aprender, nem tão pequeno que não possa ensinar.

#2 siola

siola

    Usuário

  • Usuários
  • 894 posts
  • Sexo:Masculino
  • Localidade:SBC - SP
  • Interesses:ASP, .NET, javascript

Posted 18/09/2006, 15:13

Está dando erro ou aparece que enviou e o e-mail não chega?

Já viu se os e-mails não foram parar na pasta de Spams?

[]s

#3 faixa_preta

faixa_preta

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado

Posted 18/09/2006, 15:35

fala siola....

ta dando erro.. ele busca o erro nessa linha:

HTML = HTML & "</tr><tr><td><div align='justify'>" &request.form("message")& "</div></td>"

coloquei essa linha como comentario e os emails foram enviados. porem nao foram as imagens.. ele vem em formato TEXTO...

pode ajudar ai brody?
<?
// olhe abaixo

$nome = faixa_preta // Mário Junior
$estado = Rio de Janeiro // Cidade Desespero!

if ($FIQUE BAMBOOCHA!) {

?>

// VIVA O SEXO PAGO!
// A ALEGRIA DE TODOS OS PROGRAMADORES!
// Ninguém é tão grande que não possa aprender, nem tão pequeno que não possa ensinar.

#4 siola

siola

    Usuário

  • Usuários
  • 894 posts
  • Sexo:Masculino
  • Localidade:SBC - SP
  • Interesses:ASP, .NET, javascript

Posted 18/09/2006, 15:49

Olha só, você criou uma função pra enviar o e-mail chamando por envia_email(email,subject,message), mas dentro dessa função você não esta chamando os dados que serão passados quando você chamar a função.

Suponho que os valores passados sejam:
email => email do destinatario
subject => assunto da mensagem
message => a mensagem que vai ser colocada dentro do HTML do e-mail.

Então essa parte que você falou que está dando erro deve ficar assim:
HTML = HTML & "</tr><tr><td><div align='justify'>" & message & "</div></td>"

e a parte que cria o objeto do e-mail deve ficar assim:
Set objeto = Server.CreateObject("CDONTS.NewMail") 'cria o objeto'
objeto.From = "mario@xxxxxx.com.br"
objeto.To =  email
objeto.Subject = subject
objeto.Body = HTML
objeto.Bodyformat = 0
objeto.MailFormat = 0
objeto.Send 
Set objeto = Nothing 'finaliza o objeto'

Percebeu como seu código estava errado?

[]s

Edição feita por: siola, 30/10/2006, 11:24.


#5 faixa_preta

faixa_preta

    Turista

  • Usuários
  • 51 posts
  • Sexo:Não informado

Posted 18/09/2006, 16:48

Siola, vc é o cara!.............. xxxxxx..............!!!!

Não sei dizer se vc é O CARA ou se eu sou um UM COMPLETO IDIOTA!... mais vo te falar.. fico com a primeira opção!

uhahuahuahu chegou na moral aqui a parada....


Vivendo e aprendendo....

Quando vc vier aqui no RIO, me avisa lek, vo pagar UMA GAROTINHA aqui pra tu! UHAiuhaIUHAiuhaiUAH...
abraçao cara!!

Edição feita por: faixa_preta, 18/09/2006, 16:49.

<?
// olhe abaixo

$nome = faixa_preta // Mário Junior
$estado = Rio de Janeiro // Cidade Desespero!

if ($FIQUE BAMBOOCHA!) {

?>

// VIVA O SEXO PAGO!
// A ALEGRIA DE TODOS OS PROGRAMADORES!
// Ninguém é tão grande que não possa aprender, nem tão pequeno que não possa ensinar.




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq