Comment remplir automatiquement l’objet de l’e-mail avec le nom du fichier joint dans Outlook ?

AuteurSiluvia Date de modification2024-09-18

Pour ceux habitués à utiliser le nom du fichier joint comme objet d’un e-mail dans Outlook, devoir saisir manuellement ce nom dans la ligne d’objet à chaque envoi devient rapidement chronophage. Comme le montre le GIF ci-dessous, si vous souhaitez que la ligne « Objet » de votre e-mail soit automatiquement renseignée avec le nom de la pièce jointe dès son ajout, la méthode VBA présentée dans ce tutoriel vous sera particulièrement utile.

Remplir automatiquement Objet de l'email avec Nom de la pièce jointe à l’aide d’un code VBA

Veuillez exécuter le code VBA suivant pour remplir automatiquement l’objet de l’e-mail avec le nom du fichier joint inséré dans Outlook.

1. Lancez Outlook, puis appuyez sur 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 Projet1 (VbProject.OTM) > Objets Microsoft Outlook > ThisOutlookSession pour ouvrir l’éditeur ThisOutlookSession (Code).

3. Copiez ensuite le code VBA suivant dans l’éditeur ThisOutlookSession (Code).

Code VBA : Remplissage automatique de Objet de l'email avec Nom de la pièce jointe

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  Dim xFileName As String
  On Error Resume Next
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
  xFileName = Att.DisplayName
  xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
  GMail.Subject = xFileName
End Sub

doc-autofill-subject-line-with-attachment-name-2

4. Vous devez maintenant enregistrer le code et redémarrer Outlook.

5. Désormais, lorsque vous insérez une pièce jointe dans un e-mail dont l’objet n’a pas encore été renseigné, une boîte de dialogue Kutools pour Outlook s’affiche pour vous demander si vous souhaitez utiliser le nom de la pièce jointe comme objet. Cliquez sur le bouton Oui.

doc-autofill-subject-line-with-attachment-name-3

La ligne d’objet sera alors automatiquement remplie avec le nom de la pièce jointe insérée.

doc-autofill-subject-line-with-attachment-name-4

Remarques:

1) Si vous avez déjà renseigné l’objet, l’insertion d’une pièce jointe n’affichera pas la boîte de dialogue.

2) Si vous supprimez un objet existant de l’e-mail actuel mais que le curseur reste affiché dans la ligne d’objet, l’insertion d’une pièce jointe n’affichera pas non plus la boîte de dialogue. Après avoir supprimé l’objet, vous devez cliquer en dehors de la ligne d’objet afin de rafraîchir la zone de message et permettre au code de fonctionner.

3) Si vous insérez plusieurs pièces jointes simultanément, seul le nom de la première pièce jointe pourra être utilisé comme objet de l’e-mail.

Assistant IA Mail dans Outlook : des réponses plus intelligentes, une communication plus claire (magie en un clic !) !

Simplifiez vos tâches quotidiennes dans Outlook avec l’Assistant IA Mail de Kutools pour Outlook. Cet outil intelligent s’appuie sur vos e-mails précédents pour vous suggérer des réponses pertinentes, optimiser le contenu de vos messages et vous aider à rédiger et perfectionner vos e-mails en toute simplicité.

Cette fonctionnalité prend en charge :

Réponses intelligentes : obtenez des réponses élaborées à partir de vos conversations passées – personnalisées, précises et immédiatement utilisables.
Contenu amélioré : affinez automatiquement le texte de vos e-mails pour plus de clarté et d’impact.
Rédaction simplifiée : il vous suffit d’indiquer des mots-clés, et l’IA s’occupe du reste, avec plusieurs styles d’écriture.
Extensions intelligentes : libérez tout le potentiel de vos idées grâce à des suggestions parfaitement adaptées à votre contexte.
Résumé : obtenez instantanément des aperçus concis de vos e-mails les plus longs.
Portée mondiale : traduisez vos e-mails facilement dans n’importe quelle langue.

Cette fonctionnalité prend en charge :

Réponses intelligentes aux e-mails
Contenu optimisé
Brouillons basés sur des mots-clés
Extension intelligente du contenu
Résumé d’e-mails
Traduction multilingue

N’attendez plus –téléchargez dès maintenant l’Assistant IA Mail et profitez-en!

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