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

>
 
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.
Similar threads
Thread starter Title Forum Replies Date
D How to append text to a redirected message Using Outlook 3
S Create Outlook Task from Template and append Body with Email Body Outlook VBA and Custom Forms 4
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
H Finding text in open email Outlook VBA and Custom Forms 12
D Can't read some emails - text size too small. Using Outlook 2
AndyZ Contact Custom Form Tiny Text Outlook VBA and Custom Forms 3
D Delete selected text in outgoing email body Outlook VBA and Custom Forms 0
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

Similar threads

Back
Top