OutlookでVBAを使用してこれを行うこともできます。Office 2010では、これらのソリューションのほとんどを使用して削除することはできなくなりました。
Word、PowerPoint、およびExcelを使用すると、この簡単なソリューションを使用できます。
それは探検家や検査官の両方を使用するとOutlookが異なるコンテキストでおり、多くの手間を必要とし、両方のこのコマンドバーが有効になっています。したがって、解決策は2つの部分です。
パート1はWithEvents、新しい各インスペクターの作成を処理するためのセットアップです。通常、これらはメッセージ/イベント/などを開くたびに発生し、毎回作成/破棄されます。そのため、現在のすべてのインスペクターにアクセスしても、新しいインスペクターではコマンドバーが無効になりません。
VBAエディター（Alt + F11）のThisOutlookSessionに以下を入力します。新しいインスペクター（およびエクスプローラーも作成しましたが、まだエクスプローラーを作成していません）のコマンドバーは無効になります。
Public WithEvents colInspectors As Outlook.Inspectors
Public WithEvents objInspector As Outlook.Inspector
Public WithEvents colExplorers As Outlook.Explorers
Public WithEvents objExplorer As Outlook.Explorer
Public Sub Application_Startup()
Init_colExplorersEvent
Init_colInspectorsEvent
End Sub
Private Sub Init_colExplorersEvent()
Set colExplorers = Outlook.Explorers
End Sub
Private Sub Init_colInspectorsEvent()
'Initialize the inspectors events handler
Set colInspectors = Outlook.Inspectors
End Sub
Private Sub colInspectors_NewInspector(ByVal NewInspector As Inspector)
Debug.Print "new inspector"
NewInspector.commandbars("Research").Enabled = False
'This is the code that creates a new inspector with events activated
Set objInspector = NewInspector
End Sub
Private Sub colExplorers_NewExplorer(ByVal NewExplorer As Explorer)
'I don't believe this is required for explorers as I do not think Outlook
'ever creates additional explorers... but who knows
Debug.Print "new explorer"
NewExplorer.commandbars("Research").Enabled = False
'This is the code that creates a new inspector with events activated
Set objExplorer = NewExplorer
End Sub
ただし、これはOutlookの一部のビューからメニューが消えるだけです。すべてのエクスプローラから次のマクロを削除するには、引き続き次のマクロを実行する必要があります。Outlookを閉じ/再起動すると、これが永続的であることがわかります。
Private Sub removeOutlookResearchBar()
'remove from main Outlook explorer
Dim mExp As Explorer
For Each mExp In Outlook.Explorers
mExp.commandbars("Research").Enabled = False
Next mExp
End Sub
