Comment insérer tous les noms des pièces jointes dans le corps du message lors de la rédaction d’un courrier dans Outlook ?

Existe-t-il des méthodes efficaces pour insérer tous les noms des pièces jointes dans le corps du message lors de la rédaction d’un courrier dans Outlook ? Dans cet article, je vous explique comment accomplir cette tâche sous Outlook.

Insérer tous les Nom de la pièce jointe dans le corps du message lors de la rédaction d’un courrier à l’aide d’un code VBA

Insérer tous les Nom de la pièce jointe dans le corps du message lors de la rédaction d’un courrier grâce à une fonctionnalité simple

Insérer tous les Nom de la pièce jointe dans le corps du message lors de la rédaction d’un courrier à l’aide d’un code VBA

Veuillez suivre les étapes ci-dessous pour accomplir cette tâche :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, double-cliquez sur ThisOutlookSession dans le volet Projet1 (VbaProject.OTM) pour ouvrir le module, puis copiez-collez le code suivant dans le module vide.

Code VBA : insérer tous les Nom de la pièce jointe dans le corps du message :

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As MailItem
    If Item.Class = olMail Then
        Set xMailItem = Item
        If xMailItem.Attachments.Count > 0 Then
          AddAttachmentNamesToBody
        End If
    End If
    End Sub

3. Cliquez ensuite sur Insertion > Module, puis copiez-collez le code ci-dessous dans le module vide qui s’ouvre, comme illustré ci-dessous :

Code VBA : insérer tous les Nom de la pièce jointe dans le corps du message :

Public Sub AddAttachmentNamesToBody()
    Dim xMailItem As MailItem
    Dim xAttachment As Attachment
    Dim xFileName As String
   Dim xInspector As Outlook.Inspector
    Dim xDoc As Word.Document
    Dim xWdSelection As Word.Selection
    On Error Resume Next
    Set xMailItem = Outlook.ActiveInspector.CurrentItem
    If xMailItem.Attachments.Count = 0 Then
        Exit Sub
    End If
    xFileName = ""
    For Each xAttachment In xMailItem.Attachments
        If xFileName = "" Then
            xFileName = " <" & xAttachment.FileName & "> "
        Else
            xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
        End If
    Next xAttachment
    Set xInspector = Outlook.Application.ActiveInspector()
    Set xDoc = xInspector.WordEditor
    Set xWdSelection = xDoc.Application.Selection
    xWdSelection.HomeKey Unit:=wdStory
    xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
    Set xMailItem = Nothing
    End Sub

4. Cliquez ensuite sur Outils > Références dans la fenêtre Microsoft Visual Basic pour Applications. Dans la boîte de dialogue Références - Projet1 qui s’affiche, cochez l’option Microsoft Word Object Library dans la liste Références disponibles, comme illustré ci-dessous :

5. Cliquez sur OK pour fermer la boîte de dialogue, puis ajoutez le bouton de macro à la barre d’outils Accès rapide. Dans la nouvelle fenêtre Message, choisissez Autres commandes dans le menu déroulant Personnaliser la barre d’outils Accès rapide, comme illustré ci-dessous :

6. Dans la boîte de dialogue Options Outlook, effectuez les opérations suivantes :

(1.) Sélectionnez Macrosdans la liste déroulante Choisir les commandes à partir de;

(2.) Cliquez sur le nom de la macro que vous venez d’insérer ;

(3.) Cliquez ensuite sur le bouton Ajouter pour ajouter la macro à la section Personnaliser la barre d’outils Accès rapide.

7. Cliquez ensuite sur OK pour fermer la boîte de dialogue. Le bouton de macro a désormais été ajouté à la barre d’outils Accès rapide, comme illustré ci-dessous :

8. Désormais, lorsque vous créez un nouveau message et cliquez sur le bouton de macro, les noms des pièces jointes seront insérés au-dessus du corps du message, comme illustré ci-dessous :

Insérer tous les Nom de la pièce jointe dans le corps du message lors de la rédaction d’un courrier grâce à une fonctionnalité simple

Le code ci-dessus peut sembler un peu complexe à mettre en œuvre. Si vous disposez de Kutools pour Outlook, sa fonctionnalité Copier les noms vous permet de copier instantanément les noms des pièces jointes d’un message et de les coller où vous le souhaitez.

Après avoir installé Kutools pour Outlook, procédez comme suit :

1. Commencez par créer les nouveaux e-mails nécessaires, puis cliquez sur Kutools > Copier les noms dans la nouvelle fenêtre Message, comme illustré ci-dessous :

2. Une boîte de dialogue s’affiche alors pour vous informer que le nom de la pièce jointe a été copié dans le presse-papiers, comme illustré ci-dessous :

3. Il vous suffit maintenant d’appuyer simultanément sur les touches Ctrl + V pour coller le nom de la pièce jointe dans le corps du message souhaité, comme illustré ci-dessous :

Articles connexes supplémentaires :

---

Meilleurs outils de productivité Office

Découvrez la toute nouvelle Kutools pour Outlook avec 100+ fonctionnalités incroyables !Cliquez pour télécharger dès maintenant !

🤖Kutools IA:Utilise une technologie d’intelligence artificielle avancée pour gérer vos e-mails sans effort, notamment en répondant, résumant, optimisant, développant, traduisant et rédigeant des messages.

📧Automatisation des e-mails : Réponse automatique (disponible pour POP et IMAP) / Planification de l’envoi d’e-mails / CC/BCC automatique selon des règles lors de l’envoi d’e-mails / Transfert automatique (règle avancée) / Ajout automatique de formules de politesse / Division automatique des e-mails à plusieurs destinataires en messages individuels...

📨Gestion des e-mails : Rappeler un e-mail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les e-mails en double / Recherche avancée / Organiser vos dossiers…

📁Pièces jointes Pro : Enregistrer en lot / Détacher en lot / Compresser en lot / Enregistrement automatique / Détachement automatique / Compression automatique…

🌟Magie de l’interface : 😊 Encore plus d’emojis jolis et stylés / Vous prévient à l’arrivée d’e-mails importants / Réduire Outlook au lieu de le fermer...

👍Merveilles en un clic : Répondre à tous avec pièces jointes / E-mails anti-hameçonnage / 🕘 Afficher le fuseau horaire – Heure actuelle de l’expéditeur…

👩🏼‍🤝‍👩🏻Contacts et calendrier : Créer en lot : ajouter un contact à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire…

Utilisez Kutools dans votre langue préférée – compatible avec l’anglais, l’espagnol, l’allemand, le français, le chinois et plus de 40 autres langues !

Débloquez Kutools pour Outlook instantanément en un seul clic ! Ne perdez plus une seconde : téléchargez dès maintenant et boostez votre efficacité !

Liste des fonctionnalités de Kutools pour Outlook      Télécharger maintenant      Accéder à l’achat

🚀 Téléchargement en un clic — Obtenez tous les compléments Office

Fortement recommandé : Kutools for Office (5-en-1)

Un seul clic pour télécharger cinq programmes d’installationen une fois —Kutools pour Excel, Outlook, Word, PowerPointet Office Tab Pro.Cliquez pour télécharger dès maintenant !

• ✅Commodité en un clic : téléchargez les cinq packs d’installation en une seule action.
• 🚀Prêt à relever toutes vos tâches Office : installez les compléments dont vous avez besoin, exactement quand vous en avez besoin.
• 🧰Inclus: Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools for PowerPoint

À propos de la Suite⬇ Télécharger la Suite💳 Acheter la Suite