Как сохранить вложения при ответе на письмо в Outlook?
В Microsoft Outlook при пересылке письма исходные вложения остаются нетронутыми. Однако при ответе на письмо Outlook автоматически удаляет все вложения, считая их ненужными в переписке. Это может вызывать раздражение и снижать продуктивность — особенно если вам нужно сослаться на важные файлы, повторно отправить документы или сохранить вложения для лучшего контекста. К счастью, есть несколько способов гарантировать сохранение вложений при ответе в Outlook: от простого ручного метода до одношагового и даже автоматизированного решения.
Ответить с вложениями путём ручного копирования и вставки(Базовый и утомительный)
Одношаговое Ответить с вложениями с помощью Kutools для Outlook 👍(Быстро и без усилий)
Ответить с вложениями автоматически с помощью VBA(Технический и требует настройки)
Ответить с вложениями путём ручного копирования и вставки
Вы можете вручную скопировать вложения из письма и вставить их в ответное сообщение перед отправкой.
1. Откройте Outlook, выберите письмо, на которое хотите ответить, и просмотрите его в Области чтения или откройте в отдельном окне.
2. Щёлкните по любому из вложений, затем нажмите Выбрать всё > Копировать на вкладке Вложения.

3. Нажмите кнопку Ответить, чтобы открыть окно ответа.

4. В окне ответа щёлкните в любом месте тела сообщения и нажмите Ctrl+V или выберите Вставить на вкладке Сообщение, чтобы вставить скопированные вложения.

5. Напишите ответ, проверьте вложения и нажмите Отправить.
Ограничения:
- Ручной и повторяющийся: не подходит для частого использования.
- Трудоёмкий: Каждый раз требует дополнительных действий.
- Подвержен ошибкам: легко забыть скопировать и вставить вложения.
📂 Легко сохраняйте вложения из нескольких писем
Устали сохранять вложения по одному письму за раз в Outlook? Оптимизируйте свою работу с помощью Kutools для Outlook! Мощная функция Сохранить всё (вложения) позволяет сохранять вложения из нескольких писем или целых папок всего за несколько кликов. Забудьте о рутинных ручных операциях и легко возьмите свой почтовый ящик под контроль.

Одношаговое Ответить с вложениями с помощью Kutools для Outlook 👍
Для быстрого и простого способа ответить с вложениями используйте Kutools для Outlook. Функция Ответить с исходными вложениями позволяет отвечать, сохранив исходные вложения, всего одним щелчком мыши.
Прощай, неэффективная работа в Outlook! Kutools для Outlook упрощает пакетную обработку писем — попробуйте прямо сейчас с 30-дневной бесплатной пробной версией!Скачать Kutools для Outlook сейчас!!
Выберите письмо с вложениями, которые нужно сохранить, и нажмите Kutools > Ответить с исходными вложениями или Ответить всем с исходными вложениями.

Всё готово! Ответное сообщение автоматически включит все вложения из исходного письма. Просто напишите текст и нажмите Отправить.

Почему стоит выбрать Kutools для Outlook?
- ✅ Экономия времени: Больше не нужно вручную копировать и вставлять вложения.
- ✅ Решение в один клик: мгновенно отвечает с вложениями.
- ✅ Простой в использовании: Пользоваться легко — никаких технических навыков не требуется.
Ответить с вложениями автоматически с помощью VBA
Пользователям, знакомым со сценариями VBA, этот метод позволяет автоматизировать отправку ответов с вложениями. Однако для его работы необходимо включить макросы в Outlook и вручную добавить соответствующий код.
Шаг 1: Откройте редактор VBA
1. Выберите письмо, на которое вы хотите ответить.
2. Нажмите Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
3. В левой панели разверните Project1 > Объекты Microsoft Outlook. Дважды щёлкните ThisOutlookSession, чтобы открыть его.

