Append text to (formatted) body of Reply

Mark Parent · External Since: Mar 07, 2007 Posts: 5

My VBA code is properly finding and opening emails that I want to reply to,
but the body of these messages is formatted somewhat with a table and some
bordering.

I want to append some text to the bottom of this outgoing reply via my code,
but using objItm.Body = objItm.Body & chr(13) & newstring
seems to be removing all the formatting. I can send the reply (with its
formatting) just fine when I manually add text to the bottom, but I can't
seem to replicate this through my code. If can understand the line above
concatenating newstring might be forcing the body to text; is there a coding
way to position the cursor after the existing text and add text without
affecting the existing formatting?

Dmitry Streblechenko · External Since: Nov 23, 2003 Posts: 1401

You woudl need to set the HTMLBody propretty instead of Body.
Read the old value of HTMLBody, find the position of the "</body", inset
your own value just before that, set the new value of HTMLBody

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"Mark Parent" <MarkParent.DeleteThis@discussions.microsoft.com> wrote in message
news:42CCACDB-6612-4201-BE11-76D32AD2B6DA@microsoft.com...
> My VBA code is properly finding and opening emails that I want to reply
> to,
> but the body of these messages is formatted somewhat with a table and some
> bordering.
>
> I want to append some text to the bottom of this outgoing reply via my
> code,
> but using objItm.Body = objItm.Body & chr(13) & newstring
> seems to be removing all the formatting. I can send the reply (with its
> formatting) just fine when I manually add text to the bottom, but I can't
> seem to replicate this through my code. If can understand the line above
> concatenating newstring might be forcing the body to text; is there a
> coding
> way to position the cursor after the existing text and add text without
> affecting the existing formatting?
>
>

Mark Parent · External Since: Mar 07, 2007 Posts: 5

Thank You Dmitry... That's put me on the right track, and I've been able to
produce a much better looking outgoing email.

On a side note, let me thank all of the responders to these discussions...
This board is an incredibly practical resource!

"Dmitry Streblechenko" wrote:

> You woudl need to set the HTMLBody propretty instead of Body.
> Read the old value of HTMLBody, find the position of the "</body", inset
> your own value just before that, set the new value of HTMLBody
>
> --
> Dmitry Streblechenko (MVP)
> http://www.dimastr.com/
> OutlookSpy - Outlook, CDO
> and MAPI Developer Tool
> -
> "Mark Parent" <MarkParent.TakeThisOut@discussions.microsoft.com> wrote in message
> news:42CCACDB-6612-4201-BE11-76D32AD2B6DA@microsoft.com...
> > My VBA code is properly finding and opening emails that I want to reply
> > to,
> > but the body of these messages is formatted somewhat with a table and some
> > bordering.
> >
> > I want to append some text to the bottom of this outgoing reply via my
> > code,
> > but using objItm.Body = objItm.Body & chr(13) & newstring
> > seems to be removing all the formatting. I can send the reply (with its
> > formatting) just fine when I manually add text to the bottom, but I can't
> > seem to replicate this through my code. If can understand the line above
> > concatenating newstring might be forcing the body to text; is there a
> > coding
> > way to position the cursor after the existing text and add text without
> > affecting the existing formatting?
> >
> >
>
>
>