Prompt user for info on Send then add that info to the mail being sent

I want to prompt开发者_StackOverflow中文版 the user to enter their name in an input box, when they hit Send.

Once they input the info and click Ok, I want to append the name to the end of the message and then let the message go.

---

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
SenderName = InputBox("Please enter your name")
Item.Body = Item.Body + SenderName
End Sub

This is a simple script to do the job.