Comment lister tous les noms des pièces jointes dans le corps du message lors de la rédaction d'un email dans Outlook ?
Existe-t-il de bonnes méthodes pour insérer tous les noms des pièces jointes dans le corps du message lors de la composition d'un email dans Outlook ? Dans cet article, je vais vous expliquer comment résoudre cette tâche dans Outlook.
Lister tous les noms des pièces jointes dans le corps du message lors de la rédaction d'un email avec 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 for Applications.
2. Dans la fenêtre Microsoft Visual Basic for Applications, double-cliquez sur ThisOutlookSession dans le volet Project1(VbaProject.OTM) pour ouvrir le module, puis copiez et collez le code suivant dans le module vide.
Code VBA : Lister tous les noms des pièces jointes 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. Ensuite, continuez en cliquant sur Insertion > Module, copiez et collez le code ci-dessous dans le module vide ouvert, voir capture d'écran :
Code VBA : Lister tous les noms des pièces jointes 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. Puis, cliquez sur Outils > Références dans la fenêtre Microsoft Visual Basic for Applications, dans la boîte de dialogue Références-Project1 qui s'affiche, cochez l'option Microsoft Word Object Library dans la liste des références disponibles, voir capture d'écran :
 |  |  |
5. Cliquez sur OK pour quitter la boîte de dialogue, puis vous devez ajouter le bouton macro à la barre d'outils Accès rapide. Dans la nouvelle fenêtre Message, choisissez Plus de commandes dans le menu déroulant Personnaliser la barre d'outils Accès rapide, voir capture d'écran :
6. Dans la boîte de dialogue Options Outlook, effectuez les opérations suivantes :
(1.) Sélectionnez Macros dans la liste déroulante Choisir des commandes depuis ;
(2.) Cliquez sur le nom de la macro que vous venez d'insérer ;
(3.) Puis cliquez sur le bouton Ajouter pour ajouter la macro à la barre d'outils Accès rapide personnalisée.
7. Ensuite, cliquez sur OK pour fermer la boîte de dialogue, maintenant, le bouton de la macro a été inséré dans la barre d'outils Accès rapide, voir capture d'écran :
8. Maintenant, lorsque vous créez un nouveau message et cliquez sur le bouton de la macro, les noms des pièces jointes seront insérés au-dessus du corps du message comme le montre la capture d'écran suivante :
Lister tous les noms des pièces jointes dans le corps du message lors de la rédaction d'un email avec une fonctionnalité simple
Peut-être que le code ci-dessus est un peu difficile à appliquer pour vous, si vous avez Kutools for Outlook, avec sa fonction Copier les noms, vous pouvez rapidement copier les noms des pièces jointes d'un message et les coller où vous en avez besoin.
Après avoir installé Kutools for Outlook, veuillez procéder comme suit :
1. Tout d'abord, veuillez créer le nouvel email dont vous avez besoin, puis cliquez sur Kutools > Copier les noms dans la nouvelle fenêtre Message, voir capture d'écran :
2. Ensuite, une boîte de dialogue apparaîtra pour vous rappeler que les noms des pièces jointes ont été copiés dans le presse-papiers, voir capture d'écran :
3. Maintenant, il vous suffit d'appuyer simultanément sur les touches Ctrl + V pour coller les noms des pièces jointes dans le corps du message dont vous avez besoin, voir capture d'écran :
Plus d'articles connexes :
- Répondre à tous avec les pièces jointes originales dans Outlook
- Normalement, lorsque vous utilisez la fonction Répondre à tous pour répondre au message à tous les destinataires dans Outlook, les pièces jointes originales seront automatiquement perdues. Est-il possible d'attacher les pièces jointes originales lors de la réponse à tous dans Outlook ?
- Télécharger/Enregistrer les pièces jointes d'Outlook vers un dossier spécifique
- En général, vous pouvez enregistrer toutes les pièces jointes d'un email en cliquant sur Pièces jointes > Enregistrer toutes les pièces jointes dans Outlook. Mais, si vous devez enregistrer toutes les pièces jointes de tous les emails reçus et à recevoir, une idée ? Cet article présentera deux solutions pour télécharger automatiquement les pièces jointes d'Outlook vers un dossier spécifique.
- Changer l'emplacement de sauvegarde par défaut des pièces jointes dans Outlook
- En avez-vous assez de rechercher à chaque fois l'emplacement des pièces jointes spécifié lorsque vous lancez Outlook ? Dans ce tutoriel, nous allons vous montrer comment changer l'emplacement par défaut des pièces jointes. Après cela, le dossier de sauvegarde des pièces jointes spécifié s'ouvrira automatiquement à chaque fois que vous enregistrez les pièces jointes, même après redémarrage d'Outlook.
- Supprimer toutes les pièces jointes d'un email dans Outlook
- Normalement, lorsque vous prévisualisez un email, vous pouvez supprimer une pièce jointe en faisant un clic droit et en sélectionnant l'élément Supprimer la pièce jointe. Parfois, il peut y avoir plusieurs pièces jointes dans un message électronique, et il peut être fastidieux de les supprimer une par une. Ici, nous vous proposons deux astuces simples pour supprimer toutes les pièces jointes d'un seul email, ainsi que toutes les pièces jointes de plusieurs emails dans Outlook.
Meilleurs outils de productivité pour Office
Dernières nouvelles : Kutools pour Outlook lance une version gratuite !
Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !
📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...
📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...
🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...
👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...
