Puoi farlo anche in Outlook tramite VBA. Office 2010 non ti consente più di rimuovere tramite la maggior parte di queste soluzioni.
Word, PowerPoint ed Excel ti consentono di utilizzare questa semplice soluzione .
Outlook richiede più problemi poiché utilizza sia Explorer che Inspector, che in contesti diversi hanno entrambi abilitato questa barra dei comandi. La soluzione è quindi in due parti.
La prima parte è l'impostazione WithEventsper gestire la creazione di ogni nuovo ispettore. Generalmente questi sono ogni volta che APRI un messaggio / evento / ecc. E vengono creati / distrutti ogni volta. Quindi, anche se colpisci tutti gli attuali Inspector, i tuoi nuovi non avranno la barra dei comandi disabilitata.
Inserisci quanto segue in ThisOutlookSession nel tuo editor VBA (Alt + F11). Ogni nuovo ispettore (ed anche esploratore, anche se devo ancora aver creato un esploratore) avrà la sua barra dei comandi disabilitata.
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
Tuttavia, questo consentirà solo di uscire dal menu da alcune delle visualizzazioni in Outlook. Sarà comunque necessario eseguire la seguente macro per rimuoverla da tutti gli esploratori. Come meglio posso dire che questo è persistente quando si chiude / riapre 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
