Store range into array?

I cant figure out how to set .HTMLBody as the contents of sheet1 (which contains unformatted HTML). Here is the code I'm using (it's also included in the attached workbook):

Sub Mail_Sheet_Outlook_Body()

Dim OutApp As Object
Dim OutMail As Object

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "hi"
.HTMLBody = "?????????????????????????????????????????????"
.Display
End With
On Error GoTo 0

With Application
.EnableEvents = True
.ScreenUpdating = True
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub