Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

Comment ajouter un bouton pour envoyer un email avec le fichier Word actuel en pièce jointe ?

Author Xiaoyang Last modified

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 :

  1. 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.

    Developer tab with Controls group selected, Legacy Tools clicked, and Command Button highlighted
  2. 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".
    Properties button on the ribbon and Properties dialog popped up
  3. Fermez le volet Propriétés. Ensuite, faites un clic droit sur le bouton et choisissez "Afficher le code".
    View Code option on the context menu
  4. 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
    VBA window with the above code pasted

    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.

  5. 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.
    An email is created with the current Word document as an attachment
  6. Enfin, cliquez sur le bouton "Envoyer" dans Outlook pour envoyer le message.

Meilleurs outils de productivité pour Office

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

🤖 Fonctionnalités de Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (préserver le format) / Super Traduire (préserver le format) / Rédaction IA / Correction AI...

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter une solution dans différents formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...

✏ Modification du texte : Recherche et remplacement en lot sur plusieurs fichiers / Redimensionner toutes les images / Transposer le tableau lignes et Colonnes / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminez les espaces supplémentaires / Sauts de section / Zone de texte / Liens hypertexte / Pour plus d’outils de suppression, rendez-vous dans le groupe Supprimer...

➕ Insertion créative : Insérer des séparateurs de milliers / Case à cocher / Bouton radio / Code QR / Code-barres / Plusieurs images / Découvrez davantage dans le groupe Insérer...

🔍 Sélection précise : Ciblez des pages spécifiques / Tableaux / Forme / Paragraphe de titre / Améliorez la navigation avec plus de fonctions de Sélectionner...

⭐ Optimisations exclusives : Accéder à n’importe quelle plage / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres du document /11 outils de conversion...

🌍 Prend en charge plus de40 langues : Utilisez Kutools dans la langue de votre choix – Prise en charge de l’Anglais, de l’Espagnol, de l’Allemand, du Français, du Chinois et de bien d’autres encore !

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Envie d’essayer ces fonctionnalités ? Téléchargez Kutools pour Word dès maintenant ! 🚀
 

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

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

📦 Obtenez les5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagnez du temps et augmentez votre productivité instantanément

Meilleurs outils de productivité pour Office

Kutools pour Word – 100+ outils pour Word

Téléchargement gratuit Acheter maintenant En savoir plus sur Kutools