Всем здравствуйте!
Нужно в форме письма создать свою кнопку. В момент создания формы письма (событие добавления объекта в коллекции 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.Controls.Add(Type:=MsoControlType.msoControlButton, Temporary:=True)
With Ctrl
.Caption = "Test"
.Tag = "Test"
.Visible = True
.OnAction = "!" + AddIn.ProgId
End With
End Sub

Для кнопки задаю обработку нажатия:

Private Sub Ctrl_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
MsgBox ("Test")
End Sub

Вся проблема в том, что писем может открываться много и обработка нажатия кнопки будет работать только для последнего открытого письма. Каким образом сделать, чтобы нажатие обрабатывалось для всех открытых писем?
Заранее благодарен всем ответившим на вопрос!