Note: The other languages of the website are Google-translated. Back to English

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 pour 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:

1) Si vous avez déjà rempli le sujet, l'insertion d'une pièce jointe ne fera pas apparaître la boîte de dialogue.
2) Si vous supprimez un objet existant de l'e-mail actuel mais que le curseur est toujours 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 pour actualiser la boîte de message afin que le code fonctionne.
3) Si vous insérez plusieurs pièces jointes en même temps, seul le nom de la première pièce jointe peut être utilisé comme objet de l'e-mail.

Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (7)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Добрый день. Подскажите пожалуйста можно ли сделать что бы тема формировалась из и более файлив с с Может в данном коде дописать или вообще другой существует? Заранее спасибо
Ce commentaire a été minimisé par le modérateur sur le site
Salut Александр,

Voulez-vous dire ajouter plusieurs pièces jointes tout en ajoutant ces noms de pièces jointes en même temps au sujet, puis en les liant avec ET ?
Ce commentaire a été minimisé par le modérateur sur le site
Да. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.
Ce commentaire a été minimisé par le modérateur sur le site
Да, именно. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И
Ce commentaire a été minimisé par le modérateur sur le site
Добрый день. ДА при добавлении 2 файлов в тему писалось через И.
Ce commentaire a été minimisé par le modérateur sur le site
Salut Александр,

Le code VBA suivant peut vous aider à résoudre votre problème. Veuillez essayer.
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220131
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Dim GFileName As String

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
  GFileName = ""
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
  GFileName = ""
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  If GMail.Subject = "" Then
    GMail.Subject = GFileName
  Else
    GMail.Subject = GMail.Subject & " AND " & GFileName
  End If
  GFileName = ""
End Sub

Private Sub GMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)
  On Error Resume Next
  GFileName = Attachment.DisplayName
  GFileName = Left$(GFileName, VBA.InStrRev(GFileName, ".") - 1)
  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
    GFileName = ""
    Exit Sub
  End If
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Да получилось. Огромное спасибо за помощь. И еще один вопрос, а можно в конце всего этого, при нажатии кнопки "Отправить" выдавал некое сообщение что то типа "Вы действительно хотите отправить данное сообщение"?
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL