Galera estou fazendo um sistema de envio de e-mail para a intranet da empresa em que trabalho...
O sistema usa um arquivo que consulta uma base Access e vai enviando e-mail para os funcionários cadastrados nela.
Gostaria de saber se tem como mostrar a porcentagem dos e-mails enviados durante o envio
<%
set info = con.execute("SELECT * FROM tb_funcionario WHERE status = true")
do while info.eof = false
email =info("email") ' ---------------------------------------- Recupera o email cadastrado no banco
Set MyMail = CreateObject("CDO.Message")
MyMail.From = remetente ' ------------------------------------- Email do remetente
MyMail.To = email
MyMail.Subject = assunto ' ------------------------------------ request.Form(assunto)
MyMail.HtmlBody = corpo ' ---------------------------------- request.Form(mensagem)
MyMail.Send
Set MyMail= nothing
info.movenext
loop
%>Temos um banco com quase cem funcionários e para enviar para todos demora cerca de 10 minutos, deixando a impressão de que o sistema travou.
Conto com vocês pra resolver mais essa...
Vlw Galera!!!
