Hi all,

I am trying to automate the following procedure, but I have no clue as
how to do it.


Could you please advise?


I have a spreadsheet, and I want to copy the contents of a Range, WITH
formatting and Images, and paste them into an HTML Email on Outlook.


I have tried with the following Sub

Sub Justins_New_Macro()
Dim myOlApp As Object
Dim newItem As Object
Set myOlApp = CreateObject("Outlook.Application")
Set newItem = myOlApp.CreateItem(olMailItem)
newItem.HTMLBody = RangetoHTML(Range("css"))
newItem.Display
End Sub

and the RangetoHTML function....

Everything works, except for the images and the hyperlinks in the
cells...anyone knows why and how to get this sorted?

Thanks a lot

Alessandro