Copying Cell Value AND Format into Email Body Macro

[TysonE]

So my current problem is that I can get the text from my sheet into
the email, but I cant get it to bring the formatting too.

Here is a portion of my current VBA code:

Sub BodyMacro(strbody, email)

Sheets("Body").Select
Range("B1") = email
Calculate

For Each cell In Sheets("Body").Range("A4:A33")
strbody = strbody & cell.Value & vbNewLine
Next

End Sub

This works exactly how I want it to other than I would like the bold,
underline, and italic text in there too. To add to the difficulty,
some of the lines of text bounce between all three. Meaning in cell
A1 its just not all bold text, it will start off bold, then go to
underline, then to regular.

I have also done the "Send to Mail Recipient" and I do not like how
the text doesn't wrap. If this can be down with it wrapping, I would
be open to that suggesting too.

Regards.

 

[TysonE]

Nobody has any idea on how to do this? I have seen a way with a
custom function, but I'm looking for a way to do this without a custom
solution.

Regards,