Bạn cũng có thể làm điều này trong Outlook thông qua VBA. Office 2010 không còn cho phép bạn loại bỏ thông qua hầu hết các giải pháp này.
Word, PowerPoint và Excel cho phép bạn sử dụng giải pháp dễ dàng này .
Outlook đòi hỏi nhiều rắc rối hơn vì nó sử dụng cả Explorers và Inspector, trong các bối cảnh khác nhau, cả hai đều có thanh lệnh này được kích hoạt. Giải pháp do đó là hai phần.
Phần một là thiết lập WithEvents
để xử lý việc tạo ra mỗi Thanh tra mới. Nói chung đây là bất cứ khi nào bạn MỞ một tin nhắn / sự kiện / vv và chúng được tạo / hủy mỗi lần. Vì vậy, ngay cả khi bạn nhấn vào mỗi Thanh tra hiện tại, những thanh tra mới của bạn sẽ không bị vô hiệu hóa thanh lệnh.
Đặt phần sau vào ThisOutlookSession trong trình chỉnh sửa VBA của bạn (Alt + F11). Mỗi thanh tra mới (và thám hiểm cũng vậy, mặc dù tôi chưa có trình thám hiểm được tạo) sẽ bị vô hiệu hóa thanh lệnh.
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
Tuy nhiên, điều này sẽ chỉ đưa menu đi từ một số chế độ xem trong Outlook. Bạn vẫn sẽ cần chạy macro sau để xóa nó khỏi tất cả các nhà thám hiểm. Như tốt nhất tôi có thể nói điều này là liên tục khi bạn đóng / mở lại 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