Discussion :

[yannoa]

Bonjour, j'aurai besoin de savoir si il est possible grâce a un script vba de limiter le nombre d envoie d'email par heure a environ 200 (limitation de mon fournisseur de domaine). Je souhaiterai faire des mailing (peut être grâce au publipostage word).
Donc si quelqu'un a une idée ou un début d 'idée sur la façon de programmer un tel script, je suis preneur avec plaisir !
merci !

[Oliv-]

Salut,
Est ce que cette limitation est par ADRESSE Email ou par domaine ?

Est ce que ce sont des heures "horloges" ou glissantes ?

Avec l'événement ItemSend
Tu peux créer un compteur au sein d'une variable publique.
si cela dépasse 200 tu fais un cancel sur l'envoi.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
public compteur 
 
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
if compteur >200 then cancel = true
else
compteur = compteur+1
End if
end sub

par contre il faudra renvoyer les mails non partis

regarde cet article

[yannoa]

merci pour votre reponse,
en fait je pense que la limite est de 200 email envoyer par heure et par nom de domaine... Je me demandai comment faire pour faire un comptage glissant dans le temps de façon a ce que au maximun on est envoyer 200 emails dans l heure precedante...

[Oliv-]

Bonjour,
Tu peux regarder cet article sur les limites de exchange

pour le calcul glissant tu dois enregistrer tous les envois dans une base de donnée.(ou un fichier excel)

Envoi
04/09/2014 15:45
04/09/2014 15:45
04/09/2014 15:46
04/09/2014 15:47
04/09/2014 15:47
04/09/2014 15:47
04/09/2014 15:47
04/09/2014 15:47
...


Avant ton envoi tu comptes le nombre de lignes de cette base qui ont moins d'une heure. si tu en as moins de 200 tu peux envoyer.
en sql cela correspondrai à

Code :

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

select count(*) from  COMPTE where envoi >= dateadd(hour,-1,getdate())