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

Author Kelly Last modified 2025-08-26

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

Скопируйте все вложения из нескольких писем в новое письмо с помощью VBA (Ручной и Технический)

Мгновенно скопируйте все вложения из письма в ответное письмо с помощью удивительного инструмента 👍 (Без усилий и Рекомендуется)

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

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

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

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

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

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

Нажмите «Alt» + «F11», чтобы открыть окно «Microsoft Visual Basic for Applications».

Шаг 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» или кнопку «Выполнить», чтобы выполнить код. Откроется новое письмо, содержащее все вложения, извлеченные из выбранных писем.

Недостатки:

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

📂 Легко сохраняйте вложения из нескольких писем

Устали сохранять вложения по одному письму за раз в Outlook? Оптимизируйте свою работу с помощью Kutools для Outlook! Мощная функция Сохранить все (Вложения) позволяет вам сохранять вложения из нескольких писем или целых папок всего за несколько кликов. Забудьте об утомительных ручных процессах и легко контролируйте свой почтовый ящик.

Скачать Kutools для Outlook сейчас

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

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

Попрощайтесь с неэффективностью Outlook! Kutools for Outlook упрощает пакетную обработку электронных писем – теперь с бесплатными функциями, работающими на базе ИИ! Скачайте Kutools for Outlook прямо сейчас!!

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

the screenshot of copying attchment to a replying email using Kutools 1

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

the screenshot of copying attchment to a replying email using Kutools 2

Преимущества метода Kutools для Outlook:

✅ Нет необходимости в ручном копировании или вставке: Работает мгновенно одним кликом.
✅ Нет необходимости в написании кода VBA: Удобный и беспроблемный.
✅ Экономия времени: Значительно сокращает усилия по сравнению с ручными методами.
✅ Совместимость со всеми версиями Outlook: Нет ограничений на использование макросов и предупреждений безопасности.

Примечание: Чтобы применить функцию «Ответ с оригинальными вложениями» из Kutools для Outlook, сначала вам нужно скачать и установить Kutools для Outlook.