Copiez toutes les pièces jointes de plusieurs e-mails dans un nouvel e-mail

Copiez toutes les pièces jointes d'un e-mail vers son e-mail de réponse

Cet article présentera un VBA pour copier rapidement toutes les pièces jointes de plusieurs e-mails vers un nouveau dans Outlook. Veuillez procéder comme suit:

1. Sélectionnez plusieurs e-mails dont vous allez copier les pièces jointes et appuyez sur autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
Notes: En portant Ctrl clé, vous pouvez sélectionner plusieurs e-mails non adjacents en cliquant dessus un par un; en portant Shift clé, vous pouvez sélectionner plusieurs e-mails adjacents en cliquant sur le premier et le dernier.

2Cliquez sur insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre Module.

VBA: Copiez toutes les pièces jointes de plusieurs e-mails vers un nouveau

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

3. presse F5 clé ou le Courir bouton pour exécuter ce VBA.

Vous verrez maintenant que toutes les pièces jointes sont copiées à partir des e-mails sélectionnés et collées dans un nouvel e-mail.

Si Kutools for Outlook est installé, vous pouvez appliquer son Répondre avec pièce jointe pour copier facilement toutes les pièces jointes d'un e-mail vers son e-mail de réponse dans Outlook. Veuillez procéder comme suit:

Sélectionnez l'e-mail auquel vous répondrez et cliquez sur Kutools > Répondre avec pièce jointe > Répondre avec pièce jointe. Voir capture d'écran:

Vous verrez maintenant que toutes les pièces jointes sont automatiquement copiées dans l'e-mail de réponse.

Comment copier une pièce jointe dans un autre e-mail dans Outlook?