Skopiuj wszystkie załączniki z wielu e-maili do nowego e-maila

Skopiuj wszystkie załączniki z e-maila do e-maila z odpowiedzią

W tym artykule przedstawimy VBA, aby szybko skopiować wszystkie załączniki z wielu wiadomości e-mail do nowego w Outlooku. Wykonaj następujące czynności:

1. Wybierz wiele wiadomości e-mail, których załączniki chcesz skopiować, i naciśnij inny + F11 klawisze, aby otworzyć okno Microsoft Visual Basic for Applications.
Note: Trzymać Ctrl klucz, możesz wybrać wiele nieprzylegających e-maili, klikając je jeden po drugim; trzymać Shift klawisz, możesz wybrać wiele sąsiednich wiadomości e-mail, klikając pierwszy i ostatni.

2. Kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do nowego okna modułu.

VBA: Skopiuj wszystkie załączniki z wielu e-maili do nowego

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. naciśnij F5 klucz lub run przycisk, aby uruchomić ten VBA.

Teraz zobaczysz, że wszystkie załączniki zostały skopiowane z wybranych e-maili i wklejone do nowego e-maila.

Jeśli masz zainstalowany Kutools dla programu Outlook, możesz zastosować jego plik Odpowiedz z załącznikiem funkcja umożliwiająca łatwe kopiowanie wszystkich załączników z wiadomości e-mail do wiadomości e-mail z odpowiedzią w programie Outlook. Wykonaj następujące czynności:

Wybierz e-mail, na który odpowiesz, i kliknij Kutools > Odpowiedz z załącznikiem > Odpowiedz z załącznikiem. Zobacz zrzut ekranu:

Teraz zobaczysz, że wszystkie załączniki są automatycznie kopiowane do wiadomości e-mail z odpowiedzią.

Jak skopiować załącznik do innego e-maila w Outlooku?