Note: The other languages of the website are Google-translated. Back to English
Войти  \/ 
x
or
x
Регистрация  \/ 
x

or

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

В общем, легко копировать вложения из одного письма в другое с помощью копирования и вставки в Outlook. Но как насчет копирования вложений из нескольких писем в новое? Эта статья познакомит вас с решениями.

Вкладка Office - включите редактирование и просмотр с вкладками в Office и сделайте работу намного проще ...
Kutools for Outlook - приносит 100 мощных расширенных функций в Microsoft Outlook
  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Множественные письма по правилам; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показывать сообщение при попытке ответить всем, если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой переписке; Отвечайте сразу на несколько писем; Автоматическое добавление приветствия при ответе; Автоматически добавлять дату и время в тему ...
  • Инструменты для вложения: Автоотключение, Сжать все, Переименовать все, Автосохранение всех ... Быстрый отчет, Подсчет выбранных писем, Удаление повторяющихся писем и контактов ...
  • Более 100 дополнительных функций будут решить большинство ваших проблем в Outlook 2010-2019 и 365. Полнофункциональная 60-дневная бесплатная пробная версия.

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

В этой статье будет представлен 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 ключа или Запустите кнопку для запуска этого VBA.

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


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

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

Kutools для Outlook: Добавьте более 100 удобных инструментов для Outlook, которые можно попробовать бесплатно без ограничений в течение 60 дней. Читать далее      Бесплатная пробная версия

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

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


Статьи по теме


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.