私はすべてのオフラインフォルダをループし、各フォルダの "フォルダをクリーンアップ&サブフォルダ"メニューコマンドを実行できるOutlook VBAにコードを入れようとしています。私はいくつかの項目を試して、何も動かすことができません。オンラインはほとんどなく、作業コードはありません。すべての提案はApplication.CommandBars.ExecuteMso（ "ThreadCompressFolderRecursive"）を指していますが、そのオブジェクトは存在しません。何か案は？Outlook 2016 VBA - コードを使用してフォルダをクリーンアップする
アプリケーションではありません。必要に応じてインスペクタまたはエクスプローラを使用します。
Sub ExecuteMso_CleanUP()
Dim objExpl As Explorer
Set objExpl = ActiveExplorer
objExpl.CommandBars.ExecuteMso ("ThreadCompressFolderRecursive")
End Sub
このコードはOutlook 2016でコンパイルされません。CommandBarsはアクティブエクスプローラまたはインスペクタで利用可能なオブジェクトではありません。オブジェクトブラウザでは、それをOfficeオブジェクトの一部として見ていますが、そのオブジェクトにアクセスする方法はわかりません。 – LtlBear
2016年に変更があった可能性があります。このコードは2013年に動作します。 – niton
私は変更があったと推測していますが、動作するものは何も見つかりません。私は、オブジェクトブラウザを見ているすべての種類のオプションを試しましたが、これまでの運はありません。コンパイルのアイデアを得ることさえできません。 – LtlBear
アプリケーションは必ず存在します。別の質問を投稿すると、結果を示すコードが提供されます。 https://stackoverflow.com/help/mcve – niton
申し訳ありませんが、CommandBarsオブジェクトはApplicationオブジェクトに存在しません。 – LtlBear