Outlook 2016 VBA - コードを使用してフォルダをクリーンアップする

私はすべてのオフラインフォルダをループし、各フォルダの "フォルダをクリーンアップ&サブフォルダ"メニューコマンドを実行できるOutlook VBAにコードを入れようとしています。私はいくつかの項目を試して、何も動かすことができません。オンラインはほとんどなく、作業コードはありません。すべての提案はApplication.CommandBars.ExecuteMso（ "ThreadCompressFolderRecursive"）を指していますが、そのオブジェクトは存在しません。何か案は？Outlook 2016 VBA - コードを使用してフォルダをクリーンアップする

出典

2017-06-14 LtlBear

アプリケーションは必ず存在します。別の質問を投稿すると、結果を示すコードが提供されます。 https://stackoverflow.com/help/mcve – niton

申し訳ありませんが、CommandBarsオブジェクトはApplicationオブジェクトに存在しません。 – LtlBear

アプリケーションではありません。必要に応じてインスペクタまたはエクスプローラを使用します。

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はアクティブエクスプローラまたはインスペクタで利用可能なオブジェクトではありません。オブジェクトブラウザでは、それをOfficeオブジェクトの一部として見ていますが、そのオブジェクトにアクセスする方法はわかりません。 – LtlBear

2016年に変更があった可能性があります。このコードは2013年に動作します。 – niton

私は変更があったと推測していますが、動作するものは何も見つかりません。私は、オブジェクトブラウザを見ているすべての種類のオプションを試しましたが、これまでの運はありません。コンパイルのアイデアを得ることさえできません。 – LtlBear

Outlook 2016 VBA - コードを使用してフォルダをクリーンアップする

答えて

関連する問題