Making new reply forms

[Rob012669]

I created a new reply form by clicking on a message, then:

tools -> Design this form (make changes to the form)
tools -> publish form as -> (save in inbox) then called it new-reply...
Message class: IPM.Note.new-reply

I added this macro to vba:
Sub DisplayForm()
Set myFolder = Session.GetDefaultFolder(olFolderInbox)
Set myItem = myFolder.Items.Add("IPM.Note.new-reply")
myItem.Display
End Sub

I added the macro button to the message window I get when I double click on
outlook inbox message to bring up the individual message

When I click on the macro button I dont get any value in the To... field of
my new reply form:

Can someone please give me an idea how to populate the To... field with the
email address of the person that sent me the email?

Thanks for your help,
Rob