Note: The other languages of the website are Google-translated. Back to English

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

Когда мы пересылаем сообщение электронной почты в Microsoft Outlook, исходные вложения в этом сообщении электронной почты остаются в перенаправленном сообщении. Однако, когда мы отвечаем на сообщение электронной почты, исходные вложения не будут прикреплены к новому ответному сообщению. Здесь мы собираемся познакомить вас с парочкой приемов сохранения исходных вложений при ответе в Microsoft Outlook.

Ответьте с вложениями, вручную скопировав и вставив
Автоматический ответ с вложениями с помощью VBA
Один щелчок, чтобы ответить с вложениями с помощью Kutools for Outlook


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

Мы можем вручную скопировать исходные вложения в сообщения электронной почты и вставить их в окно ответного сообщения, когда мы ответим на сообщение электронной почты позже.

Шаг 1. Щелкните сообщение электронной почты, чтобы просмотреть его в области чтения.

Шаг 2. Щелкните правой кнопкой мыши одно вложение в предварительном просмотре сообщения электронной почты и выберите Выбрать все из контекстного меню.

Шаг 3. Щелкните правой кнопкой мыши выбранные вложения и выберите Копировать из контекстного меню.

Шаг 4. Ответьте на сообщение электронной почты, нажав Ответить Кнопка на Главная вкладка (или на панели инструментов в Outlook 2007).

Шаг 5. В окне «Ответное сообщение» щелкните значок макаронные изделия Кнопка на Сообщение вкладку, чтобы вставить эти вложения.

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

Шаг 6. Составьте ответное сообщение и нажмите Отправить кнопку.


Легко отвечать на электронные письма с оригинальными вложениями в Outlook:

Kutools для Outlook's Ответить с вложением Утилита может помочь вам легко ответить на полученное электронное письмо с его исходными вложениями в Outlook. См. Демонстрацию ниже: 
Скачайте и попробуйте прямо сейчас! (60-дневная бесплатная трасса)


Автоматический ответ с вложениями с помощью VBA 

Существует макрос VBA, который может помочь вам автоматически ответить с исходными вложениями.

Примечание. Прежде чем запускать какие-либо макросы VBA, вам необходимо включить макросы в Microsoft Outlook.

Шаг 1. Выберите сообщение электронной почты, на которое вы ответите с вложениями.

Шаг 2: нажмите другой + F11 клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.

Шаг 3. Разверните объекты Project1 и Microsoft Outlook на левой панели и дважды щелкните значок ThisOutlookSession чтобы открыть ее.

Шаг 4. Вставьте следующий код в окно ThisOutlookSession.

Sub RunReplyWithAttachments()
'Update by Extendoffice 20180830
    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 Scripting.FileSystemObject
    Dim xTmpFolder As Scripting.Folder
    Dim xFldPath As String
    Set xFSO = New 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 = ""
    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

Шаг 5: нажмите F5 ключ для запуска этого макроса. В открытии Макрос диалоговое окно, нажмите RunReplyAllWithAttachments если вы хотите ответить всем с вложениями. В противном случае выберите запустить ответ с вложениями, затем нажмите Run кнопку.

Затем открывается окно «Ответ на сообщение» с вложением всех исходных вложений.

Шаг 6. Составьте ответное сообщение и нажмите Отправить кнопку.


Ответить с вложениями автоматически с помощью Kutools for Outlook

Ответить с прикреплением полезности Kutools для Outlook может помочь вам ответить на электронные письма с оригинальными вложениями всего одним щелчком мыши.

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

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

2. Затем нажмите Кутулс > Ответить с вложением > Ответить с вложением. Смотрите скриншот:

Затем все вложения выбранного электронного письма перечислены в Прилагается поле ответного сообщения. Напишите письмо и отправьте его.

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


