Copy an Excel Range and paste into Outlook email and keep Source Formatting

[rajulapati]

I am trying to Copy an Excel Range and paste into Outlook email and keep Source Formatting . Tried below code and its not working

objDriverSheet.Range("A1:N17").Copy

Set MsOutlook = Sys.OleObject("Outlook.Application")

Dim ObjItem, MI, i, CRLF

CRLF = Chr(13) + Chr(10)
Set MI = MsOutlook.CreateItem(0)

MI.Subject = StrSubject
MI.HTMLBody =Sys.Clipboard

MI.To = Str_toemail_id

MI.Display 

MI.Send
Set MI = Nothing
Set MsOutlook=Nothing

[Marsha_R]

"Tried below code and its not working" - it's helpful if you tell us what it did do and how that was different from what you wanted.

[sonya_m]

Thank you, Marsha!

Hi @rajulapati! Please let me know if you were able to solve this? Or, please provide the Community with more details to keep investigating this here. Thank you.