Все таки Outlook поддается настойчивому программисту.
Как целка, которая долго ломается, зато потом дает со страшной силой.
Сегодня я научился кастомизировать тулбар.

Вот примерно такой код добавляет в строку меню Outlook новый пункт меню с надписью "Clipboard".
При нажатии на кнопку открывается сайт "http://fixin.com.ru"
Обратите внимание, как уродливо назначается гиперссылка для кнопки - через свойство ToolTipText, которое обычно используется для текста подсказки, Мелкософт, блин!


Sub test_tb()
Dim cbcsControls As CommandBarControls
Dim cbcControl As CommandBarControl

Set CurrInspector = Application.ActiveInspector
Set CurrExplorer = Application.ActiveExplorer

Set cbs = CurrExplorer.CommandBars
Set cb = cbs.Item("Menu Bar")

Set cbcControl = cb.Controls.Add(1)
cbcControl.Caption = "Clipboard"
cbcControl.HyperlinkType = msoCommandBarButtonHyperlinkOpen
cbcControl.TooltipText = "http://fixin.com.ru"
End Sub

Окей, скажете вы, а что нам дает то, что мы добавим гиперссылку? Мы хотим action - некоторое действие по нажатию на кнопку.
Нема проблем, шановныя.

У себя я назначаю такую гиперссылку fixin:action=get_ref. Ну а дальше по общей схеме - открывается форма FixinNavigator из библиотеки личных форм, тут же форма закрывается, доступен ActiveInspector и ActiveExplorer, разбирается команда и выполняется команда над текущим инспектором или проводником.

Вуаля. Полный технический цикл. ;-)

Ну еще бы научиться вставлять не текст, а картинку (может подскажете), было бы ваще здорово, наверно можно, тогда можно было бы вообще автоматизировать кастомизацию Outlook. Т.е. настроить панельку в одном месте и загрузить ее в любой Outlook.