如何在 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. 在 Outlook 中開啟您要附帶附件全部回覆的郵件（郵件視窗），然後從更多命令（位於）自訂快速存取工具列下拉式清單中）進行選擇，請參閱截圖：

6. 在 Outlook 選項對話方塊中，執行下列操作：

（1.）從巨集（位於）從下列位置選擇命令下拉式清單中）進行選擇；

（2.）點擊您剛才插入的巨集名稱；

（3.）然後點擊新增按鈕，即可將巨集加入自訂快速存取工具列！

7. 接著點擊確定關閉對話方塊，此時巨集按鈕已成功新增至快速存取工具列，請參閱截圖：

8. 現在點擊巨集按鈕，系統會開啟附帶原始附件的回覆郵件視窗，撰寫回覆內容後，點擊傳送按鈕，請參閱截圖：

---

使用 Kutools for Outlook 帶原始附件全部答覆

若您已安裝 Kutools for Outlook，只需一鍵即可透過其附帶附件全部回覆功能，輕鬆完成帶附件的全部回覆！

安裝 Kutools for Outlook 後，請依下列步驟操作：

1. 選取您要帶附件全部答復的郵件，然後點擊 Kutools＞附帶原始附件全部回覆，請參閱截圖：

2. 此時系統會開啟附帶原始附件的回覆郵件視窗，撰寫您的訊息並傳送即可，請參閱截圖：

立即點擊下載 Kutools for Outlook 免費版！！