XL 2016 Temps d'arret entre envoi des emails

[abdernino1985]

Bonjour,
dans ma macro envoie HTML est ce que je peux ajouter un temps d'arrêt entre l'envoi des emails pour ne pas saturer outllok, et avoir la possibilité de mettre pause à n'importe quel moment .dans la mesure du possible
j'ai trouver cette fonction
MsgBox "Vérifier et envoyer"
Sleep (500) ' pause de 0.5 second
mais je sais comment l'integrer dans mon code et je voudrais au moins 10 seconde

 

[sylvanu]

Bonjour Abdernino,
Cette macro atend 10s avant d'afficher Fin :

Sub Wait_()
Application.Wait (Now + TimeValue("0:00:10")) ' Temps d'attente 10s
MsgBox "fin"
End Sub

la ligne : Application.Wait (Now + TimeValue("0:00:10")) ' Temps d'attente 10s peut être mise à la fin de l'envoi du mail courant avant d'envoyer le mail suivant.

 

[James007]

Bonjour à tous,

L'instruction Wait appartient à VBA tandis que Sleep est une fonction Windows (librairie DLL) et tu as besoin de déclarer le nom de API ...

 

[abdernino1985]

Merci pour votre retour
Mais comment intégrer cette partie à mon code

 

[sylvanu]

Je l'ai mis sous mon code :
La ligne : Application.Wait (Now + TimeValue("0:00:10")) ' Temps d'attente 10s peut être mise à la fin de l'envoi du mail courant avant d'envoyer le mail suivant.