Outlook“暂停”电子邮件，直到同一天的时间

Question

我目前正在使用视图过滤器来“暂停”电子邮件-这意味着当在其上放置了跟踪标记，直到该标记设置为“今天”，该电子邮件才会从视图中隐藏。这是Outlook中视图过滤器高级选项卡中的基本视图过滤器设置：

我经常想隐藏电子邮件，直到当天晚些时候可操作为止。理想情况下，我将能够使用这样一个不错的UI（例如Gmail）：

我试图通过视图隐藏方法来管理此问题，方法是对电子邮件进行分类，运行规则以在分类时隐藏电子邮件，然后在特定时间删除分类，但是我找不到找到1-的好方法对已经存在的分类运行规则（1-在注释中概述了大纲），并在特定时间对整个文件夹运行了规则2-（现在在下面概述了2-）。

[我尝试的另一种方法是将电子邮件移动到特定的文件夹（即，延迟至下午2点，延迟至下午4点，依此类推），然后在特定时间通过规则或脚本将其移回收件箱。不幸的是，该规则仅在传入的电子邮件上运行-它不会自动处理该文件夹中已经存在的电子邮件。我试图改编一些脚本，但是我做不到足够的成功，因此我不会在此处包括它们。

关于更好方法的建议或充实我尝试过的方法？

更新完成该项目所需的唯一一件事就是按计划运行的VBA代码，以及可能正确运行规则的语法。例如，如果规则是Snoozetill3，那么一个人如何正确运行Snoozetill3.execute()（不起作用）？

此代码，per this SO post，会将所有文件从TODO文件夹移至Test文件夹：

Sub MoveItems()

 Dim myNameSpace As Outlook.NameSpace
 Dim myInbox As Outlook.Folder
 Dim myDestFolder As Outlook.Folder
 Dim myItems As Outlook.Items
 Dim myItem As Object

 Set myNameSpace = Application.GetNamespace("MAPI")
 Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
 Set myItems = myInbox.Items
 Set myDestFolder = myInbox.Folders("test")

 Set myItems = myInbox.Folders("TODO").Items

 'Debug.Print myItems.Count

 For i = myItems.Count To 1 Step -1 'Iterates from the end backwards
    myItems.Item(i).Move myDestFolder

 Next

End Sub

Answer 1

我对拥有此功能非常感兴趣。您能解决吗？

我刚刚在工作中升级到365，我很高兴发现我的移动应用程序允许我暂停电子邮件，但我的桌面应用程序不允许暂停。

[在我的手机中小睡后，电子邮件将移至“ Snoozed”文件夹。我确定电子邮件对象具有某种新变量，这些变量存储要返回到收件箱的日期，以及被延后的事实。我们可以通过vba对其进行修改。

你怎么看？