Sie können dies auch in Outlook über VBA tun. In Office 2010 können Sie die meisten dieser Lösungen nicht mehr entfernen.
Mit Word, PowerPoint und Excel können Sie diese einfache Lösung verwenden .
Outlook erfordert mehr Aufwand, da es sowohl Explorer als auch Inspektoren verwendet, für die in verschiedenen Kontexten beide diese Befehlsleiste aktiviert haben. Die Lösung ist daher zweiteilig.
Teil eins ist das Einrichten WithEventsder Erstellung jedes neuen Inspektors. Im Allgemeinen ist dies immer dann der Fall, wenn Sie eine Nachricht / ein Ereignis / usw. öffnen und sie werden jedes Mal erstellt / zerstört. Selbst wenn Sie auf jeden aktuellen Inspector klicken, ist die Befehlsleiste für Ihre neuen nicht deaktiviert.
Fügen Sie Folgendes in ThisOutlookSession in Ihrem VBA-Editor ein (Alt + F11). Für jeden neuen Inspektor (und auch für jeden Explorer, für den ich noch keinen Explorer erstellt habe) ist die Befehlsleiste deaktiviert.
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
Dadurch wird das Menü jedoch nur aus einigen Ansichten in Outlook entfernt. Sie müssen weiterhin das folgende Makro ausführen, um es von allen Explorern zu entfernen. Soweit ich weiß, bleibt dies beim Schließen / erneuten Öffnen von Outlook bestehen:
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
