Note: The other languages of the website are Google-translated. Back to English
Mon Compte  \/ 
x
or
x
S’enregistrer  \/ 
x

or

Comment copier les noms de toutes les pièces jointes lors de la réponse dans Outlook?

Lorsque vous répondez à un e-mail RTF (au format Rich Format) dans Outlook, il copiera les noms de toutes les pièces jointes et les collera automatiquement dans le corps du message (voir capture d'écran ci-dessous). Cependant, lors de la réponse à un e-mail HTML dans Outlook, les pièces jointes sont manquantes dans la réponse à l'e-mail. Ici, cet article présentera quelques méthodes pour copier le nom de toutes les pièces jointes lors de la réponse aux e-mails, ou directement dans les e-mails reçus.


Copiez les noms de toutes les pièces jointes lors de la réponse en changeant HTML en RTF

Si nous avons converti l'e-mail HTML en RTF avant de répondre, les noms de toutes les pièces jointes seront copiés dans le message de réponse après avoir cliqué sur Accueil> Répondre dans Outlook.

1. Double-cliquez pour ouvrir l'e-mail dont vous devez copier les noms des pièces jointes, puis cliquez sur Votre message > Actions > Modifier le message dans la fenêtre de message. Voir la capture d'écran:

2. Allez-y pour cliquer Format du texte > Texte Riche, puis enregistrez et fermez l'e-mail.

3. Vous revenez maintenant à la vue principale. Continuez à sélectionner l'e-mail et cliquez sur Accueil > Répondre.

4. Maintenant, les noms de toutes les pièces jointes sont copiés à partir de l'e-mail d'origine et collés dans le message de réponse comme illustré ci-dessous. Veuillez rédiger le message de réponse et l'envoyer.

Copiez les noms de toutes les pièces jointes lors de la réponse avec VBA

Cette méthode introduira une macro VBA pour copier les noms de toutes les pièces jointes lors de la réponse à un e-mail, puis collera les noms dans le corps du message de l'e-mail de réponse dans Outlook.

1. presse autre + F11 simultanément pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans l'explorateur de projet de gauche, développez le projet 1, double-cliquez pour ouvrir le ThisOutlookSession fenêtre (voir capture d'écran ci-dessous), puis collez le code ci-dessous dans la fenêtre.

VBA: Copiez le nom de toutes les pièces jointes lors de la réponse à un e-mail dans Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. Cliquez Outils > Les références.

4. Dans la fenêtre Références d'ouverture - Projet 1 pour Outlook 2016, veuillez vérifier le Bibliothèque d'objets Microsoft Word 16.0 référence dans la zone Références disponibles, puis cliquez sur le bouton OK bouton. Voir la capture d'écran:

importante: Veuillez sélectionner le Bibliothèque d'objets Microsoft Word 15.0 référence si vous travaillez avec Outlook 2013, ou Bibliothèque d'objets Microsoft Word 14.0 référence avec Outlook 2010.

5. Enregistrez le VBA et fermez la fenêtre Microsoft Visual Basic pour Applications.

6. Vous revenez maintenant à l'interface principale d'Outlook. Sélectionnez l'e-mail auquel vous répondrez et cliquez sur Accueil > Répondre or Répondre à tous.
importante: Si les noms des pièces jointes ne sont pas copiés et collés dans l'e-mail de réponse, redémarrez votre Outlook et répondez à nouveau.

Et maintenant, le nom de toutes les pièces jointes est copié à partir de l'e-mail sélectionné et collé dans l'e-mail de réponse. Voir la capture d'écran:


Copiez tous les noms de pièces jointes lorsque vous répondez avec un outil incroyable

Si vous avez Kutools pour Outlook installé, vous pouvez appliquer son Copier les noms pour copier rapidement tous les noms de pièces jointes à partir d'un e-mail reçu, puis collez facilement son message de réponse dans Outlook.

Kutools pour Outlook: Ajoutez plus de 100 outils pratiques pour Outlook, essayez gratuitement sans limitation dans 60 jours. En Savoir Plus      Essai gratuit maintenant

1. Sélectionnez l'e-mail auquel vous répondrez et cliquez sur Kutools > Outils de fixation > Copier les noms.

Ensuite, une boîte de dialogue apparaît et vous indique que les noms des pièces jointes sont copiés dans le presse-papiers. Cliquez sur OK pour la fermer.

2. Allez-y pour cliquer Accueil > Répondre pour répondre à l'e-mail sélectionné.

3. Dans la fenêtre du message de réponse, placez le curseur dans le corps du message et appuyez sur Ctrl + V touches pour coller facilement les noms des pièces jointes.

Répondez facilement aux e-mails sélectionnés avec toutes les pièces jointes d'origine conservées dans Outlook

En général, les pièces jointes d'origine sont supprimées lors de la réponse à un e-mail dans Outlook. Mais, avec fantastique Répondre avec pièce jointe fonctionnalité de Kutools for Outlook, vous pouvez facilement conserver toutes les pièces jointes des e-mails lorsque vous y répondez dans Outlook. Cliquez pour un essai gratuit de 60 jours sans limitation!
répondre avec des pièces jointes


Articles Liés:


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és...
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en double... 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
 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.