Também o pode fazer no Outlook via VBA. O Office 2010 já não lhe permite remover através da maioria destas soluções.
Word, PowerPoint, e Excel permitem-lhe utilizar esta solução fácil .
Outlook requer mais aborrecimentos, pois utiliza tanto Exploradores como Inspectores, que em diferentes contextos ambos têm esta barra de comandos activada. A solução é, portanto, duas partes.
A primeira parte está a configurar WithEvents
para tratar da criação de cada novo Inspector. Geralmente estes são sempre que se abre uma mensagem/evento/etc, e são criados/destruídos de cada vez. Assim, mesmo que acerte em cada Inspector actual, os seus novos Inspectores não terão a barra de comando desactivada.
Coloque o seguinte em ThisOutlookSession no seu editor VBA (Alt+F11). Cada novo inspector (e explorador, também, embora ainda não tenha criado um explorador) terá a sua barra de comando desactivada.
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
No entanto, isto só fará desaparecer o menu a partir de algumas das vistas no Outlook. Será ainda necessário executar a seguinte macro para a remover de todos os exploradores. Como melhor posso dizer, isto é persistente quando se fecha/abre o 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