如何在 Outlook 中将已阅读的邮件自动移动到指定文件夹？
在 Outlook 中，阅读邮件后将其自动移动到指定文件夹，是保持收件箱整洁的高效方法之一。许多 Outlook 用户习惯为已读邮件设置自动移动规则，但实际上，Outlook 并不支持此类规则向导操作。本文将演示如何通过 VBA 代码，在 Outlook 中实现邮件阅读后自动移动到指定文件夹。
- 提升您的邮件办公效率 ，结合 AI 技术，让您能够高效快速地回复邮件、撰写新邮件、翻译信息等，提升工作效率。
- 通过自动抄送密送实现邮件自动化自动转发，支持按规则发送自动答复（外出），无需 Exchange 服务器即可实现……
- 获取类似 答复的邮件为 BCC 时提醒的提醒；当您作为密送收件人回复全部时，将提醒您，并且还有缺少附件提醒，帮助您避免忘记添加附件……
- 通过带附件回复（全部）提升邮件效率自动将问候语或日期时间添加到签名或主题，批量回复多封邮件……
- 使用撤回邮件，让邮件管理更简便附件工具（全部压缩，自动保存一键操作……）删除重复，以及快速报告等强大功能……
在 Outlook 中阅读邮件后将其移动到指定文件夹
您可以通过在 Outlook 中运行 VBA 代码，将已读邮件自动移动到指定文件夹。
1. 首先，您需要在收件箱下新建一个名为“已审核”的文件夹。
2. 打开收件箱文件夹后，请按下 Alt+F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。
3. 然后双击展开 Project 1 > Microsoft Outlook Objects > ThisOutlookSession，即可打开 VbaProject.OTM 编辑器。
4. 然后，将以下 VBA 代码复制并粘贴到上图所示的 VbaProject.OTM 编辑器中。
VBA 代码：已读邮件自动移动
Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
oMessage.Move oFolderDst
Next
End Sub 5. 接着点击保存按钮，保存 VBA 代码，然后关闭 Microsoft Visual Basic for Applications 窗口。
6. 右键单击快速访问工具栏，在右键菜单中选择自定义快速访问工具栏。见截图：
7. 在 Outlook 选项对话框中，您需要：
1）选择宏在选择命令位置下拉列表；
2）选择 Project 1. ThisOutlookSession 在下方的选择命令位置下拉列表；
3）点击添加按钮；
4）点击确定按钮即可。
8. 然后您将在快速访问工具栏上看到宏按钮。请确保当前已定位到需要移动已读邮件的收件箱中，然后点击宏按钮，即可在收件箱中运行 VBA 代码。
注意：
1. 该 VBA 代码适用于 Outlook 2007、2010 和 2013；在 Outlook 2007 中，您只需点击运行按钮即可执行代码。
2. 如果您的 Outlook 中有多个电子邮件帐户，该 VBA 代码仅适用于被设为默认的数据文件所属的帐户。您可以点击文件> 信息> 帐户设置> 帐户设置，打开帐户设置对话框。然后切换到数据文件选项卡，默认数据文件前会显示
标记。
3. 如需将默认数据文件更改为其他电子邮件帐户，请先选择并高亮要设为默认值的帐户，然后在帐户设置对话框中点击设为默认值。
4. 如果您在首次运行 VBA 代码时发现已读邮件未能全部立即移动，请持续点击宏按钮，直至收件箱中的所有已读邮件都被成功移出。
最佳办公效率工具
体验全新 Kutools for Outlook，畅享 100+ 强大功能！立即点击下载，不容错过！
🤖KUTOOLS AI：采用先进 AI 技术，轻松处理邮件，涵盖回复、摘要、优化、扩展、翻译及撰写等功能。
📧 邮件自动化：自动答复（支持 POP 和 IMAP）/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发（高级规则）/自动添加称呼/自动将多收件人邮件拆分为单独信息……
📨 邮件管理：撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……
📁 附件增强：批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……
🌟 界面魔法：😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……
👍 一键精彩功能：带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……
👩🏼🤝👩🏻 联系人与日历：批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……
在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言！
一键解锁 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