Note: The other languages of the website are Google-translated. Back to English
登陆  \/ 
x
or
x
点此注册  \/ 
x

or

在Outlook中阅读后如何将电子邮件移动到指定的文件夹?

阅读后将电子邮件移动到指定的文件夹是保持Outlook中收件箱文件夹干净的最佳方法。 对于许多Outlook用户,他们倾向于为这些已读电子邮件的移动创建规则。 实际上,Outlook不支持此规则向导过程。 在本文中,我们将向您展示在Outlook中使用VBA代码阅读后如何将电子邮件移动到指定的文件夹。

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

Office选项卡-在Office中启用选项卡式编辑和浏览,并使工作更加容易...
Kutools for Outlook-为Microsoft Outlook带来100种强大的高级功能
  • 自动CC / BCC 根据规则发送电子邮件; 自动转发 按规则发送多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
  • BCC警告 -如果您的邮件地址在密件抄送列表中,则当您尝试全部答复时显示消息; 缺少附件时提醒,还有更多提醒功能...
  • 回复(全部)带有所有附件 在邮件对话中; 一次回复许多电子邮件; 自动添加问候语 回复时自动将日期和时间添加到主题中...
  • 附件工具:自动分离,全部压缩,重命名,自动保存所有... 快速报告,计算所选邮件, 删除重复的邮件和联系人...
  • 超过100种高级功能将 解决您的大部分问题 在Outlook 2010-2019和365中提供。全功能60天免费试用。

箭头蓝色右气泡在Outlook中阅读后将电子邮件移动到指定的文件夹

在Outlook中运行VBA代码阅读后,可以将电子邮件移动到指定的文件夹。

1.首先,您需要创建一个新的文件夹名称“评论”位于“收件箱”文件夹下。

2.打开收件箱文件夹,然后按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

3.然后双击以展开 Project1 > Microsoft Outlook对象 > 本次展望会议 打开 Vba工程.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应用程序 窗口。

6.右键单击 快速访问工具栏,然后选择 自定义快速访问工具栏 从右键单击菜单中。 看截图:

7。 在里面 Outlook选项 对话框,您需要:

1)。 选择 从中选择命令 下拉列表;

2)。 选择 专案1。 ThisOutlookSession 在下面的框中 从中选择命令 下拉列表;

3)。 点击 加入 按钮;

4)。 点击 OK 按钮。

8.然后您可以看到 按钮显示在 快速访问工具栏。 确保您位于要移动所有已读邮件的收件箱文件夹中,然后单击 按钮可在收件箱中运行VBA代码。

说明:

1.此VBA代码可以在Outlook 2007、2010和2013中应用; 但是,在Outlook 2007中,您可以直接单击 运行 按钮运行代码。

2.如果您的Outlook中存在多个电子邮件帐户,则VBA代码只能应用于将数据文件设置为默认帐户的帐户。 您可以通过单击来检查默认数据文件 文件 > 详细信息 > 帐户设置 > 帐户设置 打开 帐户设置 对话框。 然后去 资料档案 标签,您将看到默认数据文件标记为 过。

3.如果要将默认数据文件更改为另一个电子邮件帐户,请选择并突出显示要设置为默认帐户的帐户,然后单击 设为默认帐户设置 对话框。

4.第一次运行VBA代码时,如果发现一次读取的消息没有全部移出,请继续单击“宏”按钮,直到收件箱中的所有读取的消息都移出。


Kutools for Outlook-为Outlook带来100个高级功能,并使工作更加轻松!

  • 自动CC / BCC 根据规则发送电子邮件; 自动转发 自定义多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
  • BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒,还有更多提醒功能...
  • 在邮件对话中回复(全部)带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
  • 附件工具:管理所有邮件中的所有附件, 自动分离, 全部压缩,全部重命名,全部保存...快速报告, 计算选定的邮件...
  • 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明,更快和更好。
拍摄kutools前景kutools选项卡1180x121
拍摄kutools前景kutools加标签1180x121
 

 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Augusto · 1 years ago
    What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
  • To post as a guest, your comment is unpublished.
    Augusto · 1 years ago
    What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
  • To post as a guest, your comment is unpublished.
    EM · 1 years ago
    I used this VBA code, but now all of the emails moved to "Reviewed" are gone? Any ideas why?
  • To post as a guest, your comment is unpublished.
    Becky · 1 years ago
    has anyone had this not work the second time you tried to apply it?
  • To post as a guest, your comment is unpublished.
    fabio · 2 years ago
    Buongiorno


    Esiste la versione per Outlook 365 in italiano (non so se cambia qualcosa). Grazie
  • To post as a guest, your comment is unpublished.
    Jake · 3 years ago
    What line do I add when I only want this rule to apply to emails with a subject line including a word or text?
  • To post as a guest, your comment is unpublished.
    Keldon · 4 years ago
    Where's all the Dim's?????????????????????/ o.0
  • To post as a guest, your comment is unpublished.
    Karlton Hoskins · 4 years ago
    I tried the above method but nothing happens. I verified the folder name was accurate and in the right location. I also set my main account as default, where i will be moving read messages from. I click on the Macro button...nothing. Help. Did I miss something.
    • To post as a guest, your comment is unpublished.
      . · 3 years ago
      You have to activate the references in VBA
  • To post as a guest, your comment is unpublished.
    Liz · 4 years ago
    Can this VBA code be altered to move messages from an Inbox subfolder to a "Reviewed" folder in said subfolder?