NewsLetter

[bratfisch 0]

I ae galera beleza?Seguinte estou precisando de um sitema de news letter bem completo que funcione pq o meu só da erro..hauahuaQueria pode enviar news sempre pros meu usuários...mais pra todos....e saber um qtos foram enviadas....um jeito para que não trave..se for um alista de e-mails mto grande..etc...Bom é basicamente isto..se alguém puder me ajudar? ou indicar algo. agradeço.Att.Amaro Bratfisch

[[rush_jeff_rulez] 0]

olha soh cara rola um script ai ..... ele vai no BD ... pega o nome, email status do usuario .... envia o email para ele e para todo email enviado ele seta o status como 1 ...

 

ASP

[*]assunto = "newletter"

 

[*]retorno = "email<email@uol.com.br>"

 

[*]

 

[*]ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dados\news.mdb;"

 

[*]Set conexao = Server.CreateObject("ADODB.Connection")

 

[*]conexao.Open ConnString 

 

[*]stringSQL="select id,status,email,nome from tabela where status=0" 

 

[*]set registros = conexao.execute(stringSQL) %>

 

[*]<div align="center">

 

[*] <table border="1" cellpadding="0" cellspacing="0" width="621" id="table1" bordercolor="#F4F4F4">

 

[*] <tr>

 

[*] <td width="124" align="right"><b><font size="2" face="Verdana">

 

[*] E-mail Resposta:</font></b></td>

 

[*] <td width="492"> <b><font face="Verdana" size="2" color="#FF0000"><%=retorno%></font></b></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td width="124" align="right"><b><font size="2" face="Verdana">

 

[*] Assunto:</font></b></td>

 

[*] <td width="492"> <b><font face="Verdana" size="2" color="#FF0000"><%=assunto%></font></b></td>

 

[*] </tr>

 

[*] </table>

 

[*]</div>

 

[*]<%

 

[*]if registros.eof then 

 

[*]

 

[*]conexao.Execute("update tabela set status=0") 

 

[*]%> 

 

[*]<p align="center"><b>

 

[*]<font color="#008000" face="Verdana, Arial, Helvetica, sans-serif" size="4">Newsletter Enviada !!!</font><font color="000000" face="Verdana, Arial, Helvetica, sans-serif" size="2"> 

 

[*]</font></b> 

 

[*]<% 

 

[*]else 

 

[*]

 

[*]x = 0 

 

[*]

 

[*]while x < 10 and not registros.eof 

 

[*]

 

[*]x = x + 1 

 

[*]

 

[*]id = registros("id") 

 

[*]nome = registros("nome") 

 

[*]email = registros("email")

 

[*]

 

[*]set Mailer = Server.CreateObject("SoftArtisans.SMTPMail") 

 

[*]Mailer.FromName = retorno

 

[*]Mailer.Subject = assunto 

 

[*]Mailer.HTMLText = ""

 

[*]Mailer.HTMLText = Mailer.HTMLText & "Voce esta recebendo uma newsletter"

 

[*]

 

[*]Mailer.AddRecipient nome, email

 

[*]Mailer.RemoteHost = "smtp2.locaweb.com.br" 

 

[*]if Mailer.SendMail then 

 

[*]Response.Write x & "- " & nome & "<br>" 

 

[*]else 

 

[*]Response.Write "Falhou o envio." 

 

[*]end if 

 

[*]set Mailer = nothing 

 

[*]

 

[*]conexao.Execute("update tabela set status=1 where id=" & id ) 

 

[*]

 

[*]registros.movenext 

 

[*]wend 

 

[*]%> 

 

[*]

 

[*]<font face="Verdana, Arial, Helvetica, sans-serif" size="4"><b>

 

[*]<font color="#FFCC00"> 

 

[*]Enviando pacotes de e-mails, aguarde... 

 

[*]</font></b></font></p>

 

[*]

 

[*] 

 

[*]

 

[*]<meta http-equiv='refresh' content='10'> 

 

[*]

 

[*]<% 

 

[*]Registros.Close 

 

[*]set Registros = nothing 

 

[*]end if 

 

[*]

 

[*]Conexao.Close 

 

[*]set Conexao = nothing

 

e depois q envia para todos da lista seta o status novamente para 0 ... .caso queira enviar novamente .... ele envia emails de 10 em 10 registros

 

Valeu

[bratfisch 0]

beleza...brother quebrou um galhão...mais entao...seguinte!caso eu tenha um número mto grande ex: 5000 ( num sei se é bastanten hehe)...ele consegue enviar pra todos estes 5000? e se no meio do caminho do envio do 1,2,3,4,5....400 dai vai quer no 450 o e-mail esta errado ou não existe..sei lá..algo assim...ele pula e continua dando continuidade aos outros posteriores ex: deu erro no 400...dai ele segue 401,402,403,404;....ou da algum erro?e c/ relação ao Timeout...chegará a dar algum erro?Bom agradeço sua atenção...AbraçosAmaro Bratfisch

[[rush_jeff_rulez] 0]

Entao brother eh o seguinte

 

esse news ai eh simplezao manja ... se tiver um email errado ele da falha ... agora se tiver algum campo em branco no NOME ou no EMAIL ele da erro .. e para tudo ... por isso q eh o esquema no form desse news você usar uma validação lah !!!

 

E tipo assim ... se ele para de enviar no 1000 .... e você quiser continuar, roda o script de novo q ele segue desse 1000 ateh acabar o BD !!!

 

Qualquer coisa tamoae

http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

[gastao 0]

num entendi pq do update pro status ???

[[rush_jeff_rulez] 0]

Eh q tipo se de repente dah um erro ... cai o servidor acaba a luz ..... qdo você mandar rodar o codigo de novo ao inves de ele mandar pra todo mundo de novo ... ele soh manda pra quem ainda nao recebeu (Status=0) .... depois q ele envia pra todo mundo ele seta p status=0 ... para caso você queira renvia-la :blink:

[gastao 0]

pow mano... imagine 1000 registros.... 1000 updates no banco, sinsitro, né ?falta luz sempre nesse host aí ???

[[rush_jeff_rulez] 0]

hauhauuahno host nao mas aqui na empresa direto um #@?$%~ bate o peh na tomada do servidor :P cara foi como eu disse ....

esse news ai eh simplezao manja

o maximo q mandei aki foi de um bd com 80.000 .... e com bd ACCESS ainda http://forum.imasters.com.br/public/style_emoticons/default/sick.gif nao sei se deu pau pq ... deixei mandando e saiu ... mas o chefe disse q deu newsletter enviada !!!Ai vai do uso de cada

[gastao 0]

óia o palavrao mano...ficar chamando os cara de #@?$%~ é f***... rsputs, num deu timeout nao, pra esses 80mil registros..... sinistro