vba - MailItem.Reply イベントが期待どおりに機能しない

Question

Outlook 2013 を使用して、テキストまたは rtf メールに返信するときに、メールの形式を変更するスクリプトを作成したいと考えています。MS dev centerに記載されている返信イベントを使用しました。残念ながら、この例は期待どおりに機能しません。テストのために、返信ボタンをクリックするとポップアップする簡単なメッセージ ボックスを作成しました。そのメッセージ ボックスは表示されません。私は何を間違えましたか？

Public WithEvents myItem As MailItem 

Sub Initialize_Handler() 

    Set myItem = Application.ActiveInspector.CurrentItem 

End Sub 


Private Sub myItem_Reply(ByVal Response As Object, Cancel As Boolean) 

    'Set Response.SaveSentMessageFolder = myItem.Parent
    MsgBox "I never see this message box :("

End Sub