Comment répondre à tous en incluant les pièces jointes originales dans Outlook ?

Vous avez déjà cliqué sur « Répondre à tous » dans Outlook et perdu les pièces jointes d’origine ? C’est frustrant ! Vous vous demandez comment conserver ces pièces jointes lorsque vous répondez à tous ? C’est tout à fait possible ! Découvrez avec nous comment inclure automatiquement les pièces jointes d’origine dans vos réponses, pour une gestion d’e-mails fluide et efficace. Restez attentif !

Répondre à tous avec les pièces jointes originales avec du code VBA

Répondre à tous avec les pièces jointes originales avec Kutools pour Outlook

---

Répondre à tous avec les pièces jointes originales avec du code VBA

Outlook ne propose pas de fonctionnalité dédiée pour réaliser cette tâche, mais vous pouvez y parvenir à l’aide du code VBA suivant. Procédez comme indiqué ci-dessous :

1. Lancez Outlook, puis maintenez enfoncées 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 ThisOutlookSession dans le volet Projet1 (VbaProject.OTM) pour ouvrir le module, puis copiez-collez le code suivant dans le module vide.

Code VBA : Répondre à tous avec les pièces jointes d’origine :

Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xAttParent As Object
Dim xCID As String, xID As String
Dim xHTML As String
On Error Resume Next
Set xAttParent = Attach.Parent
xCID = ""
xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCID <> "" Then
xHTML = xAttParent.HTMLBody
xID = "cid:" & xCID
If InStr(xHTML, xID) > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End If
End Function

3. Ensuite, cliquez sur Outils > Références dans la fenêtre Microsoft Visual Basic pour Applications. Dans la boîte de dialogue Références - Projet1 qui s’ouvre, cochez l’option Microsoft Scripting Runtime dans la liste Références disponibles, comme illustré ci-dessous :

4. Fermez ensuite la fenêtre de code, puis ajoutez le bouton de macro à la Barre d’outils Accès rapide.

5. Ouvrez le message auquel vous souhaitez répondre à tous avec pièces jointes dans la fenêtre Message, puis choisissez Autres commandes dans le menu déroulant Personnaliser la barre d’outils Accès rapide, comme illustré ci-dessous :

6. Dans la boîte de dialogue Options Outlook, procédez comme suit :

(1.) Sélectionnez Macrosdans la liste déroulante Choisir les commandes à partir de;

(2.) Cliquez sur le nom de la macro que vous venez d’insérer ;

(3.) Cliquez ensuite sur le bouton Ajouter pour ajouter la macro à la section Personnaliser la barre d’outils Accès rapide.

7. Cliquez ensuite sur OK pour fermer la boîte de dialogue. Le bouton de macro a désormais été ajouté à la Barre d’outils Accès rapide, comme illustré ci-dessous :

8. Cliquez dès maintenant sur le bouton de macro : la fenêtre de réponse, contenant les pièces jointes d’origine, s’ouvre. Rédigez votre message, puis cliquez sur le bouton Envoyer, comme illustré ci-dessous :

---

Répondre à tous avec les pièces jointes originales avec Kutools pour Outlook

Si vous disposez de Kutools pour Outlook, sa fonctionnalité Répondre à tous avec pièces jointes vous permet de répondre à tous en incluant les pièces jointes d’un seul clic.

Après avoir installé Kutools pour Outlook, procédez comme suit :

1. Sélectionnez le message auquel vous souhaitez répondre à tous avec les pièces jointes, puis cliquez sur Kutools > Répondre à tous avec les pièces jointes d’origine, comme illustré ci-dessous :

2. La fenêtre de réponse s’ouvre alors avec les pièces jointes d’origine. Rédigez votre message et envoyez-le, comme illustré ci-dessous :

Cliquez pour télécharger dès maintenant laversion gratuite de Kutools pour Outlook !