Copying Cell Value AND Format into Email Body Macro



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)

Range("B1") = email

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

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.



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


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question