Comment appliquer un bouton permettant d’envoyer un e-mail avec le fichier Word actuel en pièce jointe ?

Si vous devez envoyer un e-mail depuis un document Word via Outlook en y joignant automatiquement le fichier en cours, vous pouvez insérer un bouton dédié qui lance l’envoi en un seul clic — sans ouvrir Outlook manuellement. Ce guide vous explique comment configurer cette fonctionnalité rapidement et facilement.

Appliquer un bouton pour envoyer un e-mail avec le fichier Word actuel en pièce jointe

Appliquer un bouton pour envoyer un e-mail avec le fichier Word actuel en pièce jointe

Veuillez suivre ces étapes pour accomplir cette tâche dans votre document Word :

1. Commencez par insérer un bouton de commande : accédez à « Développeur » > « Outils hérités » > « Bouton de commande (contrôle ActiveX) ».

   Remarque : Si vous ne voyez pas l’onglet Développeur dans le ruban, consultez la page suivante : Comment afficher l’onglet Développeur dans le ruban Word.

   

2. Sélectionnez le bouton, puis cliquez sur « Propriétés » dans l’onglet « Développeur ». Dans le volet Propriétés, saisissez dans le champ « Légende » le texte que vous souhaitez afficher sur le bouton.

   

3. Fermez le volet Propriétés, puis cliquez avec le bouton droit sur le bouton et sélectionnez « Afficher le code ».

   

4. Dans la fenêtre « Microsoft Visual Basic pour Applications », collez le code suivant entre les balises de sous-programme existantes :

   Dim xOutlookObj As Object
   Dim xEmail As Object
   Dim xDoc As Document
   Application.ScreenUpdating = False
   Set xOutlookObj = CreateObject("Outlook.Application")
   Set xEmail = xOutlookObj.CreateItem(olMailItem)
   Set xDoc = ActiveDocument
   xDoc.Save
   With xEmail
       .Subject = "Fax-data"
       .Body = "This is a test email."
       .To = "yy@addin99.com"
       .Importance = olImportanceNormal
       .Attachments.Add xDoc.FullName
       .Display
   End With
   Set xDoc = Nothing
   Set xEmail = Nothing
   Set xOutlookObj = Nothing
   Application.ScreenUpdating = True

   

   Remarque : Vous pouvez personnaliser l’objet, le corps du message et l’adresse e-mail du destinataire directement dans le code pour qu’ils correspondent aux détails réels de votre message.

5. Fermez et enregistrez l’éditeur VBA. Cliquez sur « Mode Création » dans l’onglet Développeur pour le désactiver. Désormais, un simple clic sur le bouton de commande génère automatiquement un e-mail dans Outlook, avec le document Word actuel en pièce jointe.

   

6. Enfin, cliquez sur le bouton « Envoyer » dans Outlook pour expédier votre message.

Meilleurs outils de productivité Office

Kutools pour Word – Améliorez votre expérience Word avec plus de 100 fonctionnalités remarquables !

🤖Fonctionnalités Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (conserver le format) / Super Traduire (conserver le format) / Rédaction IA / Correction IA…

📘Maîtrisez vos documents : divisez les pages, fusionnez les documents, exportez la sélection dans divers formats (PDF, TXT, DOC, HTML…) ou convertissez-les par lots en PDF…

✏Édition du contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes d’un tableau / Convertir un tableau en texte…

🧹Nettoyage simplifié : supprimez en un clin d’œil les espaces superflus, les sauts de section, les zones de texte ou les liens hypertexte. Pour encore plus d’outils de suppression, rendez-vous dans le groupe Supprimer…

➕Insertions créatives : insérez des séparateurs de milliers, une case à cocher, un bouton radio, un code QR, un code-barres ou plusieurs images. Découvrez-en davantage dans le groupe Insertion…

🔍Sélections précises : ciblez exactement les pages spécifiques, les tableaux, les formes ou les paragraphes de titre. Améliorez votre navigation grâce à davantage de fonctions de dé sélection…

⭐Améliorations phares : Naviguer vers n’importe quel emplacement / Insérer automatiquement du texte répétitif / Basculer entre les documents Windows / 11 outils de conversion Outils de...

🌍Prend en charge plus de 40 langues : Utilisez Kutools dans votre langue préférée – disponible en anglais, espagnol, allemand, français, chinois et plus de 40 autres langues !

 

Téléchargement gratuit     Acheter maintenant     En savoir plus

 

---

Office Tab- Apporte une interface à onglets à Office et rend votre travail bien plus facile

• Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !

Téléchargement gratuit     Acheter maintenant     En savoir plus

 

---

✨ Kutools for Office – Une installation, cinq outils puissants !

Inclus Office Tab Pro·Kutools pour Excel·Kutools pour Outlook·Kutools pour Word·Kutools for PowerPoint

📦 Obtenez les 5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagner du temps et boostez immédiatement votre productivité

⬇️ Télécharger maintenant🎁 Acheter la suite complète📖 En savoir plus

Meilleurs outils de productivité Office

Kutools pour Word- Outils 100+ pour Word

• 🤖Kutools IA Fonctionnalités:Assistant IA/Assistant en Temps Réel/Super Polish/Super Traduire/Rédaction IA/Correction AI
• 📘Maîtrise des documents:Diviser les pages/Fusionner les documents/Conversion par lots en PDF
• ✏Édition du contenu:Recherche et remplacement en lot/Redimensionner toutes les images
• 🧹Nettoyage simplifié:Supprimer les espaces superflus/Supprimer Saut de section
• ➕Insertions créatives:Insérer des séparateurs de milliers/Insérer Case à cocher/Créer Code QR
• 🌍Prend en charge plus de 40 langues : Kutools parle votre langue – plus de 40 langues disponibles !

Téléchargement gratuitAcheter maintenantEn savoir plus sur Kutools