Решил я сделать себе нафигатор.
То бишь чтобы быстро перемещаться по папкам Аутлука.
Вот сделал себе такую custom form на основе вида "Сообщение", опубликовал ее в библиотеке личных форм с классом IPM.Note.MyNavigator
Осталось только воткнуть эту форму в панель быстрого вызова.
Ну я создал макрос, настройкой перетащил его на панель вызова, сделал ему иконку - вот такую :)
Ну а для особо страждущих вот текст макроса:
Public Sub DisplayNavigator()
Dim Folder As MAPIFolder
Dim NewItem
Set Folder = Application.GetNamespace("MAPI").GetDefaultFolder(6) 'olFolderInbox
Set NewItem = Folder.Items.Add("IPM.Note.MyNavigator")
NewItem.Display
End Sub
Благодарю Сю Мошера (outlookcode.com) за подсказки.
[239x256]