Adicionando intervalo no envio de e-mails

Recebi algumas consultas se seria possível adicionar um intervalo no envio dos e-mails de meu post anterior.

Sim, claro que é possível, basta inserir este pequeno código nas macros.

 

Private Declare Sub AppEspera Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Public Sub Pausa(PausaEmSegundos As Long)

Call AppEspera(PausaEmSegundos * 1000)

End Sub

Para chamar ele de se script, adicione o texto abaixo no local onde deseja adicionar a pausa:

Pausa 3 ‘ Sendo que o número será a quantidade de segundos que deseja em pausa

Na verdade este código serve para adicionar um intervalo na execução de qualquer código, não apenas no envio de e-mails!

Leave a Reply

Your email address will not be published. Required fields are marked *


*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>