Comment ajouter un bouton pour envoyer un email avec le fichier Word actuel en pièce jointe ?
Si vous devez envoyer un email à partir d'un document Word en utilisant Outlook et joindre le fichier Word actuel, vous pouvez insérer un bouton de commande qui envoie l'email en un seul clic - pas besoin d'ouvrir Outlook manuellement. Ce guide montre comment le configurer rapidement et facilement.
Ajouter un bouton pour envoyer un email avec le fichier Word actuel en pièce jointe
Ajouter un bouton pour envoyer un email avec le fichier Word actuel en pièce jointe
Veuillez suivre ces étapes pour accomplir la tâche dans votre document Word :
- Tout d'abord, insérez un bouton de commande. Allez dans "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 : Comment afficher l'onglet Développeur dans le ruban Word.
- Sélectionnez le bouton, puis cliquez sur "Propriétés" sous l'onglet "Développeur". Dans le volet Propriétés, saisissez le texte que vous souhaitez afficher sur le bouton dans le champ "Légende".
- Fermez le volet Propriétés. Ensuite, faites un clic droit sur le bouton et choisissez "Afficher le code".
- Dans la fenêtre "Microsoft Visual Basic pour Applications", collez le code suivant entre les balises de sous-routine 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 modifier l'objet, le contenu du corps et l'adresse e-mail du destinataire dans le code pour correspondre aux détails réels de votre message.
- Enregistrez et fermez l'éditeur VBA. Cliquez sur "Mode Création" dans l'onglet Développeur pour le désactiver. Maintenant, lorsque vous cliquez sur le bouton de commande, un email est automatiquement créé dans Outlook avec le document Word actuel en pièce jointe.
- Enfin, cliquez sur le bouton "Envoyer" dans Outlook pour envoyer le message.
Meilleurs outils de productivité pour Office
Kutools pour Word – Améliorez votre expérience Word avec plus de 100 fonctionnalités exceptionnelles!
🤖 Fonctionnalités IA de Kutools: Assistant IA/ Assistant en Temps Réel/ Super Polir (Conserve la mise en forme)/ Super Traduire (Conserve la mise en forme)/ Rédaction IA/ Correction AI...
📘 Maîtrise des documents: Diviser des pages/ Fusionner les documents/ Exporter une sélection dans différents formats (PDF/TXT/DOC/HTML...)/ Conversion en lot vers PDF...
✏ Édition de contenu: Recherche et remplacement en lot dans plusieurs fichiers/ Redimensionner toutes les images/ Transposer les lignes et colonnes de tableau/ Convertir le tableau en texte...
🧹 Nettoyage facile: Éliminez les espaces supplémentaires/ sauts de section/ zones de texte/ liens hypertexte/ Pour plus d’outils de suppression, consultez le groupe Supprimer...
➕ Insertion créative: Insérez des séparateurs de milliers/ cases à cocher/ boutons radio/ code QR/ code-barres/ images multiples/ Découvrez-en plus dans le groupe Insérer...
🔍 Sélection avec précision: Ciblez des pages spécifiques / tableaux / formes / paragraphes de titre / Améliorez la navigation avec davantage de Sélectionner fonctionnalités...
⭐ Fonctionnalités phares: Accédez à n'importe quel emplacement/ Insertion automatique de textes répétitifs/ Basculez entre les fenêtres de document/11 outils de conversion...
🌍 Prise en charge de plus de40 langues: utilisez Kutools dans la langue de votre choix – Anglais, Espagnol, Allemand, Français, Chinois et plus de40 autres langues!

Meilleurs outils de productivité pour Office
Kutools pour Word – 100+ outils pour Word
- 🤖 Fonctionnalités IA de Kutools: Assistant IA/ Assistant en Temps Réel/ Super Polir/ Super Traduire/ Rédaction IA/ Correction AI
- 📘 Maîtrise des documents: Diviser des pages/ Fusionner les documents/ Conversion en lot vers PDF
- ✏ Édition de contenu: Recherche et remplacement en lot/ Redimensionner toutes les images
- 🧹 Nettoyage facile: Supprimer les espaces supplémentaires/ Supprimer les sauts de section
- ➕ Insertion créative: Insérer des séparateurs de milliers/ Insérer des cases à cocher/ Créer des codes QR
- 🌍 Prise en charge de plus de40 langues: Kutools parle votre langue– plus de40langues prises en charge!