| Вопрос: VBA, Outlook 2K. Проблемы с созданием меню | Добавлено: 12.11.04 17:44 |
Автор вопроса:  wsol
|
|
В MailItem создаю меню следующим образом:
Set cbMenu = objItem.GetInspector.CommandBars("Menu Bar") Set ctlBarPopup = cbMenu.Controls.Add (Type:=msoControlPopup) Set ctlBarControl = ctlBarPopup.Controls.Add(Type:=msoControlButton) ctlBarControl.OnAction = "Test" Есть функция Test. Public Sub objItem_Test() F3.Show End Sub Не работает. Т.е. меню создается, но при нажатии на меню - функция не вызывается. В чем могут быть проблемы? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Дмит Вопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #1 | Добавлено: 12.11.04 18:58 |
|
ctlBarControl.OnAction = "objItem_Test"
и функция должна быть в блоке модуля. |
||
Страница: 1 |