6 способів збереження оригінальних вкладень електронної пошти під час відповіді в Outlook

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Багато користувачів сподіваються налаштувати свій Outlook на збереження оригінальних вкладень електронної пошти під час відповіді на електронне повідомлення. Ця стаття розкриє 5 обхідних шляхів, а також розумний спосіб, який використовує VBA для його автоматичного здійснення.

Я чув, як велика кількість користувачів скаржиться, що Outlook не має власної функції зберігати оригінальні вкладення під час відповіді на електронне повідомлення. Отже, тут ми поділимося з вами 6 методами, один із яких є досить корисним, оскільки він використовує VBA для того, щоб Outlook автоматично вклав оригінальні вкладення у відповідь на повідомлення електронної пошти. Тепер читайте далі, щоб отримати їх детально.

Зберігайте оригінальні вкладення електронної пошти, коли відповідаєте в Outlook

1. Відповідь із вкладеним оригінальним повідомленням електронної пошти

Незважаючи на те, що Outlook не надає можливості зберігати оригінальні вкладення електронної пошти під час відповіді на повідомлення електронної пошти, він дозволяє користувачам зберігати прикріплені оригінальні електронні листи. Отже, це необов’язкове рішення для вас. Ви можете перейти до «Файл»> «Параметри»> «Пошта»> розділ «Відповіді та переадресація», щоб змінити налаштування відповіді. Для отримання більш детальної інформації вам пропонується звернутися до моєї попередньої статті - “5 кроків, щоб відповісти оригінальними вкладеннями в Outlook". Але якщо ви все ще сподіваєтесь зберегти лише оригінальні вкладення, перейдіть до вивчення інших засобів.

2. Перетягування вкладень вручну

  1. Для початку двічі клацніть на такому вихідному електронному листі, щоб відкрити його в окремому вікні.
  2. Потім натисніть кнопку «Відповісти», яка відкриє відповідь на електронне повідомлення.
  3. Далі вам слід зменшити обидва вікна повідомлень, поки ви не побачите їх на одному екрані.
  4. Після цього виберіть усі вкладення в оригінальному електронному листі.
  5. Нарешті, перетягніть їх у рядок “Вкладене” в електронному листі, що відповідає.Перетягуйте вкладення вручну

3. Копіювати та вставляти вкладення вручну

  1. Перш за все, після відкриття вихідного повідомлення електронної пошти, виберіть усі вкладення.
  2. Потім натисніть кнопку «Копіювати» на вкладці «Вкладені файли».Скопіюйте всі вкладення
  3. Після цього натисніть кнопку «Відповісти» на вкладці «Повідомлення», щоб відкрити лист-відповідь.
  4. Зрештою, у електронному листі, що відповідає, натисніть рядок «Вкладене» та натисніть кнопку «Ctrl + V», щоб вставити раніше скопійовані вкладення.

4. Пересилання електронної пошти та заповнення одержувача

  1. Спочатку виберіть такий електронний лист, а потім натисніть кнопку «Переслати» на стрічці.
  2. У новому спливаючому вікні Повідомлення зберігаються оригінальні вкладення. Тепер потрібно заповнити поле “Кому” відправнику оригінального електронного листа.
  3. За бажанням ви можете змінити тему відповідно до своїх потреб.

5. Повторно надішліть цей електронний лист та змініть одержувачів

  1. Для початку відкрийте вихідний електронний лист.
  2. Потім натисніть кнопку «Дії» в групі «Перемістити».
  3. Далі виберіть "Повторно надіслати це повідомлення" зі спадного списку.
  4. Можливо, ви отримаєте сповіщення про те, що ви не є оригінальним відправником. Просто ігноруйте це і натисніть "Так".
  5. У наступному новому електронному листі вам слід змінити поле «Кому» для відправника оригінального електронного листа.
  6. Також не забудьте змінити надсилання за допомогою облікового запису електронної пошти на власний.

6. Автоматично додавати оригінальні вкладення через VBA

Всі згадані вище підходи, чесно кажучи, є обхідними шляхами. Якщо ви сподіваєтесь, що Outlook може автоматично зберігати оригінальні вкладення під час відповіді, ви можете скористатися цим способом.

  1. У головному вікні Outlook натисніть клавіші “Alt + F11”.
  2. Потім у вікні “Microsoft Visual Basic for Applications” скопіюйте код VBA нижче у проект “ThisOutlookSession”.
Private WithEvents objExplorer As Outlook.Explorer
Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If TypeName(objExplorer.Selection.Item(1)) = "MailItem" Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeName(Inspector.CurrentItem) = "MailItem" Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

'Occurs when clicking "Reply" button
Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

'Occurs when clicking "Reply All" button
Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

Private Sub KeepOriginalAttachments(ByVal objOriginalMail As MailItem, objReply As Object)
    Dim strEnviro As String
    Dim strTempFolder As String
    Dim strFilePath As String
    Dim objAttachment As Outlook.Attachment
 
    'Get the temp folder in Windows
    strEnviro = CStr(Environ("USERPROFILE"))
    strTempFolder = strEnviro & "\AppData\Local\Temp"
 
    For Each objAttachment In objOriginalMail.Attachments
        'Skip the embedded image attachments
        If IsEmbeddedAttachment(objAttachment) = False Then
           strFilePath = strTempFolder & "\" & objAttachment.filename
           objAttachment.SaveAsFile strFilePath
 
           'Attach the temporarily saved attachments to the Reply
           objReply.Attachments.Add strFilePath
 
           'Delete the temporarily saved attachments
           Kill strFilePath
       End If
    Next
End Sub

'Function for checking if an attachment is embedded image attachment
Function IsEmbeddedAttachment(objCurrentAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.propertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurrentAttachment.propertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbeddedAttachment = True
    Else
       IsEmbeddedAttachment = False
    End If
End Function

Код VBA - зберігайте оригінальні вкладення електронної пошти під час відповіді

  1. Пізніше підпишіть цей макрос і змініть параметри макросів Outlook, щоб дозволити підписані макроси.
  2. Після цього перезапустіть програму Outlook, щоб активувати цей проект VBA.
  3. Відтепер кожен раз, коли ви натискаєте кнопку «Відповісти». Електронний лист із відповіддю відображатиметься з оригінальними вкладеннями одразу.

Зверніться до видатного інструменту ремонту

Outlook не зважає на інших поштових клієнтів завдяки незліченним можливостям. Але вона все ще схильна до корупції. Отже, слід приділяти більше уваги його здоров’ю. Загалом, стикаючись з дрібними проблемами, ви можете просто повернутися до вбудованої утиліти виправлення. Тим не менше, якщо ви страждаєте від серйозних проблем, вам краще звернутися до набагато більш досвідченого інструменту, такого як DataNumen Outlook Repair. Він може виправити Outlook файл в одну мить.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql виправити та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.