J'utilise la fonction publipostage de word pour envoyer des emails.__Je souhaiterai différé l'envoi des mails et echelonner leur envoi dans le temps.__Comment le faire de facon automatique ???

Bonjour

j'aimerais profité moi aussi du module que vous avez créé, car j'ai exactement la même problématique à résoudre, mais le fichier n'est plus disponible sur (c)joint.

Pas de problème, mais n'ayant pas eu de retour, je ne sais pas s'il donne satisfaction.

http://cjoint.com/?0mduGW74UiQ

depuis, j'ai appris comment passer en mode Hors connexion, on pourrait donc l'améliorer.

A+

Bonjour,

j'aimerais profité moi aussi du module que vous avez créé, car j'ai exactement la même problématique à résoudre, mais le fichier n'est plus disponible sur (c)joint.

Pourriez-vous m'aider svp ?

Merci d'avance.

em

Bonjour à popoulpe qui nous a écrit :

ca marche parfaitement.

J'ai juste fait une modif : remplace courriel.save par courriel. send car sinon le mails ne partaient pas.

Merci pour cette précision, les essais étaient en effet limité à vérifier que la date d'envoi était bien modifiée.

Je ne m'explique d'ailleurs pas bien pourquoi il faut faire un send, mais c'est toujours la réalité qui a raison.

Une dernière question pour que je me lance un peu dans la programmation:

comment obtenir le nombre de mail  placé dans la boite d'envoi

Le nombre d'éléments d'une collection est donné par la propriété count.

Ici ce serait : BoiteEnvoi.Items.Count

et comment specifier un mail par sa position dans la boite d'envoi.

Amha, il n'y a aps de "position", mais vous pouvez accéder aux éléments la collection des courriels avec un indice.

Pour défiler toute une collection, on peut faire un for each ce qui a été fait ici, une autre solution aurait été de faire :

for i = 1 to BoiteEnvoi.Items.Count

BoiteEnvoi.Items(i).DeferredDeliveryTime = ...

next i

On peut penser que le courriel d'indice 1 est le premier qui a été placé dans la boite d'envoi, et ainsi de suite. Mais je serais étonné que quelqu'un puisse le garantir.

C'est pour cela que je vous avais demandé des précisions.

L'idee etant de différé une partie des mails pour une certaine date et heure, et une autre partie des mails à une date et heure differente.

Pas de problème, vous pourriez donc faire :

if i < BoiteEnvoi.Items.Count/2 then

' première moitié

BoiteEnvoi.Items(i).DeferredDeliveryTime = dans 5 minutes

else

BoiteEnvoi.Items(i).DeferredDeliveryTime = dans une heure

endif

Si l'ordre d'envoi est important, il faut revoir la chose.

bon courage.

A+

ca marche parfaitement.

J'ai juste fait une modif : remplace courriel.save par courriel. send car sinon le mails ne partaient pas.

Une dernière question pour que je me lance un peu dans la programmation:

comment obtenir le nombre de mail  placé dans la boite d'envoi et comment specifie un mail par sa position dans la boite d'envoi.

L'idee etant de différé une partie des mails pour une certaine date et heure, et une autre partie des mails à une date et heure differente.

Merci encore pour la macro qui me sera tres utile.

A+