XL 2016 Temps d'arret entre envoi des emails

abdernino1985

XLDnaute Junior
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
 

Pièces jointes

  • Envoi Email.xlsm
    89 KB · Affichages: 7

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Abdernino,
Cette macro atend 10s avant d'afficher Fin :
VB:
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.
 

Statistiques des forums

Discussions
311 711
Messages
2 081 792
Membres
101 817
dernier inscrit
carvajal