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

Author: Kelly Last Modified: 2025-08-07

Эффективное управление вложениями в письмах в 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 или ручного копирования вложений.

Раскройте максимальную эффективность электронной почты с Kutools для Outlook! Получите доступ к 70 мощным функциям абсолютно бесплатно навсегда. Скачайте бесплатную версию прямо сейчас!

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.