Re-bonjour,
dans cette boucle, j'ai voulu ajouter le BoiteEnvoi.Items(i).Send qui manquait, mais les envois partent immédiatement, et non à l'heure indiquée...
j'ai testé :
Cpt = 0
For i = 1 To BoiteEnvoi.Items.Count
Cpt = Cpt + 1
If i < BoiteEnvoi.Items.Count / 2 Then
' première moitié
BoiteEnvoi.Items(i).DeferredDeliveryTime = "14/12/2010 12:12:00"
BoiteEnvoi.Items(i).Send
Else
BoiteEnvoi.Items(i).DeferredDeliveryTime = "14/12/2010 12:15:00"
BoiteEnvoi.Items(i).Send
End If
Next
ainsi que :
Cpt = 0
For i = 1 To BoiteEnvoi.Items.Count
Cpt = Cpt + 1
If i < BoiteEnvoi.Items.Count / 2 Then
' première moitié
BoiteEnvoi.Items(i).DeferredDeliveryTime = "14/12/2010 12:12:00"
Else
BoiteEnvoi.Items(i).DeferredDeliveryTime = "14/12/2010 12:15:00"
End If
BoiteEnvoi.Items(i).Send
Next
Dans les deux cas, l'heure choisie (que j'inscris en "dur" dans le code de la macro pour le moment) n'est pas respectée et les envois partent immédiatement lorsque je passe en mode "connecté".
Est-ce que vous pourriez m'expliquer pourquoi ?
(Et ultérieurement, l'idéal pour moi serait de pouvoir indiquer la date et l'heure du 1er envoi dans la boite de dialogue qui s'ouvre au lancement de la macro, et de définir ensuite un délai avant l'envoi de la 2e moitié du lot par exemple...)
Merci, et à bientôt.
em