Шаг 2: Вставьте код VBA
Скопируйте и вставьте следующий код VBA в окно ThisOutlookSession:
Sub RunReplyWithAttachments()
'Update by Extendoffice 20250224
Dim xReplyItem As Outlook.MailItem
Dim xItem As Object
On Error Resume Next
Set xItem = GetCurrentItem()
If xItem Is Nothing Then Exit Sub
Set xReplyItem = xItem.Reply
CopyAttachments xItem, xReplyItem
xReplyItem.Display
Set xReplyItem = Nothing
Set xItem = Nothing
End Sub
Sub RunReplyAllWithAttachments()
Dim xReplyAllItem As Outlook.MailItem
Dim xItem As Object
Set xItem = GetCurrentItem()
If xItem Is Nothing Then Exit Sub
Set xReplyAllItem = xItem.ReplyAll
CopyAttachments xItem, xReplyAllItem
xReplyAllItem.Display
Set xReplyAllItem = Nothing
Set xItem = Nothing
End Sub
Function GetCurrentItem() As Object
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = Application.ActiveInspector.CurrentItem
End Select
End Function
Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
Dim xFilePath As String
Dim xAttachment As Attachment
Dim xFSO As Object
Dim xTmpFolder As Object
Dim xFldPath As String
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xTmpFolder = xFSO.GetSpecialFolder(2)
xFldPath = xTmpFolder.Path & "\"
For Each xAttachment In SourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xFilePath = xFldPath & xAttachment.Filename
xAttachment.SaveAsFile xFilePath
TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
xFSO.DeleteFile xFilePath
End If
Next
Set xFSO = Nothing
Set xTmpFolder = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xAttParent As Object
Dim xCID As String, xID As String
Dim xHTML As String
On Error Resume Next
Set xAttParent = Attach.Parent
xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCID <> "" Then
xHTML = xAttParent.HTMLBody
xID = "cid:" & xCID
If InStr(xHTML, xID) > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End If
End Function
Шаг 3: Запустите макрос VBA
1. Нажмите F5 или кнопку Выполнить, чтобы запустить макрос.
2. В диалоговом окне Макросы выберите ThisOutlookSession.RunReplyAllWithAttachments, чтобы ответить всем, или выберите ThisOutlookSession.RunReplyWithAttachments, чтобы ответить одному получателю. Нажмите Выполнить.

Результат
Окно ответа откроется со всеми исходными вложениями. Просто напишите сообщение и нажмите Отправить.
Преимущества и недостатки метода с VBA:
- ✅ Автоматизированный: никакого ручного копирования и вставки вложений!
- ❌ Требуются знания VBA: Может оказаться неудобным для новичков.
- ❌ Макросы отключены по умолчанию: их нужно включать вручную.
Заключение: какой метод выбрать?
Ниже приведено сравнение трёх методов, которое поможет вам выбрать наиболее подходящий вариант:
| Метод | Лучше всего подходит для | Простота использования | Эффективность |
|---|---|---|---|
| Ручное копирование и вставка | Редкое использование | ⭐⭐⭐⭐ | ⭐⭐ |
| Kutools для Outlook | Повседневное использование, пользователи без технических навыков | ⭐⭐⭐⭐⭐ | ⭐⭐⭐⭐⭐ |
| Макрос VBA | Любители автоматизации, продвинутые пользователи | ⭐⭐⭐ | ⭐⭐⭐⭐ |
Для большинства пользователей Kutools для Outlook — лучший выбор, ведь это самый быстрый и простой способ ответить с вложениями в Outlook. Теперь вы с лёгкостью сможете ответить с вложениями в Outlook, используя метод, который идеально впишется в ваш рабочий процесс! 🚀
Демонстрация: один клик для Ответить с вложениями с помощью Kutools для Outlook
См. также:
- Как сохранить вложения при ответе на письмо в Outlook?
- Как сохранить все вложения из нескольких писем в одну папку в Outlook?
- Как удалить все вложения из письма в Outlook?
Лучшие инструменты для повышения продуктивности в Office
Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!
📧Автоматизация работы с электронной почтой: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…
📨Управление электронной почтой: Отозвать письмо / Блокировка спама по теме и другим признакам / Удаление дубликатов писем / Расширенный поиск / Организация папок…
📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…
🌟Волшебство интерфейса: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных входящих письмах / Сворачивание Outlook вместо закрытия…
👍Чудеса одним щелчком: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…
👩🏼🤝👩🏻Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделение группы контактов на отдельные группы / Удаление напоминания о дне рождения…
Используйте Kutools на вашем любимом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!


🚀 Скачать одним щелчком — Получите все надстройки для Office
Настоятельно рекомендуется: Kutools for Office (5 в 1)
Скачайте одним щелчком пять установщиковсразу —Kutools для Excel, Outlook, Word, PowerPointи Office Tab Pro.Нажмите, чтобы скачать прямо сейчас!
- ✅Удобство одним щелчком: Скачайте все пять установочных пакетов за одно действие.
- 🚀Готовы к любой задаче в Office: устанавливайте нужные надстройки именно тогда, когда они вам понадобятся.
- 🧰Входит в комплект: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools for PowerPoint