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

如何在 Outlook 中将邮件分配到特定类别后自动移动到指定文件夹？

作者Siluvia修改日期

假设您在 Outlook 中为收到的邮件分配了某个类别后，希望该邮件能够自动移动到与该类别同名的特定邮件文件夹。例如，将类别为“私人”的邮件自动移动到 Outlook 中名为“私人”的文件夹。本文方法将帮助您轻松实现这一需求。

使用 VBA 在分配特定类别后将邮件移动到指定文件夹

使用 VBA 在分配特定类别后将邮件移动到指定文件夹

下面的 VBA 代码可帮助您在 Outlook 中为邮件分配特定类别后，自动将其移动到指定文件夹。请按照以下步骤操作。

1. 按下 Alt+F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击打开 ThisOutlookSession（代码）窗口，然后将下方 VBA 代码复制粘贴到该窗口中。见截图：

VBA 代码：分配特定类别后将邮件移动到指定文件夹

Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set xInboxItems = xInboxFld.Items
End Sub

Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
    Set xMailItem = Item
    xFlag = False
    If xMailItem.Categories <> "" Then
        Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
        If xFlds.Count <> 0 Then
            For Each xFld In xFlds
                If xFld.Name = xMailItem.Categories Then
                    xFlag = True
                End If
            Next
        End If
        If xFlag = False Then
            Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
        End If
        Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
        xMailItem.Move xTargetFld
    End If
End If
End Sub

文档-分配类别-移动到文件夹-1

3. 保存代码后，重启 Outlook。

4. 今后，每当为接收的邮件分配类别时，系统会在收件箱文件夹下自动创建一个以该类别名称命名的文件夹，并将该邮件自动移动至该文件夹。请参见截图：

文档-分配类别-移动到文件夹-2

文档-分配类别-移动到文件夹-3

注意：所有分配了相同类别的邮件会自动移动到同一个文件夹。但如果新建组仅分配给一封邮件，则会自动创建一个新文件夹。

Outlook AI 邮件助手：智能回复，沟通更高效清晰（只需一键，轻松体验神奇效果！）

通过 Kutools for Outlook 的 AI 邮件助手，轻松提升您的日常 Outlook 工作效率。该强大工具能够智能学习您的邮件习惯，提供高效、精准的回复建议，优化邮件内容，助您轻松起草和润色邮件。
文档 AI 邮件处理

该功能支持：

  • 智能回复：根据您的历史对话内容生成个性化且精准的回复，随时为您所用。
  • 内容优化：自动完善您的邮件文本，让表达更加清晰且更具影响力。
  • 轻松写作：您只需输入关键词，剩下的交给 AI，多种润色风格随心选择。
  • 智能扩展：结合上下文，智能拓展您的想法，提供精准建议。
  • 智能摘要：轻松为冗长邮件快速生成简明概览，让信息一目了然。
  • 全球畅邮：轻松将邮件翻译为任意语言。

该功能支持：

  • 智能邮件回复
  • 内容优化
  • 关键词草稿
  • 智能内容扩展
  • 邮件摘要
  • 多语言翻译

立即行动——现在就下载 AI 邮件助手，畅享高效体验，不容错过！

相关文章：

最佳办公效率工具

🤖KUTOOLS AI 助手：基于数据分析革新智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见状态|比较区域和列……
精选功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表批量发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线等） ......
顶级 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，按路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|…… 以及更多
在您的首选语言中使用 Kutools——支持英语、西班牙语、德语、法语、中文及 40+ 种其它语言！

用 Kutools for Excel 全面提升您的 Excel 技能，体验前所未有的高效办公。Kutools for Excel 提供 300 多项高级功能，助您高效提升工作效率，节省宝贵时间。点击此处，立即获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更加轻松高效

  • 在 Word、Excel、PowerPoint 中启用标签式编辑与阅读，同样适用于 Publisher、Access、Visio 和 Project。
  • 在同一窗口中以新标签页的形式打开和创建多个文档，而无需另起新窗口。
  • 让您的工作效率提升 50%，每天为您减少上百次鼠标点击！

所有 Kutools 插件，一键安装

Kutools for Office 套件集成了 Excel、Word、Outlook 和 PowerPoint 插件，以及 Office Tab Pro，非常适合需要跨 Office 应用协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 全能套件— Excel、Word、Outlook 及 PowerPoint 插件 + Office Tab Pro
  • 一键安装，一证多用— 数分钟完成部署（支持 MSI）
  • 协同更高效— 实现 Office 应用间高效协作
  • 30 天完整功能试用— 无需注册，无需信用卡
  • 极致性价比— 比单独购买插件更省钱