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!!!