在搜索中合并所有 Outlook 收件箱

Question

我在以下网址找到了一个有关合并所有电子邮件帐户收件箱的有用教程：https://www.youtube.com/watch?v=V8m6HorjaNA

它巧妙地通过搜索“文件夹：收件箱已收到：今天”来运行，然后点击下拉菜单以指示在所有文件夹中搜索。然后可以返回“最近搜索”并在第二天再次点击或创建以下宏。

合并所有内容的 VBA 代码：

Sub UnifiedInbox ()
Dim myO1App As New Outlook.Application
txtSearch = “folder:inbox received:today”
MyO1App.ActiveExplorer.Search txtSearch, o1ScopeAllFolders
Set myO1App = Nothing
End Sub

这两个都存在问题。单击“最近搜索”时，默认为当前邮箱，需要单击下拉菜单并更改为“所有邮箱”，并且运行宏只会在当前邮箱中搜索。我尝试将所有“mailboxes:all”添加到 txtSearch，但这显然不是正确的语言。