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
End Sub