Comment remplir automatiquement le sujet de l'e-mail avec le nom de la pièce jointe dans Outlook ?
Pour ceux qui ont l'habitude d'utiliser le nom de la pièce jointe comme objet d'un e-mail dans Outlook, taper manuellement le nom de la pièce jointe dans la ligne d'objet à chaque fois prendra du temps. Comme indiqué dans le gif ci-dessous, si vous souhaitez remplir automatiquement la ligne d'objet de l'e-mail avec le nom de la pièce jointe lorsque vous insérez une pièce jointe, la méthode VBA de ce didacticiel vous aidera.
Remplissez automatiquement le sujet de l'e-mail avec le nom de la pièce jointe avec le code VBA
Veuillez exécuter le code VBA suivant pour remplir automatiquement l'objet de l'e-mail avec le nom de la pièce jointe insérée dans Outlook.
1. Lancez votre Outlook, appuyez sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Projet1 (VbProject.OTM) > Objets Microsoft Outlook > Cette session Outlook ouvrir le Cette session Outlook (code) éditeur.
3. Copiez ensuite le code VBA suivant dans le Cette session Outlook (code) éditeur.
Code VBA : remplissez automatiquement l'objet de l'e-mail avec le 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
4. Vous devez maintenant enregistrer le code et redémarrer Outlook.
5. Désormais, lorsque vous insérez une pièce jointe dans un email qui n'a pas encore d'objet renseigné, un Kutools for Outlook boîte de dialogue apparaîtra vous demandant si vous souhaitez utiliser le nom de la pièce jointe comme objet, cliquez sur le Oui .
Ensuite, la ligne d'objet sera automatiquement remplie avec le nom de la pièce jointe insérée.
Notes:
Meilleurs outils de productivité bureautique
Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook
🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...
📧 Email Automation: Absent du bureau (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel facile des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Boostez votre productivité Outlook avec des vues à onglets / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.