Create Email Draft With Cell Hyperlinks Intact

Creating email drafts with the use of VBA in excel.

I've used some of his code to create an email draft to send a particular range within my excel spreadsheet. The trouble I'm having with it is keeping the hyperlinks within each cell in the range which will take the user to a particular website. How do I keep this formatting when the range is copied into the body of the email.

Example Cell A10 = HYPERLINK("URL","Google")

The hyperlinks are lost. How to keep these? Here is the code

Sub Mail_Selection_Range_Outlook_Body()
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object

Set rng = Nothing
On Error Resume Next
Set rng = Range("EmailRange")

[Code] ........