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

我试图将代码放入Outlook VBA中，我可以遍历所有脱机文件夹并在每个文件夹上运行“清理文件夹&子文件夹”菜单命令。我已经尝试了几个项目，并没有得到任何工作。网上很少，没有工作代码。所有建议都指向Application.CommandBars.ExecuteMso（“ThreadCompressFolderRecursive”），但该对象不存在。有任何想法吗？Outlook 2016 VBA - 通过代码运行清理文件夹

来源

2017-06-14 LtlBear

申请肯定存在。如果您发布另一个问题，请提供代码以演示结果。 https://stackoverflow.com/help/mcve – niton

对不起，应用程序对象中不存在CommandBars对象。 – LtlBear

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

Sub ExecuteMso_CleanUP() 

    Dim objExpl As Explorer 

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

End Sub

来源

2017-06-14 20:47:41 niton

此代码不会在Outlook 2016中编译。CommandBars不是Active Explorer或Inspector中的可用对象。在对象浏览器中，我将它看作Office对象的一部分，但不知道如何访问它。 – LtlBear

有可能在2016年发生了变化。此代码在2013年运行。 – niton

我猜测发生了变化，但找不到任何可行的工作。我尝试通过对象浏览器寻找各种选项，但目前为止没有运气。甚至无法获得编译的想法。 – LtlBear

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

回答

相关问题