Append text to (formatted) body of Reply

Status
Not open for further replies.
M

Mark Parent

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?
 
D

Dmitry Streblechenko

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)

-

"Mark Parent" <MarkParent> 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?

>
 
M

Mark Parent

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)
>

>

>

> -
> "Mark Parent" <MarkParent> 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?
> >

>
 
Status
Not open for further replies.
< How to add a message to a mapi view folder | Setting PR_CREATION_TIME property? >
Similar threads
Thread starter Title Forum Replies Date
D How to append text to a redirected message Using Outlook 3
P How to copy and append data from Outlook 2016 message into Excel 2016 workbook Using Outlook 0
K Append subjectline based on number Using Outlook 4
L Transport rule - append disclaimer Exchange Server Administration 1
C Save outlook attachments and rename/append files with identifier from subject line Outlook VBA and Custom Forms 3
H PRF with OverwriteProfile=Append Is overwriting other settings Using Outlook 2
kburrows Outlook Email Body Text Disappears/Overlaps, Folders Switch Around when You Hover, Excel Opens Randomly and Runs in the Background - Profile Corrupt? Using Outlook 0
J PSA: How to create custom keyboard shortcut for "Paste Unformatted Text" in Outlook on Windows Outlook VBA and Custom Forms 1
Witzker Add a text line at the end of the note field in all selected Contacts Outlook VBA and Custom Forms 7
O Replace hard returns with soft returns on selected text and button to QAT Using Outlook 5
J Outlook 365 Emails showing as links and text only Using Outlook 4
R How to force Outlook to use plain text in notes for Contacts? Using Outlook 1
J Text icon in Quick Access toolbar ? Using Outlook 2
S New Outlook Appointment - Select All Body Text and Change Font and Size Outlook VBA and Custom Forms 1
Z Copy specific email body text Outlook VBA and Custom Forms 0
L did MS ever add way to text via Outlook Using Outlook 5
B Outlook 365 Populate Outlook Task UDFs from a UDF text string Outlook VBA and Custom Forms 2
D Forwarding email based on the attachment file type and specific text found on the attachment file name Outlook VBA and Custom Forms 1
BartH Add a string to the conditions in .Conditions.BodyOrSubject.Text Outlook VBA and Custom Forms 2
S HTML to Plain Text Macro - Help Outlook VBA and Custom Forms 1
S Unable to extract text from an Outlook email message Using Outlook 2
T Original email text not shown when replying or forwarding the email. Using Outlook 9
M Outlook, send to > mail recipient - results in plain text email Using Outlook 1
P Forwarding emails issue with special characters replacing text body Using Outlook 1
J Autoreply email recieved from specific sender after deleting some text from body. Using Outlook 0
O Outlook tasks - Add text column with multiple lines Using Outlook 3
S Body text of Email from invite date/time Outlook VBA and Custom Forms 7
T Why does outlook 2010 convert only some forum notifications to plain text? Using Outlook 0
Z VBA to convert email to task, insert text of email in task notes, and attach copy of original email Outlook VBA and Custom Forms 4
J Outlook 2013 Change color of text in data fields of contacts in Outlook 2013? Using Outlook 10
V Limiting text length in free text field Outlook VBA and Custom Forms 2
Jennifer Murphy Ctrl+Tab sometimes will not move through text a word at a time Using Outlook 1
B Add Prefix text to Subject Line Using Outlook 1
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4
S Change VBA script to send HTML email instead of text Outlook VBA and Custom Forms 3
M VBA to auto forward message with new subject and body text Outlook VBA and Custom Forms 8
T Missing text in e-mail message after "(Please keep confidential)" Using Outlook 3
S Outlook to check for specific text Outlook VBA and Custom Forms 3
A Read and Write to Text File Outlook VBA and Custom Forms 1
J Program Checkbox that will activate a text box in a Outlook fallible form. Outlook VBA and Custom Forms 1
N How to remove signature formatting from Text in Word (accidentally taken from Outlook) Using Outlook 0
B Paste formatted text (bold, underlined and in quotes) Outlook VBA and Custom Forms 1
J Remove text to Clean Up Outlook VBA and Custom Forms 1
O Macro - paste as plain text Outlook VBA and Custom Forms 2
N Is there an Outlook tool to normalize text for entries that are in ALL CAPS? Using Outlook 2
e_a_g_l_e_p_i Is there a way to add something that is in the "Format Text" tab to the "basic Text" on the message tab Using Outlook 1
D Remove text in subject using VBA Outlook VBA and Custom Forms 4
D Body text of email disappears when I scan an attachment from printer to email Using Outlook 1
S Outlook 2007: Address Cards allow entering text! Why? Using Outlook 3
S View Appointment in Text Wrap in Outlook 2007 Month Calendar View Using Outlook 0

Similar threads

Top