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,

On Sep 16, 11:11*am, TysonE wrote:
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.