Tinbendr
09-02-2009, 06:22 AM
OK gang, what am I missing?
I have a report to send via email. This report is written in Word. I have a macro in Word that emails the Activedocument as an attachment. In this document, Table 1 is a summary of the document. I'd like to insert table 1 in the body for quick viewing by the recepient.
However, when I insert the table with
.Body = "Subject says it all!" & vbCr & ActiveDocument.Tables(1).Range
of course all the formatting is lost. It's laid out in a one column per line. Readable, but not what I'm looking for.
So when I insert the table with
.BodyFormat = olFormatHTML
.HTMLBody = "<b>Subject says it all!</b>" & vbCr & ActiveDocument.Tables(1).Range
Again, I lose all formatting and all of the text is scrunched together, with the white square boxes at the end of the lines. Very unreadable.
So I ask, what am I missing?
Thanks in advance!
I have a report to send via email. This report is written in Word. I have a macro in Word that emails the Activedocument as an attachment. In this document, Table 1 is a summary of the document. I'd like to insert table 1 in the body for quick viewing by the recepient.
However, when I insert the table with
.Body = "Subject says it all!" & vbCr & ActiveDocument.Tables(1).Range
of course all the formatting is lost. It's laid out in a one column per line. Readable, but not what I'm looking for.
So when I insert the table with
.BodyFormat = olFormatHTML
.HTMLBody = "<b>Subject says it all!</b>" & vbCr & ActiveDocument.Tables(1).Range
Again, I lose all formatting and all of the text is scrunched together, with the white square boxes at the end of the lines. Very unreadable.
So I ask, what am I missing?
Thanks in advance!