跳到主要內容

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

作者:小陽 最後修改時間:2024-07-24

您是否曾經在 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
doc回覆全部並附上附件1

3。 然後點擊 工具 > 參考 ,詳見 Microsoft Visual Basic for Applications 窗口,彈出 參考-Project1 對話框,檢查 Microsoft腳本運行時 選項從 可用參考 列錶框,請參見屏幕截圖:

doc回覆全部並附上附件9

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

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

doc回覆全部並附上附件2

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

(1.)選擇 來自 從中選擇命令 下拉列表;

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

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

doc回覆全部並附上附件3

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

doc回覆全部並附上附件4

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

doc回覆全部並附上附件5

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

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

 👉Kutools for Outlook 有一個 免費版 現在,誰的 70 多項功能終身免費. 立即下載免費版本.

安裝後 Kutools for Outlook,請這樣做:

1。 選擇您要回覆全部帶有附件的郵件,然後按一下 庫工具 > 回覆全部並附上原始附件,請參見屏幕截圖:

文件回覆全部並附加 kto 1

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

doc回覆全部並附上附件7

點擊下載 免費版 Kutools for Outlook 現在!


最佳辦公生產力工具

突發新聞:Kutools for Outlook 發布 免費版本!

體驗全新的Kutools for Outlook 免費版本擁有 70 多個令人難以置信的功能,您可以永遠使用! 點擊立即下載!

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

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

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

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

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  當重要電子郵件到來時提醒您  /  最小化 Outlook 而不是關閉 ...

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

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

只需單擊即可立即解鎖 Kutools for Outlook -永久免費。別等了, 立即下載並提高您的效率!

Outlook 的 kutools 功能1 Outlook 的 kutools 功能2
 

 

 

Comments (15)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible that, after a reboot or windows update, the macro is not working anymore? Also after doing again the procedure is not working anymore
This comment was minimized by the moderator on the site
Bonjour, la macro n'a fonctionné qu'une seule fois, dommage
This comment was minimized by the moderator on the site
Bonjour, nickel, mais n'a fonctionné qu'une fois. dommage
This comment was minimized by the moderator on the site
BonjourCette macros est super malheureusement cela ne fonctionne qu'une fois.. dommage
This comment was minimized by the moderator on the site
is there a macro that replies to all keeps attachments and keeps the original email in text format?
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations