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 - 通過代碼運行清理文件夾

回答

相關問題