如何在Outlook中使用原始附件全部答复？

通常，當您應用“全部答复”功能將郵件答复給Outlook中的所有收件人時，原始附件將自動丟失。 在Outlook中回复所有人時是否可以附加原始附件？

使用帶有VBA代碼的原始附件全部答复

使用Kutools for Outlook答复所有帶有原始附件的郵件

使用帶有VBA代碼的原始附件全部答复

Outlook中沒有直接功能來處理此任務，但是，您可以應用以下VBA代碼來實現它。 請執行以下步驟：

1。 啟動Outlook，然後按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 在 Microsoft Visual Basic for Applications 窗口，雙擊 本次展望會議 來自 Project1（VbaProject.OTM） 窗格以打開模式，然後將以下代碼複製並粘貼到空白模塊中。

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 窗口，彈出 參考-Project1 對話框，檢查 Microsoft腳本運行時 選項從 可用參考 列錶框，請參見屏幕截圖：

4。 然後儲存並關閉程式碼窗口，然後就可以將巨集按鈕新增到 快速訪問工具欄.

5。 開啟您要回覆所有附件的電子郵件 您的留言 窗口，然後選擇 更多命令 來自 自定義快速訪問工具欄 下拉菜單，請參見屏幕截圖：

6。 在 Outlook選項 對話框中，進行以下操作：

（1.）選擇 宏 來自 從中選擇命令 下拉列表;

(2.) 點選剛才插入的巨集名稱；

（3.）然後單擊 加入 按鈕將巨集加入到 自定義快速訪問工具欄.

7。 然後點擊 OK 關閉對話框，現在，巨集按鈕已插入到 快速訪問工具欄，請參見屏幕截圖：

8。 現在，按一下巨集按鈕，將開啟帶有原始附件的回覆訊息窗口，然後撰寫回覆訊息，然後按一下 送出 按鈕，請參見屏幕截圖：

使用Kutools for Outlook答复所有帶有原始附件的郵件

如果你有 Kutools for Outlook，其 回复所有帶有附件 功能，您只需一鍵即可回覆所有附附件的內容。

安裝後 Kutools for Outlook，請這樣做：

1。 選擇您要回覆全部帶有附件的郵件，然後按一下 庫工具 > 帶附件回复 > 回复所有帶有附件，請參見屏幕截圖：

2。 然後會打開回覆訊息窗口，其中包含原始附件，然後撰寫訊息並發送，請參閱截圖：

點擊下載Kutools for Outlook並立即免費試用！

---

最佳辦公生產力工具

Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook

🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件！ ……

📧 電子郵件自動化: 外出（適用於 POP 和 IMAP）  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送（進階規則）   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 輕鬆回憶電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版: 批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  使用選項卡式視圖提高 Outlook 工作效率  /  最小化 Outlook 而不是關閉 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部  /   反網路釣魚電子郵件  /  🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人  /  將聯絡人群組拆分為各組  /  刪除生日提醒 ...

超過 100特點 等待您的探索！ 按此處了解更多。

閱讀更多       免費下載      購買