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

Question

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

Answer 1

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

Sub ExecuteMso_CleanUP()

    Dim objExpl As Explorer

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

End Sub