También puede hacerlo en Outlook mediante VBA. Office 2010 ya no permite eliminar a través de la mayoría de estas soluciones.
Word, PowerPoint y Excel permiten utilizar esta sencilla solución .
Outlook requiere más complicaciones, ya que utiliza tanto Exploradores como Inspectores, que en diferentes contextos ambas tienen habilitada esta barra de comandos. Por lo tanto, la solución tiene dos partes.
La primera parte es configurar WithEvents
para manejar la creación de cada nuevo Inspector. Generalmente estos son cada vez que abres un mensaje/evento/etc, y son creados/destruidos cada vez. Así que aunque golpees cada Inspector actual, los nuevos no tendrán la barra de comandos desactivada.
Pon lo siguiente en ThisOutlookSession en tu editor VBA (Alt+F11). Cada nuevo inspector (y también el explorador, aunque todavía no he creado un explorador) tendrá su barra de comandos deshabilitada.
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
Sin embargo, esto sólo conseguirá que desaparezca el menú de algunas de las vistas de Outlook. Todavía tendrá que ejecutar la siguiente macro para eliminarlo de todos los exploradores. Lo mejor que puedo decir es que esto es persistente cuando cierras/reabres 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