How do I copy format (Italics / table borders / bold) from excel to outlook via VBA

[tarallox]

Hi everyone, Happy New Year!

I've got the following code below however I can't seem to code it to copy and paste the tables / formats (as per header), only words get exported onto email outlook.

Can someone help me to tweek it please? Super appreciate it!

Code in question:

Private Sub CommandButton1_Click()

Dim outl As Object

Dim Mail As Object

Dim myrng As Range

Dim zelle As Range

Dim bodyX$





Set outl = CreateObject("Outlook.Application")

Set Mail = outl.CreateItem(olMailItem)





Set myrng = Sheets("test").Range("text")





Mail.To = Sheets("testF").Range("To")

Mail.CC = Sheets("test").Range("CC")

Mail.BCC = Sheets("test").Range("Bcc")

Mail.Subject = Sheets("test").Range("Subject").Value





For Each zelle In myrng

If Not zelle.Value = "" Then

bodyX = bodyX & zelle.Value & Chr(13)

Else:

bodyX = bodyX & Chr(13)

End If



Next zelle





Mail.Body = bodyX

Mail.Display



End Sub

 

[daverunt]

Mail Range/Selection in the body of the mail

The RangetoHTML function copies the range with formatting. See the bottom half of the example for the function

The other option is building up the table as a string using a loop and adding HTML tags as you go round the loop.
Long-winded