Como Filtrar Os E-mails Não Enviados?

[Guest - Henrique -]

Boas!

Preciso de uma ajuda, se alguém poder, já agradeço.

Tenho um sistema de envio - newsletter, que puxa os e-mails de um bd access, até aí tudo Ok!, porém eu preciso visualizar a quantidade de registros que foram enviados com sucesso e os que tiverem algum problema no envio.

Eu encontrei um script que me ajudou a ter uma idéia de como fazer, pois não sou um programado asp experiênte, porém, a contagem dos registro com erros não está sendo feita, e sim, está sendo feita a contagem dos registro como se todos os e-mails tivesse corretos... mas de propósito, para teste.. alguns e-mails estão errados...

Alguém poderia dar uma olhada e me ajudar a identificar onde estou errando?

Abaixo segue o código.

<!--#include file = "dsn.asp"-->
<%
'var para controle de envio
nr_email_corretos = 0
nr_email_errados = 0
nr_email_total = 0

'pega os dados do formulário
assunto = Request.Form("assunto")
mensagem = Request.Form("mensagem")

'pega o nome e o email do usuario
set rs = Server.Createobject("adodb.recordset")
set rs = conn.execute("select * from tb_boletim where id_status = 1")

while not rs.eof
	'envia email
	If Request("enviar") <> "" Then
  Set Mail = Server.CreateObject("Persits.MailSender")
  Mail.Host = "smtp2.locaweb.com.br"

  Mail.From = "projetos@lookingdesign.com.br"
  Mail.FromName = "Teste de Newsletter - Looking Design"
  Mail.AddAddress  rs("email")

  Mail.Subject = assunto

  Mail.Body = mensagem

  'Mail.Username = "projetos@lookingdesign.com.br"
  'Mail.Password = "estevao308"
  Mail.Send
  
  if Mail.Send = true then
  'MSG = "E-MAIL ENVIADO COM SUCESSO! <br><br>"
  nr_email_corretos = nr_email_corretos + 1
  else
  'MSG = " O E-MAIL NÃO FOI ENVIADO COM SUCESSO! <br><br>" 
  nr_email_errados = nr_email_errados + 1
  end if
  nr_email_total = nr_email_corretos - nr_email_errados
  'Response.write nr_email_total & " - " & MSG 
  
	end if
rs.movenext
wend

'Exibe a mensagem de que os emails foram enviados com sucesso
response.Write("Foram enviados "&nr_email_corretos&" e-mails com sucesso.<br><br>")
response.Write(nr_email_errados&" não foram enviados.<br><br>")
response.Write("Foram enviados no total "&nr_email_total&" e-mails com sucesso.")

%>
<!--#include file = "dsn2.asp"-->

Agradeço a todos!

Abs,

Henrique.

Editado Setembro 29, 2004 por cyberalexxx

[dark0]

Cara..

Veja aqui.. pode ser que eu esteja errado, pois não me recordo deste componente.

Mas, nesta parte do codigo:

Mail.Send

 if Mail.Send = true then

você esta executando a mesma função 2 vezes.

Apague ou comente a linha Mail.Send, e deixe apenas a linha do IF. Pois, ali você esta tentando executar de novo.

Veja se resolve ..

T+

[Guest - Henrique -]

Caro Dark,

Valeu a ajuda... mas não é isso tb! Vou deixar sem... e vou fazendo teste... deve ser algum parâmentro...

Abs,

Henrique

[dark0]

é..

mas antes, faz o teste que eu falei, deixa apenas a linha do IF .. pra ver se funciona

abraços