| Вопрос: Обработка нажатия на кнопку для форм писем Outlook | Добавлено: 11.08.05 15:53 |
Автор вопроса:  Alexey | ICQ: 213776432 |
|
Хочу в форме письма создать свою кнопку. В момент создания формы письма (событие добавления объекта в коллекции Inspectors) создаю CommandBar и кнопку:
Private Sub Insps_NewInspector(ByVal Inspector As Outlook.Inspector) Dim ToolBar As CommandBar Set ToolBar = Inspector.CommandBars.Add(Name:="Test", Position:=MsoBarPosition.msoBarTop, Temporary:=True) ToolBar.Visible = True '' Создание кнопок на ToolBar Set Ctrl = ToolBar.FindControl(Type:=MsoControlType.msoControlButton, Tag:="Test") If Ctrl Is Nothing Then Set Ctrl = ToolBar.Controls.Add(Type:=MsoControlType.msoControlButton, Temporary:=True) With Ctrl .Caption = "Test" .Tag = "Test" .Visible = True .OnAction = "!" + AddIn.ProgId End With End If End Sub Для кнопки задаю обработку нажатия: Private Sub Ctrl_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) MsgBox ("Test") End Sub Вся проблема в том, что писем может открываться много и обработка нажатия кнопки будет работать только для последнего открытого письма. Можно ли каким-то образом сделать, чтобы нажатие обрабатывалось для всех открытых писем? |
| Ответы | Всего ответов: 0 |
Страница: