Скопируйте все вложения из нескольких писем в новое письмо

Скопируйте все вложения из электронного письма в ответное письмо

В этой статье будет представлен VBA для быстрого копирования всех вложений из нескольких электронных писем в новое в Outlook. Пожалуйста, сделайте следующее:

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

2. Нажмите Вставить > Модули, а затем вставьте ниже код 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 ключа или Run кнопку для запуска этого VBA.

Теперь вы увидите, что все вложения скопированы из выбранных писем и вставлены в новое письмо.

Если у вас установлен Kutools for Outlook, вы можете применить его Ответить с вложением функция, позволяющая легко копировать все вложения из электронного письма в ответное письмо в Outlook. Пожалуйста, сделайте следующее:

Выберите письмо, на которое вы ответите, и нажмите Кутулс > Ответить с вложением > Ответить с вложением. Смотрите скриншот:

Теперь вы увидите, что все вложения автоматически копируются в ответное письмо.

Как скопировать вложение в другое письмо в Outlook?