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!