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

Hi Matchooo,

Your HTMLBody has to be one continuous string so if you want to send the info on sheet1 trying concatenating it all into one cell. In this file I added a column before the HTML with this function in A1:

Please Login or Register  to view this content.

Then all you have to do is change:

Please Login or Register  to view this content.

Alternatively you can do the concatenation in the code to build the HTML string check this page for more info especially the RangeToHTML Macro - http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

Depends if the length will change.

Here this includes a section which will create the HTML from the range in the code:

Please Login or Register  to view this content.

Don't forget to add reputation by clicking the star on the bottom left if you're query is solved. Mark the thread as Solved too.