Восстановление стандартного обработчика события

Question

Public Class ThisAddIn

  Dim startForm As String
  Dim cmdBars As Office.CommandBars
  Dim sourcMenu As Office.CommandBar
  Dim buttonsPopup As Office.CommandBarPopup
  Dim WithEvents createMail As Office.CommandBarButton

  Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup

    cmdBars = Me.Application.ActiveExplorer().CommandBars
    sourceMenu = cmdBars(20)
    Dim fileControl As Office.CommandBarPopup = sourcMenu.Controls(1)
    buttonsPopup = fileControl.Controls(1)
    CreateMail = buttonsPopup.Controls(1)
    createMail.Caption = "SPECIAL"

    'Назначение для кнопки "Файл/Создать/Сообщение" нового обработчика
    AddHandler createMail.Click, AddressOf actionReplace

  End Sub

  Sub actionReplace() 'новый обработчик
    myOlFolder = Me.Application.ActiveExplorer.CurrentFolder
    myMailItem = myOlFolder.Items.Add("IPM.Note.SPECIAL")
    myMailItem.Display()
  End Sub

  Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
    'Нужно вернуть старый обработчик, тот, что возвращает стандартную форму сообщения электронной почты.
  End Sub

End Class

Среда разработки Visual Studio

Язык Visual Basic

Версия Outlook - 2007

Как восстановить стандартный обработчик события при выгрузке надстройки?

Answer 1

Попробуйте так:

RemoveHandler createMail.Click, AddressOf actionReplace

Answer 2

Срабатывает, но только частично. Исходный обработчик не восстанавливается.

Я пошел другим путем: оставил обработчики без изменений, а вновь открытому инспектору принудительно назначил нужный класс.