KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Outlook 中将邮件附件重命名后保存到指定文件夹？

作者Sun修改日期

在 Outlook 中，您经常会收到带有附件的邮件，是否曾想过像下方截图所示，将邮件附件重命名后保存到指定文件夹？当然，您可以逐个重命名并保存附件，但其实我有一段 VBA 代码，可以帮助您快速将所有附件统一重命名，并一次性保存到同一个文件夹中。
文档重命名并保存附件 1

在文件夹中以相同名称重命名并保存附件

使用 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

文档重命名并将附件保存在文件夹中 2

3. 点击“工具”>“引用”，在弹出的对话框中勾选“Microsoft Script Runtime”复选框。

文档重命名并将附件保存在文件夹中 3文档右箭头文档重命名并将附件保存在文件夹中 4

4. 点击“确定”后，按下“F5”键运行代码，将弹出“浏览文件夹”对话框，您可以选择或新建一个用于存放附件的文件夹。
文档重命名并将附件保存在文件夹中 5

5. 点击确定，即可为附件输入名称。
文档重命名并将附件保存在文件夹中 6

6. 点击“确定”后，所有附件将被统一重命名为相同的名称。如遇重名，系统会自动在重复的附件名后添加数字后缀。

在 Outlook 中回复邮件时保留原始附件

众所周知，在 Outlook 中回复邮件时，原始邮件中的附件会被移除。如果您希望在回复时保留这些附件，可以尝试该功能，在回复邮件时即可保留原始附件，并适用于所有邮件。点击了解全部功能，免费试用 30 天！ 的“附件回复”
 
文档回复并附加附件
 
Kutools for Outlook：数十种实用 Outlook 加载项，30 天内无限制免费试用。

使用 Kutools for Outlook 在文件夹中重命名并保存附件

其实，Outlook 的实用工具“Kutools for Outlook”能够在保存或发送前，批量重命名所有附件。

Kutools for Outlook：解锁超过 100 项必备及高级功能！立即下载并体验！

免费安装 Kutools for Outlook，然后按照以下步骤操作：

1. 您可以在导航窗格或邮件窗口中激活邮件后，点击“Kutools”>“附件工具”>“全部重命名”。
文档重命名并保存附件 2

2. 在弹出的对话框中，为每个附件输入您想要使用的新名称。点击“确定”后，所有附件将按照新名称完成重命名。
文档重命名并保存附件 3 

3. 右键点击任意附件，选择“全部保存附件”，点击“确定”并选择文件夹，即可按需保存附件。此时，重命名后的附件已成功保存在所选文件夹中。
文档重命名并保存附件 5 
文档重命名并保存附件 5

最佳办公效率工具

体验全新 Kutools for Outlook，畅享 100+ 强大功能！立即点击下载，不容错过！

🤖KUTOOLS AI：采用先进 AI 技术，轻松处理邮件，涵盖回复、摘要、优化、扩展、翻译及撰写等功能。

📧 邮件自动化：自动答复（支持 POP 和 IMAP）/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发（高级规则）/自动添加称呼/自动将多收件人邮件拆分为单独信息……

📨 邮件管理：撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……

📁 附件增强：批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……

🌟 界面魔法：😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……

👍 一键精彩功能：带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……

👩🏼‍🤝‍👩🏻 联系人与日历：批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……

在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言！

一键解锁 Kutools for Outlook，告别等待，立即下载，让效率倍增！

kutools for outlook 功能1kutools for outlook 功能2

🚀 一键下载 — 即可获取全部 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