Outlook 2016 VBA - 通过代码运行清理文件夹

【问题标题】：Outlook 2016 VBA - Run Clean Up Folder via codeOutlook 2016 VBA - 通过代码运行清理文件夹
【发布时间】：2017-06-14 19:40:18
【问题描述】：

我正在尝试将代码放入 Outlook VBA 中，我可以在其中循环浏览所有脱机文件夹并在每个文件夹上运行“清理文件夹和子文件夹”菜单命令。我已经尝试了几个项目，但无法使任何工作。网上很少，也没有工作代码。所有建议都指向 Application.CommandBars.ExecuteMso（“ThreadCompressFolderRecursive”），但该对象不存在。有什么想法吗？

【问题讨论】：

应用程序确实存在。如果您发布另一个问题，请提供代码来演示结果。 stackoverflow.com/help/mcve
抱歉CommandBars对象在Application对象中不存在。

标签： vba outlook

【解决方案1】：

不是应用程序。根据需要使用 Inspector 或 Explorer。

Sub ExecuteMso_CleanUP()

    Dim objExpl As Explorer

    Set objExpl = ActiveExplorer
    objExpl.CommandBars.ExecuteMso ("ThreadCompressFolderRecursive")

End Sub

【讨论】：

此代码不会在 Outlook 2016 中编译。CommandBars 在 Active Explorer 或 Inspector 中都不是可用对象。在对象浏览器中，我将其视为 Office 对象的一部分，但不知道如何访问它。
2016 年可能发生了变化。此代码在 2013 年有效。
我猜有变化，但找不到任何可行的方法。我尝试了通过对象浏览器查看的各种选项，但到目前为止还没有运气。连编译的想法都没有。