Jump to content


Photo

Consulta A Banco


  • Faça o login para participar
Nenhuma resposta neste tópico

#1 jumerle

jumerle

    Novato no fórum

  • Usuários
  • 11 posts
  • Sexo:Masculino

Posted 09/04/2009, 00:06

Fala galera do wmo...

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




0 user(s) are reading this topic

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

IPB Skin By Virteq