VBA를 통해 Outlook에서이 작업을 수행 할 수도 있습니다. Office 2010에서는 더 이상 이러한 솔루션을 통해 제거 할 수 없습니다.
Word, PowerPoint 및 Excel을 사용 하면이 쉬운 솔루션 을 사용할 수 있습니다 .
Outlook은 탐색기와 검사기를 모두 사용하므로 더 많은 번거 로움이 필요합니다. 다른 상황 에서는이 명령 표시 줄이 모두 활성화되어 있습니다. 따라서 해결책은 두 부분입니다.
1 부 WithEvents에서는 각각의 새로운 인스펙터 생성을 처리하도록 설정하고 있습니다. 일반적으로 이들은 메시지 / 이벤트 / 등을 열 때마다 있으며 매번 작성 / 파기됩니다. 따라서 현재의 모든 Inspector를 누르더라도 명령 줄이 비활성화되지는 않습니다.
VBA 편집기 (Alt + F11)의 ThisOutlookSession에 다음을 입력하십시오. 각각의 새로운 인스펙터 (그리고 익스플로러도 아직 익스플로러를 만들지 않았지만)는 커맨드 바가 비활성화됩니다.
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
그러나 이것은 Outlook의 일부보기에서만 메뉴를 가져옵니다. 모든 탐색기에서 제거하려면 다음 매크로를 계속 실행해야합니다. 최선의 방법은 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
