| Вопрос: VBA, Outlook 2K | Добавлено: 28.10.04 12:51 |
Автор вопроса:  wsol
|
|
Уважаемые коллеги,
столкнулся со следующей проблемой. При событии "открытие mailitem", хочу внести свою строчку в меню открываемого mailitem-а. Делаю это так. Private Sub objItem_Open(Cancel As Boolean) Dim SenderName As String Dim cbMenu As CommandBar Dim ctlBarPopup As CommandBarPopup Dim ctrlMenu As CommandBarControl Set cbMenu = Application.ActiveExplorer.CommandBars("Menu Bar") Set ctlBarPopup = cbMenu.Controls.Add(Type:=msoControlPopup) With ctlBarPopup .Caption = "Test" End With cbMenu.Visible = True End Sub Меню появляется в главном окне. Как найти объект - меню mailitem-а? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Gloom Вопросов: 0 Ответов: 36 |
Профиль | | #1 | Добавлено: 28.10.04 17:05 |
|
Set cbMenu = objItem.GetInspector.CommandBars("Menu Bar"
 |
||
|
Номер ответа: 2 Автор ответа: wsol Вопросов: 5 Ответов: 3 |
Профиль | | #2 | Добавлено: 01.11.04 14:25 |
| Спасибо! | ||
Страница: 1 |