如何在Outlook中阅读后将邮件移动到指定文件夹？

Author: Siluvia Last Modified: 2025-05-07

在阅读后将邮件移动到指定文件夹是保持Outlook收件箱整洁的最佳方法。对于许多Outlook用户来说，他们倾向于为这些已读邮件创建一个规则来自动移动。实际上，Outlook并不支持这种规则向导流程。在本文中，我们将向您展示如何通过在Outlook中使用VBA代码，在阅读后将邮件移动到指定文件夹。

在Outlook中阅读后将邮件移动到指定文件夹

Office Tab - 在 Microsoft Office 中启用标签页编辑和浏览，让工作变得轻松愉快。

阅读 Office Tab 的功能下载 Office Tab

立即解锁 Kutools for Outlook 的免费版本，永久享受超过 70 项功能的无限访问权限。

通过 AI 技术提升您的邮件处理效率，帮助您快速回复邮件、撰写新邮件、翻译消息等，更加高效地完成任务。
通过规则实现自动抄送密送、自动转发；无需 Exchange 服务器即可发送自动答复（外出）...
当您在密件抄送列表中回复所有人时，获得诸如答复的邮件为 BCC 时提醒等提示，并在忘记附件时收到提醒...
通过带附件回复（全部）、自动添加问候语或日期时间至签名或主题、批量回复邮件等功能提高邮件效率...
通过撤回邮件、附件工具（压缩所有附件、自动保存所有附件...）、删除重复邮件以及快速报告等功能简化邮件操作...

通过这些高级功能增强您的 Outlook 2024 - 2010 或 Outlook 365。享受 70 多种强大功能，提升您的邮件体验！

阅读 Kutools for Outlook 的所有功能下载免费版本

在Outlook中阅读后将邮件移动到指定文件夹

您可以通过运行Outlook中的VBA代码，在阅读后将邮件移动到指定文件夹。

1. 首先，您需要在收件箱文件夹下创建一个名为“已审阅”的新文件夹。

a new folder

2. 打开收件箱文件夹，然后请按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

3. 然后双击以展开 Project1 > Microsoft Outlook Objects > ThisOutlookSession 来打开 VbaProject.OTM 编辑器。

the VbaProject.OTM editor

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. 右键单击快速访问工具栏，并从右键菜单中选择自定义快速访问工具栏。见截图：

the Customize Quick Access Toolbar buton