如何在 Outlook 中將郵件附件重新命名並儲存至指定資料夾？

在 Outlook 中，您是否經常收到附帶附件的郵件？是否曾想過將這些附件重新命名，並如以下截圖所示，統一儲存到指定資料夾中？雖然您可以手動逐一儲存並分別重新命名每個附件，但其實我有一段 VBA 程式碼，能快速將所有附件以相同名稱重新命名後，一鍵儲存至單一資料夾！

在資料夾中以相同名稱重新命名並儲存附件

使用 Kutools for Outlook 在資料夾中重新命名並儲存附件

在資料夾中以相同名稱重新命名並儲存附件

1. 選取您要儲存附件並統一重新命名的郵件。

2. 按下「Alt」+「F11」 鍵，在「Project 1」窗格中雙擊「ThisOutlookSession」，於右側區域建立新的空白指令碼，並貼上程式碼即可。

VBA：重新命名並儲存附件

Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object  'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").browseforfolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
    For Each xAttachment In xItem.Attachments
        xFilePath = xSaveFolder & xAttachment.FileName
        xAttachment.SaveAsFile xFilePath
        Set xFile = xFSO.GetFile(xFilePath)
        xCount = 1
        Saved = False
        xExt = "." & xFSO.GetExtensionName(xFilePath)
        xTmpName = xNewName
        xNewName = xTmpName & xExt
        If xFSO.FileExists(xSaveFolder & xNewName) = False Then
            xFile.Name = xNewName
            xNewName = xTmpName
        Else
            xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
            While Saved = False
                xNewName = xTmpName & xCount & xExt
                If xFSO.FileExists(xSaveFolder & xNewName) = False Then
                    xFile.Name = xNewName
                    xNewName = xTmpName
                    Saved = True
                Else
                    xCount = xCount + 1
                End If
            Wend
        End If
    Next
Next
Set xFSO = Nothing
End Sub

3. 點選「工具」>「參考設定」，在彈出的對話方塊中勾選「Microsoft Script Runtime」核取方塊。

4. 點選「確定」後，按下「F5」鍵執行程式碼，系統將彈出「瀏覽資料夾」對話方塊，讓您選擇或建立用來存放附件的資料夾。

5. 點選確定，即可為附件指定名稱。

6. 點選「確定」，附件將統一重新命名；若出現重複檔名，系統會自動在副檔名前加上數字以資區分。

---

在 Outlook 中以原始附件回覆郵件

眾所周知，當您在 Outlook 中回覆郵件時，原始郵件中的附件會被自動移除。若希望回覆時保留原始附件，不妨試試這項實用功能——無論哪封郵件，都能在回覆時一併附上原始附件！立即點擊，享完整功能 30 天免費試用！ 的「附帶附件回覆」

Kutools for Outlook：內含數十種實用的 Outlook 增益集，30 天內可無限制免費試用。

使用 Kutools for Outlook 在資料夾中重新命名並儲存附件

事實上，「Kutools for Outlook」——這款實用的 Outlook 增益集工具——內建一項功能，可讓您在儲存或傳送前，一次重新命名所有附件。

免費安裝 Kutools for Outlook，然後依照下列步驟操作：

1. 在閱讀窗格或郵件視窗中開啟目標郵件後，點選「Kutools」>「附件工具」>「全部重新命名」。

2. 在彈出的對話方塊中，輸入您希望用於每個附件的新名稱，然後點選「確定」，附件就會依您輸入的名稱完成重新命名。
 

3. 在任一附件上按一下滑鼠右鍵，選擇「儲存所有附件」，點選「確定」，並依需求選擇資料夾以儲存附件。此時，已重新命名的附件便會儲存至您指定的資料夾中。
 

---

最佳 Office 生產力工具

體驗全新 Kutools for Outlook，內含 100+ 項超強功能！立即點擊下載！

🤖KUTOOLS AI：運用先進 AI 技術，輕鬆處理電子郵件——無論是回覆、摘要、優化、擴充、翻譯還是撰寫郵件，通通一鍵搞定！

📧 郵件自動化：自動答覆（支援 POP 與 IMAP）／預約寄送郵件／寄信時依規則自動抄送密送／自動轉發（高級規則）／自動加入問候語／自動將多收件人郵件拆分為個別訊息……

📨 郵件管理：撤回郵件／依主旨等條件封鎖詐騙郵件／刪除重複郵件／高級搜尋／整合文件夾……

📁 附件專業版：批次儲存／批次解除附加／批次壓縮／自動保存／自動拆離／自動壓縮……

🌟 介面魔法：😊更多精美酷炫表情符號／重要郵件來到時提醒您／最小化 Outlook 而非關閉……

👍 一鍵奇蹟：帶附件全部答復／防釣魚郵件／🕘顯示發送者當前時間時區……

👩🏼‍🤝‍👩🏻 聯絡人與行事曆：從選取的郵件中批次新增聯絡人／將聯繫人組拆分為個別群組／移除生日提醒……

用您的慣用語言暢享 Kutools — 完整支援英文、西班牙文、德文、法文、中文等 40 多種語言！

立即一鍵解鎖 Kutools for Outlook！別再等待，馬上下載，全面提升工作效率！

Kutools for Outlook 功能列表      立即下載      前往購買

🚀 一鍵下載 — 立即取得所有 Office 增益集

強烈推薦：Kutools for Office（5 合 1）

一鍵下載五個安裝程式，一次完成 — Kutools for Excel、Outlook、Word、PowerPoint 與 Office Tab Pro！立即點擊下載！

• ✅ 一鍵便利：只需一次操作，即可下載全部五個安裝套件！
• 🚀 隨時應對任何 Office 任務：按需安裝所需增益集，立即提升工作效率！
• 🧰 包含：Kutools for Excel／Kutools for Outlook／Kutools for Word／Office Tab Pro／Kutools for PowerPoint

關於此套件⬇ 下載套件💳 購買套件