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 ???

Anonyme
2010-08-07T06:26:41+00:00

Publipostage fait avec fusion db access puis envoi par outlook

Je souhaiterai envoyé un email toutes les 5 minutes à partir d'une certaine date et heure sans avoir à être devant l'ordinateur.

Microsoft 365 et Office | Word | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires
Réponse acceptée par l’auteur de la question
Anonyme
2010-08-17T17:59:25+00:00

Bonjour à popoulpe qui nous a écrit :

J'aimerai avoir la possibilité de modifier la date et l'heure d'envoi du premier et donc pouvoir la saisir manuellement.

D'accord.

Voici un module qui fait cela :

http://cjoint.com/data/irt4fPxIO7.htm

Faire Alt+F11

Fichier importer du fichier.

L'envoi différé ne fonctionne qui se vous êtes hors connexion.

Respectez bien le format de la date et de l'heure, vous pouvez ne pas préciser les secondes par exemple.

Un message vous indique la fourchette des heures d'envoi.

A+

Cette réponse a-t-elle été utile ?

0 commentaires

42 réponses supplémentaires

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. Anonyme
    2010-12-10T17:05:56+00:00

    Bonjour

    j'ai modifié la fonction en remplaçant courriel.save par courriel. send comme l'avait mentionné popoulpe plus haut

    Vous avez raison, je ne l'avais pas intégré et je ne me souvenais plus du retour fait par popoulpe.

    ...

    mais j'imagine que je dois remplacer tout ou partie de ce code par celui ci-dessous pour faire fonctionner un envoi différé par lot ?

    Ça me parait correct  sauf que la date doit être entre guillemets

    La boucle complète serait :

    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 = "10/12/2010 20:00:00"

     else

      BoiteEnvoi.Items(i).DeferredDeliveryTime = "10/12/2010 21:00:00"

     endif

    next

    Mais je n'ai aps vérifié en réel.

    A+

    Cette réponse a-t-elle été utile ?

    0 commentaires
  2. Anonyme
    2010-12-10T16:45:02+00:00

    j'ai modifié la fonction en remplaçant courriel.save par courriel. send comme l'avait mentionné popoulpe plus haut, et étant également très intéressée par la possibilité de différer les envois par lots, je souhaiterai intégrer à la macro cette notion de délais différents que vous avez évoqué + haut.

    J'ai donc commencé par remplacer le code

    [code]

    Cpt = 0

    For Each Courriel In BoiteEnvoi.Items

    Cpt = Cpt + 1

      HeureEnvoi = HeureD + ((Délai / (24 * 60)) * Cpt)

      Debug.Print HeureEnvoi

      Courriel.DeferredDeliveryTime = HeureEnvoi

      Courriel.Send

    Next Courriel

    [/code]

    par

    [code]

    Cpt = 0

    For i = 1 To BoiteEnvoi.Items.Count

    Cpt = Cpt + 1

      HeureEnvoi = HeureD + ((Délai / (24 * 60)) * Cpt)

      Debug.Print HeureEnvoi

      BoiteEnvoi.Items(i).DeferredDeliveryTime = HeureEnvoi

      BoiteEnvoi.Items(i).Send

    Next i

    [/code]

    mais j'imagine que je dois remplacer tout ou partie de ce code par celui ci-dessous pour faire fonctionner un envoi différé par lot ?

    [code]

    if i < BoiteEnvoi.Items.Count/2 then

    ' première moitié

    BoiteEnvoi.Items(i).DeferredDeliveryTime = 10/12/2010 20:00:00

    else

    BoiteEnvoi.Items(i).DeferredDeliveryTime = 10/12/2010 21:00:00

    endif

    [/code]

    merci encore pour votre aide !

    Cette réponse a-t-elle été utile ?

    0 commentaires
  3. Anonyme
    2010-12-08T11:57:24+00:00

    merci beaucoup !

    je vous ferai un retour dans les prochains jours.

    et je serai ravi de jouer les beta-testeurs pour de futures améliorations !

    Cette réponse a-t-elle été utile ?

    0 commentaires
  4. Anonyme
    2010-12-05T09:24:50+00:00

    Merci pour ces réponses Geo :)

    En espérant avoir pu rendre service (MehdiH)

    Retrouvez moi sur **Office Users**

    Cette réponse a-t-elle été utile ?

    0 commentaires