VBA, Outlook - Reply EventHandler

Здравейте,
Някои може ли да ми помогне?
Искам да прихвана събитието когато се натиска Reply за даден емаил.
Аз пробвах това на базата на Help-а но не работи:

Public WithEvents myItem As Outlook.MailItem

Public Sub Initialize_Handler()
Set myItem = Application.ActiveInspector.CurrentItem
End Sub

Private Sub myItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim mymsg As String
Dim myResult As Integer
mymsg = "Do you really want to reply to all original recipients?"
myResult = MsgBox(mymsg, vbYesNo, "Flame Protector")
If myResult = vbNo Then
Cancel = True
End If
Set Response.SaveSentMessageFolder = myItem.Parent
End Sub

Преоблема е че в Sub Initialize_Handler(), Application.ActiveInspector.CurrentItem = Nothing