Вы также можете сделать это в Outlook через VBA. Office 2010 больше не позволяет удалять с помощью большинства этих решений.
Word, PowerPoint и Excel позволяют использовать это простое решение .
Outlook требует больше хлопот, поскольку он использует и проводников, и инспекторов, которые в различных контекстах both включают эту панель команд. Поэтому решение состоит из двух частей.
Первая часть заключается в настройке WithEvents
для работы с созданием каждого нового инспектора. Как правило, это происходит всякий раз, когда вы ОТКРЫВАете сообщение/событие/и т.д., и они создаются/уничтожаются каждый раз. Таким образом, даже если вы ударите по каждому текущему инспектору, у ваших новых инспекторов не будет отключена панель команд.
Положите следующее в ThisOutlookSession в ваш редактор VBA (Alt+F11). Каждый новый инспектор (и проводник тоже, хотя мне еще предстоит создать проводник) будет иметь отключенную командную панель.
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