Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde pessoal, estou com uma problema num sub.
Eu to testando essa sub pra criar um delay no envio de mensagens de email num sistema de newsletter. Porém ela não está funcionando como deveria.
if not RsEmails.EOF then
total = 0
intSeconds = 10
Sub Sleep ( intSeconds )
dteStart = Time ( )
dteEnd = DateAdd ( "s" , intSeconds, dteStart )
While dteEnd > Time ( )
DoNothing
Wend
while not RsEmails.EOF
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = ""
Mail.Username = ""
Mail.Password = ""
Mail.From = " "&RsCategoriasEmail("email")&" "
Mail.FromName = ""
Mail.AddAddress RsEmails("email")
Mail.Subject = Request("txtAssunto")
Mail.IsHTML = True
Mail.Body = "<HTML><BODY>"& strHTML &"</BODY></HTML>"
Mail.Send
total = total + 1
RsEmails.MoveNext
wend
End Sub
Sub DoNothing
End Sub
end ifGostaria que ela fizesse um delay de 10segundos no envio de cada email.
Se alguém tiver alguma forma mais prática de fazer isso, eu agradeço.
Obrigado.
Abraços.
Carregando comentários...