Temporizar execução...
 
Notifications
Clear all

Temporizar execução do envio automático de e-mail no VBA.

2 Posts
2 Usuários
0 Reactions
565 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Salve galera, beleza...

Preciso de mais uma ajuda, tenho uma VBA no Excel que faz a interação com o Outlook.
Ela funciona normalmente, criando uma nova mensagem, preenchida os dados do e-mail e faz o disparo da mensagem, de modo a deixar todo o histórico nos itens enviados do outlook.
Acontece que, o VBA executa o código diretão, e envia todos os e-mails sem nenhum intervalo, ele vai sequencialmente enquanto existir destinatários na planilha.

Preciso inserir um temporizador que faça uma pausa a cada X segundos, entre os envios.
Exemplo: Ele envia o primeiro e-mail, pausa por X segundos, envia o próximo, pausa novamente, e assim até concluir.

Esse X segundos gostaria de defini-lo na aba "Menu" célula 'G6'.

Não estou conseguindo fazer isso.

Posso contar com a ajuda de vocês.?

At;
Danilo.

 
Postado : 20/04/2017 7:25 am
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente:

...
...
Application.Wait Now + TimeSerial(0, 0, Sheets("Menu").[G6])
Loop
...
...

obs. coloque em 'G6' o tempo em segundos

 
Postado : 20/04/2017 10:32 am