Bunu Outlook'ta VBA üzerinden de yapabilirsiniz. Office 2010 artık bu çözümlerin çoğunu kaldırmanıza izin vermiyor.
Word, PowerPoint ve Excel bu kolay çözümü kullanmanızı sağlar .
Farklı bağlamlarda hem Kaşifler ve Müfettişleri, kullandığı Outlook fazla güçlük gerektiren hem bu commandbar etkindir. Bu nedenle çözüm iki bölümdür.
Birinci bölüm WithEvents, her yeni Müfettişin oluşturulmasını ele almak üzere düzenleniyor. Genellikle bunlar bir mesaj / olay / etc AÇMA yaptığınız zamandır ve her seferinde oluşturulur / imha edilir. Bu nedenle, mevcut Müfettişlerin her birine bassanız bile, yenileriniz komut çubuğunu devre dışı bırakmaz.
Aşağıdakileri VBA editörünüzde (Alt + F11) ThisOutlookSession içine yerleştirin. Her yeni müfettiş (ve aynı zamanda henüz bir gezgine sahip olmama rağmen kaşif) komut çubuğunu devre dışı bırakacaktır.
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
Ancak bu yalnızca menünün Outlook'taki görünümlerden bazılarının görüntülenmesini sağlar. Tüm kaşiflerden kaldırmak için aşağıdaki makroyu çalıştırmanız gerekir. Outlook'u kapattığınızda / yeniden açtığınızda şunu söyleyebilirim:
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
