Как скопировать все вложения из нескольких писем в новое письмо в Outlook?

Эффективное управление вложениями электронной почты в Outlook может быть непростой задачей, особенно когда нужно извлечь вложения из нескольких писем и добавить их в новое сообщение или скопировать все вложения из исходного письма в ответ. Ручное сохранение и повторное прикрепление файлов не только отнимает массу времени, но и чревато ошибками. К счастью, есть два эффективных способа упростить эту рутину. Вы можете воспользоваться VBA, чтобы извлечь и вставить вложения из нескольких писем в новое сообщение — хотя это требует определённых технических навыков. Однако для более быстрого и удобного решения инструмент Kutools для Outlookпозволяет одним щелчком мыши мгновенно скопировать все вложения из письма в ответное сообщение, делая его самым эффективным и удобным выбором.

Копирование всех вложений из нескольких писем в Новое письмо с помощью VBA(Ручной и технический метод)

Мгновенное копирование всех вложений из письма в ответное сообщение с помощью замечательного инструмента 👍(Простой и рекомендуемый метод)

---

Копирование всех вложений из нескольких писем в Новое письмо с помощью VBA

Если вы предпочитаете использовать VBA для автоматизации этого процесса, выполните следующие шаги, чтобы быстро извлечь и скопировать все вложения из нескольких писем в новое сообщение.

Шаг 1: Выберите несколько писем

В Outlook выберите письма, содержащие вложения, которые нужно скопировать.

• Удерживайте клавишу Ctrl, чтобы выбрать несколько несмежных писем.
• Удерживайте клавишу Shift, чтобы выделить диапазон последовательных писем.

Шаг 2: Откройте редактор VBA

Нажмите «Alt» + «F11», чтобы открыть окно Microsoft Visual Basic для приложений.

Шаг 3: Вставьте код VBA в новый модуль

Щёлкните  «Вставка» > «Модуль», чтобы создать новый модуль. Затем вставьте следующий код 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

Шаг 4: Запустите код VBA

Нажмите «F5» или щёлкните кнопку «Выполнить», чтобы запустить код. Откроется новое письмо со всеми вложениями, извлечёнными из выбранных сообщений.

---

Мгновенное копирование всех вложений из письма в ответное сообщение с помощью замечательного инструмента 👍

Для более простого и быстрого решения воспользуйтесь функцией «Ответить с исходными вложениями» из Kutools для Outlook. Всего один щелчок — и все вложения из исходного письма автоматически скопируются в ваш ответ, без необходимости использовать VBA или вручную добавлять файлы.

1. В режиме «Почта» выберите письмо, на которое хотите ответить, и нажмите «Kutools» > «Ответить с исходными вложениями» или «Ответить всем с исходными вложениями».

2. Теперь все вложения из выбранного письма автоматически копируются в ответное сообщение.

---

Связанные статьи

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