如何在 Outlook 中回复所有人并保留原始附件？

您是否曾在 Outlook 中点击“全部回复”时，发现原始附件不见了？是不是让您感到十分困扰？想知道如何在“全部回复”时保留这些附件吗？没错，这完全可以做到！接下来将为您详细介绍如何在回复所有人时一并附上原有附件，让您的邮件管理更加高效流畅。敬请期待！

使用 VBA 代码带原始附件全部答复

通过 Kutools for Outlook 带原始附件全部答复

---

使用 VBA 代码带原始附件全部答复

Outlook 并未提供直接处理该需求的功能，但您可以通过以下 VBA 代码实现。请按照下列步骤操作：

1. 启动 Outlook，按住 ALT + F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，于 Project 1(VbaProject.OTM) 窗格中双击 ThisOutlookSession，打开代码模式，并将以下代码复制粘贴到空白模块中。

VBA 代码：带原始附件全部回复：

Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = 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

3. 接着点击工具 > 引用，在 Microsoft Visual Basic for Applications 窗口中弹出的 引用－Project 1 对话框内，在可用引用列表框中勾选 Microsoft Scripting Runtime 选项，如下图所示：

4. 保存并关闭代码窗口后，即可将此宏按钮添加到快速访问工具栏。

5. 在邮件窗口中，打开需要全部回复并带附件的邮件，然后在自定义快速访问工具栏下拉菜单中选择更多命令，如下图所示：

6. 在 Outlook 选项对话框中，按如下步骤操作：

（1.）在下拉列表中选择宏命令；

（2.）点击刚刚插入的宏名称；

（3.）然后单击添加按钮，即可将宏添加到自定义快速访问工具栏。

7. 点击确定关闭对话框后，宏按钮已成功插入到快速访问工具栏，如下图所示：

8. 现在，点击该宏按钮，即可打开包含原始附件的回复窗口。编辑回复内容后，点击发送按钮，如下图所示：

---

使用 Kutools for Outlook 带原始附件全部答复

拥有 Kutools for Outlook 后，借助其带附件回复全部功能，您只需点击一次，即可带附件回复全部邮件。

安装 Kutools for Outlook 后，请按以下操作：

1. 选中需要带附件全部回复的邮件，然后点击 Kutools > 带原始附件全部回复，如下图所示：

2. 此时将打开包含原始附件的回复窗口，编辑内容后即可直接发送，如下图所示：

点击下载 Kutools for Outlook 免费版，立即体验不容错过的强大功能！立即体验！