Discussion :

[ioco34]

Bonjour à tous.
J'envoie des emails automatique à mes clients et j'aimerais savoir si il est possible de programmer un délai (par exemple 3 secondes ) entre deux mails. mon serveur n'accepte pas plus de 30 mails à la minute.
Merci d'avance pour vos conseils.

[tee_grandbois]

bonsoir,
voici un exemple qui affiche une boite message toutes les 3 secondes, avec quelques adaptations, cela devrait convenir à ton besoin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Const itTempo As Integer = 3   ' durée de la temporisation en secondes
Dim dbStart As Double
Dim orst As DAO.Recordset
 
Set orst = CurrentDb.OpenRecordset("select * from tblinformations")
Do Until orst.EOF
' Traitement
    Msgbox orst.Fields(1) & "-" & Time
 
' Temporisation
    dbStart = Timer    ' on mémorise l'heure de départ
    Do While Timer < dbStart + itTempo    ' on boucle jusqu'à l'heure atteinte
        DoEvents
    Loop
    orst.MoveNext
Loop

[tee_grandbois]

re,
autre solution avec la DLL Sleep:
au début du module standard (ou de classe si c'est un formulaire) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

et dans le code qui envoie les messages

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim orst As DAO.Recordset
 
Set orst = CurrentDb.OpenRecordset("select * from tblinformations")
Do Until orst.EOF
' Traitement
    Debug.Print orst.Fields(1) & "-" & Time
' Temporisation
    Sleep 3000
    DoEvents
    orst.MoveNext
Loop

[ioco34]

Bonsoir,
Merci beaucoup tee_grandbois d'avoir pris le temps de me répondre, la première solution a très bien marché.