您也可以通过VBA在Outlook中执行此操作。Office 2010不再允许您通过大多数这些解决方案删除。
Word，PowerPoint和Excel允许您使用此简单的解决方案。
Outlook需要同时使用“资源管理器”和“检查器”，而在不同的上下文中都启用了此命令栏，因此需要更多的麻烦。因此，解决方案分为两部分。
第一部分是设置WithEvents以处理每个新Inspector的创建。通常，这些是每当您打开消息/事件/等时，它们每次都会被创建/销毁。因此，即使您击中了每个当前的Inspector，新的Inspector也不会禁用命令栏。
将以下内容放入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
