Как скопировать все вложения из нескольких писем в новое письмо в Outlook?
Эффективное управление вложениями в письмах в 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". Этот метод позволяет вам скопировать все вложения из письма непосредственно в ответное письмо всего одним щелчком — без необходимости использования VBA или ручного копирования вложений.
Раскройте максимальную эффективность электронной почты с Kutools для Outlook! Получите доступ к 70 мощным функциям абсолютно бесплатно навсегда. Скачайте бесплатную версию прямо сейчас!
1. В представлении Почта выберите письмо, на которое хотите ответить. Затем нажмите "Kutools" > "Ответить с оригинальным вложением или Ответить всем с оригинальным вложением".
2. Теперь все вложения из выбранного письма автоматически копируются в ответное письмо.
Преимущества метода Kutools для Outlook:
- ✅ Нет необходимости в ручном копировании или вставке: Работает мгновенно одним щелчком.
- ✅ Нет необходимости в написании кода VBA: Удобный и беспроблемный.
- ✅ Экономия времени: Значительно сокращает усилия по сравнению с ручными методами.
- ✅ Совместимость со всеми версиями Outlook: Нет ограничений на макросы или предупреждений безопасности.
Связанные статьи
Как скопировать вложение в другое письмо в Outlook?
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Kutools для Outlook запускает бесплатную версию!
Оцените совершенно новую бесплатную версию Kutools для Outlook с более чем70 потрясающими функциями — пользуйтесь ими НАВСЕГДА! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилу при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические письма по теме и другим параметрам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и крутых Эмодзи / Напоминание о важных письмах / Сворачивайте Outlook вместо закрытия ...
👍 Мгновенные действия: Ответить всем с вложениями / Антифишинговые Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...
