Hi,
I need a code, which can be added with my below code so that, while sending the mail, the content of the cell should come as the colums with the format (like BG color) but it should work in all mail clients.

I have the following code, but it is copying only the texts. not the cells with formats.
Please help




Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Sub SendEMail()
Dim CopiesTo As String

Dim Email As String, Subj As String
Dim Msg As Range, URL As String
Email = Cells("1", 3)

Subj = Cells("1", 2)

Msg = ""
Msg = Msg & "Dear " & Cells("1", 1) & "," & vbCrLf & vbCrLf & "Your Following delivery is pending for the QC today. " & vbCrLf & vbCrLf & Cells("1", 4) & vbCrLf & vbCrLf & " Please complete it and reply ASAP." & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "NB: This mail will supersede the previous mail if you did get any with the same subject line"



' Carbon Copies
CopiesTo = Cells("2", 1)


'Replace spaces with %20 (hex)
Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")

'Replace carriage returns with %0D%0A (hex)
Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")

'Create the URL
URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg & "&CC=" & CopiesTo


'Execute the URL (start the email client)
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

'Wait two seconds before sending keystrokes
'Application.Wait (Now + TimeValue("0:00:02"))
'Application.SendKeys "%s"
End Sub