Скопіюйте всі вкладення з декількох електронних листів на новий електронний лист

Скопіюйте всі вкладення з електронного листа на відповідний електронний лист

У цій статті буде представлено VBA для швидкого копіювання всіх вкладень із кількох електронних листів до нового в Outlook. Будь ласка, виконайте наступне:

1. Виберіть кілька електронних листів, вкладення яких ви скопіюєте, та натисніть інший + F11 клавіші, щоб відкрити вікно Microsoft Visual Basic for Applications.
примітки: Холдинг Ctrl клавішу, ви можете вибрати кілька сусідніх електронних листів, клацаючи по одному; проведення Shift клавішу, ви можете вибрати кілька сусідніх електронних листів, натиснувши перший і останній.

2. Клацання Insert > Модулі, а потім вставте нижче коду VBA у нове вікно модуля.

VBA: Скопіюйте всі вкладення з декількох електронних листів на новий

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. Прес F5 клавішу або прогін для запуску цього VBA.

Тепер ви побачите, що всі вкладення скопійовано із вибраних електронних листів та вставлено в новий електронний лист.

Якщо у вас встановлено Kutools для Outlook, ви можете застосувати його Відповідь із додатком функція для легкого копіювання всіх вкладень з електронного листа на відповідне повідомлення електронної пошти в Outlook. Будь ласка, виконайте наступне:

Виберіть електронний лист, на який ви відповісте, і натисніть Кутулс > Відповідь із додатком > Відповідь із додатком. Дивіться знімок екрана:

Тепер ви побачите, що всі вкладення автоматично копіюються на відповідне повідомлення електронної пошти.

Як скопіювати вкладення в інший електронний лист в Outlook?