Один щелчок, чтобы ответить с вложениями с помощью Kutools for Outlook

  Если вы хотите получить бесплатную (60-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.


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


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

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (24)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Привет команда, у него есть способ запустить этот макрос, используя несколько сочетаний клавиш в Outlook.
Ритурадж Шарма
Этот комментарий был сведен к минимуму модератором на сайте
Да. Под основными параметрами вы можете добавить вкладку разработчика, где вы можете найти макросы. И, что еще лучше, если вы щелкните правой кнопкой мыши полосу вверху со всеми кнопками, они называют это «лентой», вы можете добавить новую пользовательскую группу и отображать свои макросы в виде кнопок прямо на вкладке «Главная».
mr
Этот комментарий был сведен к минимуму модератором на сайте
Я пытаюсь использовать ответ с вложениями, но он не добавляет вложение, а просто сохраняет ссылку. Я использую автоматическое отсоединение при получении электронной почты. Есть ли параметр конфигурации, который мне нужно обновить? Спасибо за помощь!
Сьюзан Ландес
Этот комментарий был сведен к минимуму модератором на сайте
Дорогая Сьюзан,

Вложения больше не будут находиться в электронном письме, поскольку они автоматически отсоединяются от электронного письма. Пожалуйста, отключите функцию автоматического отсоединения, чтобы использовать функцию «Ответить с вложением».

С уважением, Кристалл.
кристалл
Этот комментарий был сведен к минимуму модератором на сайте
как отключить функцию автоматического отключения
Дакота
Этот комментарий был сведен к минимуму модератором на сайте
Дорогая Дакота,

Если вы используете функцию автоматического отсоединения всех получаемых вложений Kutools for Outlook, сделайте следующее, как показано на снимке экрана, чтобы отключить эту функцию, сняв флажок в Outlook. Благодарю вас!
кристалл
Этот комментарий был сведен к минимуму модератором на сайте
Я скачал вкладку Kutools. Могу ли я добавить «Ответить с вложением» на главную вкладку или в «Быстрые шаги»??
Джим
Этот комментарий был сведен к минимуму модератором на сайте
Дорогой Джим,
Вы можете щелкнуть правой кнопкой мыши кнопку «Ответить с вложением» и выбрать «Добавить на панель быстрого доступа», чтобы добавить эту функцию на панель быстрого доступа на ленте. Смотрите скриншот:
кристалл
Этот комментарий был сведен к минимуму модератором на сайте
В последней части скрипта многие переменные не определены.
NMGMarques
Этот комментарий был сведен к минимуму модератором на сайте
Я использовал код VBA, но он прикрепляется ко всем изображениям (.gif, jpg,...) в содержимом электронной почты. Пожалуйста, покажите мне, как решить эту проблему?
Нхан Нгуен Туан
Этот комментарий был сведен к минимуму модератором на сайте
Добрый день,
Код обновлен в посте. Теперь проблема решена. Пожалуйста, попробуйте и спасибо за ваш комментарий.
кристалл
Этот комментарий был сведен к минимуму модератором на сайте
Очень приятно, спасибо, но у меня ошибка компилятора: Пользовательский тип не определен. Там выделен Dim xFSO As Scripting.FileSystemObject в части Sub CopyAttachments
Джек
Этот комментарий был сведен к минимуму модератором на сайте
Привет Хонза,
Код работает хорошо в моем случае. Какую версию Office вы используете?
кристалл
Этот комментарий был сведен к минимуму модератором на сайте
я тоже. У меня проблема с теми же людьми выше. Я использую офис 2016.
Хиен
Этот комментарий был сведен к минимуму модератором на сайте
Я использую офис 365 с той же ошибкой
Роб
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Боб,
Пожалуйста попробуйте:
1. Нажмите клавиши Alt + F11, чтобы снова открыть окно Microsoft Visual Basic для приложений;
2. Щелкните Инструменты > Ссылки и установите флажок Среда выполнения сценариев Microsoft.
Теперь код может работать.
кристалл
Этот комментарий был сведен к минимуму модератором на сайте
Это решить это для меня!

Благодарю.
хттан
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуй!

Большое спасибо за такой отличный инструмент!

Можно ли запустить команду, чтобы окно ответа не всплывало, а оставалось в режиме чтения?
Алексей
Этот комментарий был сведен к минимуму модератором на сайте
Привет Алексей,
Мы выпустили новую версию с обновленным инструментом. Спасибо за поддержку.
кристалл
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Кристалл!

спасибо за обновление!
был изменен код макроса или он будет работать только с установленным инструментом?
Алексей
Этот комментарий был сведен к минимуму модератором на сайте
Привет Алексей,
Код используется отдельно без установленного инструмента.
кристалл
Этот комментарий был сведен к минимуму модератором на сайте
Hi
Я собираюсь использовать код, чтобы ответить всем с вложениями в результатах поиска из всех почтовых ящиков, но он показывает мне ошибку и не работает.
пожалуйста, дайте мне знать, как изменить код, чтобы его можно было использовать для всех почтовых ящиков.

С наилучшими пожеланиями
Шахруз
Шахруз Брал
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Ошибка не вызывает при поиске.
Чтобы избежать этой ошибки, нажмите «Инструменты» > «Ссылки», чтобы открыть диалоговое окно «Ссылки», а затем включите параметр «Среда выполнения сценариев Microsoft». Шаги смотрите на прикрепленном изображении.
кристалл
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я использую ваш код для ответа, и это здорово, спасибо, что сделали его доступным. У меня настроены параметры почты, чтобы предварять комментарии моими инициалами, что работает, когда я использую стандартный ответ. Когда я создаю ответ, используя этот код, мои инициалы не вставляются. Можете ли вы помочь? Спасибо, Стив.
Стив
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0  Характеристики
Предлагаемые места