• Авторизация


Мой навигатор 10-11-2005 14:32 к комментариям - к полной версии - понравилось!


Решил я сделать себе нафигатор.
То бишь чтобы быстро перемещаться по папкам Аутлука.
Вот сделал себе такую 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]
вверх^ к полной версии понравилось! в evernote
Комментарии (2):
Рожка 10-11-2005-16:48 удалить
Жутковатый какой-то дизайн. Это ты после пива Гролыш на такое сподобился?
fixin 10-11-2005-17:36 удалить
Гыгыгы, ну пока главное, чтобы кнопки были под рукой. Для быстрого доступа к нужным представлениям.


Комментарии (2): вверх^

Вы сейчас не можете прокомментировать это сообщение.

Дневник Мой навигатор | fixin - Дневник fixin | Лента друзей fixin / Полная версия Добавить в друзья Страницы: раньше»