6 начина за запазване на оригиналните прикачени файлове към имейл, когато отговаряте в Outlook

Решения за Outlook Септември 29, 2025

Много потребители се надяват да конфигурират своя Outlook, за да запазят оригиналните прикачени файлове към имейл, когато отговарят на имейл. Тази статия ще представи 5 заобиколни решения, както и интелигентен начин, който използва VBA, за да го реализира автоматично.

Чувал съм голям брой потребители, които се оплакват, че Outlook няма собствена функция за запазване на оригинални прикачени файлове, когато отговарят на имейл. Ето защо тук ще ви споделим 6 метода, единият от които е доста полезен, тъй като използва VBA, за да накара Outlook да прикачи автоматично оригиналните прикачени файлове към имейл за отговор. Сега прочетете, за да ги получите подробно.

1. Отговорете с прикачен оригинален имейл

Въпреки че Outlook не предоставя функция за запазване на оригинални прикачени файлове към имейл, когато отговаря на имейл, той позволява на потребителите да запазят оригиналния имейл прикачен. Следователно, това е незадължително решение за вас. Можете да се насочите към „Файл“> „Опции“> „Поща“> раздел „Отговори и препратки“, за да промените настройките за отговор. За повече подробности се препоръчва да се обърнете към предишната ми статия - „5 стъпки за отговор с оригинални прикачени файлове в Outlook”. Но ако все още се надявате да запазите само оригинални прикачени файлове, продължете, за да научите другите средства.

2. Ръчно плъзгане и пускане на прикачени файлове

За начало, щракнете двукратно върху такъв имейл източник, за да го отворите в собствен прозорец.
След това щракнете върху бутона „Отговор“, който ще изведе имейла с отговор.
След това трябва да свиете двата прозореца за съобщения, докато не ги видите на един и същ екран.
След това изберете всички прикачени файлове в оригиналния имейл.
И накрая, плъзнете ги и ги пуснете до реда „Прикачени“ в отговарящия имейл.

3. Ръчно копиране и поставяне на прикачени файлове

На първо място, след отваряне на имейл източника, изберете всички прикачени файлове.
След това щракнете върху бутона „Копиране“ в раздела „Прикачени файлове“.
След това щракнете върху бутона „Отговор“ в раздела „Съобщение“, за да отворите писмо с отговор.
В крайна сметка в имейла с отговор кликнете върху реда „Прикачен“ и натиснете бутона „Ctrl + V“, за да поставите копираните преди това прикачени файлове.

4. Препращане на имейл и попълване на получателя

Първо изберете такъв имейл и след това кликнете върху бутона „Препращане“ в лентата.
В новоизскачащия прозорец Съобщение се запазват оригиналните прикачени файлове. Сега трябва да попълните полето „До“ на подателя на оригиналния имейл.
По желание можете да смените темата според вашите нужди.

5. Изпратете отново този имейл и променете получателите

За начало отворете имейл източника.
След това щракнете върху бутона „Действия“ в групата „Преместване“.
След това изберете „Повторно изпращане на това съобщение“ от падащия списък.
Може би ще получите предупреждение, в което ще споменете, че не сте оригиналният подател. Просто го игнорирайте и натиснете „Да“.
В следващия нов имейл трябва да промените полето „До“ към подателя на оригиналния имейл.
Също така, не забравяйте да промените изпращането чрез имейл акаунт на вашия собствен акаунт.

6. Автоматично добавяне на оригинални прикачени файлове чрез VBA

Всички споменати по-горе подходи, честно казано, са заобиколни решения. Ако се надявате, че Outlook може автоматично да запази оригиналните прикачени файлове, когато отговаряте, можете да използвате този начин.

В главния прозорец на Outlook натиснете клавишите „Alt + F11“.
След това, в прозореца „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

По-късно подпишете този макрос и променете настройките на макроса на Outlook, за да разрешите подписаните макроси.
След това рестартирайте приложението Outlook, за да активирате този VBA проект.
Отсега нататък всеки път, когато щракнете върху бутона „Отговор“. Отговарящият имейл ще се покаже с оригинални прикачени файлове наведнъж.

Прибягвайте до отличителен инструмент за ремонт

Outlook се възползва от други имейл клиенти поради безбройните си функции. Но тя все още е склонна към корупция. Следователно трябва да обърнете повече внимание на здравето му. Като цяло, когато срещате малки проблеми, можете просто да се върнете към вградената помощна програма за корекция. Въпреки това, ако страдате от сериозни проблеми, по-добре е да се върнете към много по-опитен инструмент, като например DataNumen Outlook Repair, То може поправете Outlook файл за миг.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com