在 Outlook 中回复时保留原始电子邮件附件的 6 种方法

展望解决方案 2025 年 9 月 29 日

许多用户希望将他们的 Outlook 配置为在回复电子邮件时保留原始电子邮件附件。本文将公开5个变通方法以及一个巧妙的方法，即使用VBA自动实现。

我听到很多用户抱怨 Outlook 没有在回复电子邮件时保留原始附件的本机功能。因此，在这里我们将分享6种方法，其中一种非常有用，因为它使用VBA使Outlook自动附加原始附件到回复邮件。现在继续阅读以详细了解它们。

1.回复附上原始邮件

尽管 Outlook 没有提供在回复电子邮件时保留原始电子邮件附件的功能，但它允许用户保留原始电子邮件的附件。因此，这对您来说是一个可选的解决方法。您可以前往“文件”>“选项”>“邮件”>“回复和转发”部分来更改回复设置。更详细的，建议大家参考我之前的文章——》在 Outlook 中使用原始附件回复的 5 个步骤”。但是，如果您仍然希望只保留原始附件，请继续学习其他方法。

2.手动拖放附件

到tar否则，双击此类源电子邮件以在其自己的窗口中将其打开。
然后点击“回复”按钮，弹出回复邮件。
接下来，您应该缩小这两个消息窗口，直到您可以在同一屏幕上看到它们。
之后，选择原始电子邮件中的所有附件。
最后，将它们拖放到回复电子邮件中的“附加”行。

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 宏设置以允许签署的宏。
之后，restar使您的 Outlook 应用程序激活此 VBA 项目。
从现在开始，每次单击“回复”按钮时。回复的电子邮件将立即显示原始附件。

求助于卓越的维修工具

由于其众多的功能，Outlook 已经超越了其他电子邮件客户端。但它仍然容易腐败。因此，您应该更加注意它的健康。一般来说，当遇到小问题时，您可以简单地重新使用内置的修复实用程序。然而，如果你遇到严重的麻烦，你最好重新使用一个更熟练的工具，比如 DataNumen Outlook Repair。它可以修复Outlook 瞬间归档。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括修复和 outlook 修复软件产品。欲了解更多信息，请访问 datanumen.com