IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Créer plusieurs mails depuis Excel [XL-2016]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Contrôle de Gestion
    Inscrit en
    Juin 2018
    Messages
    84
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Contrôle de Gestion

    Informations forums :
    Inscription : Juin 2018
    Messages : 84
    Par défaut Créer plusieurs mails depuis Excel
    Bonjour à tous,

    Je me permets de vous solliciter car je bloque sur un petit quelque chose.

    Je suis un train de créer un petit outil, sous excel, permettant de créer des mails, avec des destinataires, un objet et un corps de texte bien précis sur outlook.

    Jusque là tout va bien, j'arrive à créer le premier.

    Ce que j'aimerais c'est pouvoir en créer 5/6 sans les envoyer pour qu'ensuite l'utilisateur puisse faire une petite vérification de tous les mails créer puis les envoyer.

    Avec mon code actuel, le premier se créé, puis lorsque ça passe au second, ça me supprime les infos du premier pour y mettre les infos du second et ainsi de suite.

    Du coup, existe-il une commande ou une méthode permettant de créer ces 5/6 mails d'affilé pour qu'une fois la macro terminée, l'utilisateur puisse jeter un coup d’œil sur tous les mails puis les envoyer manuellement?

    voici mon bout de code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    With oMail
         .Display
          strSignature = .HTMLBody
         .To = strContactMail
         .Subject = strMailObjet
         .HTMLBody = strMailDebut_1 & "<br><br>" & strMailDebut_2 & "<br><br>" & strMailDebut_3 & "<br><br>" & strBillsInfo & "<br><br>" & _
                                     dblTotalAmount  & "<br><br>" & strMailFin_1 & "<br><br>" & strMailFin_2 & "<br><br>" & _
                                     strMailFin_3 & "<br><br>" & strSignature
    End With
    Merci d'avance pour votre aide.

  2. #2
    Membre confirmé
    Homme Profil pro
    Contrôle de Gestion
    Inscrit en
    Juin 2018
    Messages
    84
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Contrôle de Gestion

    Informations forums :
    Inscription : Juin 2018
    Messages : 84
    Par défaut
    J'ai trouvé comment faire après m'être bien pris la tête.

    Pour ceux que ça pourrait intéresser, il suffit d'initialiser la variable oMail à l’intérieur de la boucle et non à l’extérieur comme je l'avais fait.

    Ca permet de créer autant de mail différent que de passage dans la boucle.

    N'hésitez pas à me demander si vous avez des questions là dessus.

    Bonne soirée tout le monde.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 10
    Dernier message: 01/03/2021, 17h36
  2. [OL-2007] Créer un mail depuis Excel : Outlook.application
    Par lbroc84 dans le forum VBA Outlook
    Réponses: 4
    Dernier message: 16/12/2011, 16h08
  3. envoyer mail plusieurs contacts depuis excel
    Par timor dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 16/11/2010, 22h25
  4. [O-03] Créer mail depuis excel avec bouton de votes
    Par deca2 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 29/01/2009, 08h20
  5. Fenetre de validation sur l'envoi de mail depuis Excel
    Par pascal58 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 06/11/2006, 18h15

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo