Save a template file with your text. In the code it is saved to C drive and named NamePlaceholder.oft . Change as needed.
Open a request before running the code.
Dim currItem As Outlook.mailItem
Dim currItemReply As Outlook.mailItem
Dim myItem As Outlook.mailItem
Dim commaPositionRight As Long
Dim Firstname As String
Set currItem = ActiveInspector.currentItem
Set currItemReply = currItem.Reply
Set myItem = Application.CreateItemFromTemplate("C:\NamePlaceholder.oft")
myItem.To = currItemReply.To
commaPositionRight = InStrRev(myItem.To, ",")
Firstname = Right(myItem.To, commaPositionRight)
myItem.Subject = currItem.Subject
' if "RE:" or "FW:" on the request,
' and the client replies there would be an extra "RE:" or "FW:"
If InStr(myItem.Subject, "RE: ") = 1 Or InStr(myItem.Subject, "FW: ") = 1 Then
myItem.Subject = Right(myItem.Subject, Len(myItem.Subject) - 4)
myItem.HTMLBody = myItem.HTMLBody & currItemReply.HTMLBody
myItem.HTMLBody = Replace(myItem.HTMLBody, "NAME", Firstname)
Set currItemReply = Nothing
Set myItem = Nothing
Set currItem = Nothing
If you are unfamiliar with VBA see here http://www.slipstick.com/developer/how-to-use-outlooks-vba-editor/