Dans le cadre de mon travail, j'ai besoin de pouvoir envoyer des mails a un destinataire + des personnes en copie.

Lors de l'élaboration de mon projet, je suis parvenu a faire un envoi systématique pour plusieurs personnes mais pas a faire un mail en incluant d'autres personnes en copie

Mon idée serait la suivante :
Lancer une Userform pour définir le destinataire et les personnes en copie.

Est-ce possible ?

Veuillez-trouver ci-joint une copie de mon fichier de travail

Par avance merci

Cordialement

Bonjour Alragorn,

Petit exemple très vite fait (désolé pas beaucoup de temps).

Le bouton EnvoiMail à été détourné de son rôle original, en lieu et place un formulaire d'envoi s'ouvre.
Le libellé des boutons est assez parlant je crois :

• Copier : Copie la ou les adresses de courriels sélectionnées.
• Envoyer : Ouvre un nouveau message avec les adresses choisies dans le client de courriels par défaut.
• Annuler : Annule l'opération.
• Deux boutons d'options pour choisir les Destinataires et les destinataires en copie.

Dans ce formulaire une liste déroulante portant la liste des contacts de la feuille Contacts
J'ai supprimé le corps de la procédure originale SendEmail().

Le formulaire d'envoi utilise la fonction API ShellExecute()

Cordialement

Guy

P.S.  Petite misère avec le fichier joint %?!!##*!

Merci pour ton aide Guy

C'est parfait, as-tu une idée pour mettre plusieurs personnes dans destinataire (ajout automatique du ; devant l'adresse email).

Cordialement

De rien,

Y'a pas besoin d'ajouter de ; .  La chaîne est formée de virgule en interne et s'affiche comme ; dans Outlook.  Donc pour ajouter des destinataires en saisissant au clavier, les séparer par une virgule.

As-tu essayé de sélectionner plusieurs destinataires avec la souris dans la liste de contact ?

Je t'envoie un truc un peu plus présentable après mes courses.

Cordialement,

Guy

Guy

J'ai retravaillé mon fichier pour la mise en forme mais j'avoue que je n'ai pas ton niveau et que je n'ai pas compris tout le code et que je n'ai pas trouvé l'origine du message d'erreur.

" Erreur d'éxécution 380 "

J'ai rajouté un nouveau choix (contact entreprise) et un nouvel onglet (contact ent) dans mon fichier, afin de t'aider.

Tu as raison pour la sélection multiple il suffit de sélectionner plusieurs personnes.

Merci pour ton travail qui est excellent.

Cordialement

NB : Vive le québec

Bonsoir,

Petites retouches ici et là.  Je n'ai pas chargé le dernier fichier que tu as laissé; pas vraiment le temps je prépare mes vacances  J'ai modifié quelque peu la première version.  Tu n'auras qu'à transférer les deux formulaires frmCourriel et frmContacts dans ton nouveau classeur.  En effet j'ai séparé la partie saisie et la partie contact de même que commenté le code un peu plus sérieusement.

Voilà pour l'heure et espérant que la chose réponde à la question posée.  Je parts pour quelque jours, je ne serai donc pas au bout de la toile s'il y avait pépin.

Cordialement,

Guy

Merci beaucoup Guy, c'est super

Cordialement