Envoie d'un message

[raymon]

Bonjour à toutes et à tous

Je travail en asp. J'ai une base de données access avec 5000 records. Je voudrais envoyer un menu de restaurant par courriel ( l'adresse de courreil est dans un champ de la base de données) aux 200 premières adresses, attendre 30 minutes et continuer avec les 200 prochains, ainsi de suite 200 à la fois.

Est-ce possible

Merci

Ray

[ClaudeLELOUP]

Bonjour,

Je procède comme ceci :

Dans un module, cette instruction :

Code :

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

Dans la boucle qui envoie les mails :

Code :

1
2
3
4
5
6
7
8
Dim n As Integer, LotsDe As Integer, EspacesDe As Integer
LotsDe = 200
EspacesDe = 30
 
'tempérer [EspacesDe] minutes par paquet de [LotsDe] messages
  n = n + 1  'à chaque mail traité, incrémenter de 1
  If n Mod LotsDe = 0 Then Sleep 1000 * EspacesDe 'quand n est multiple, on tempère 
  'passer à l'envoi suivant