U kunt dit ook in Outlook doen via VBA. Office 2010 laat je niet langer verwijderen via de meeste van deze oplossingen.
Word, PowerPoint, en Excel staan je toe om deze gemakkelijke oplossing te gebruiken.
Outlook vereist meer gedoe omdat het zowel Explorers als Inspectors gebruikt, die in verschillende contexten beide deze opdrachtbalk hebben ingeschakeld. De oplossing is daarom tweeledig.
Deel één is het instellen van WithEvents
om het aanmaken van elke nieuwe Inspector af te handelen. In het algemeen zijn deze er telkens als je een bericht/gebeurtenis/etc OPENT, en ze worden elke keer aangemaakt/vernietigd. Dus zelfs als je elke huidige Inspector aanroept, zullen de nieuwe Inspectors de commandobalk niet uitgeschakeld hebben.
Zet het volgende in ThisOutlookSession in je VBA editor (Alt+F11). Elke nieuwe inspecteur (en verkenner, ook, hoewel ik nog geen verkenner heb gemaakt) zal zijn commandobalk uitgeschakeld hebben.
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
Dit zorgt er echter alleen voor dat het menu verdwijnt uit sommige van de views in Outlook. Je zult nog steeds de volgende macro moeten uitvoeren om het van alle verkenners te verwijderen. Voor zover ik kan zien is dit blijvend wanneer je Outlook sluit/heropent:
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