Solved

How do I highlight text in a message body with VBA?

Posted on 2009-07-13
1
1,678 Views
Last Modified: 2013-11-05
Hello,

My task is to compare the bodies of two messages using VBA and highlight the text of the second message where the values are different. I am using the following code to split the lines of the message bodies into string arrays using the Split function and then loop through the lines and compare them. I am attempting to enclose each line with <div> tags and apply a style to change the text color. I later set the BodyFormat property to olFormatHTML when I send the final message but the resultant markup is displayed in the message. Is there another possible solution to this problem?
Dim beginRedDiv As String, beginBlackDiv As String, endDiv As String

    beginRedDiv = "<div style='color:red;'>"

    beginBlackDiv = "<div style='color:black;'>"

    endDiv = "</div>"

    

    Dim oldUpdateMessageBody() As String, newUpdateMessageBody As String, newTranscriptionMessageBody() As String

    

    oldUpdateMessageBody = Split(OriginalMessage.Body, vbCrLf)

    newTranscriptionMessageBody = Split(mUpdateMatchMessage.Body, vbCrLf)

    

    Dim i As Integer

    For i = 0 To UBound(oldUpdateMessageBody)

        If oldUpdateMessageBody(i) <> newTranscriptionMessageBody(i) Then

            newUpdateMessageBody = newUpdateMessageBody & beginRedDiv & oldUpdateMessageBody(i) & endDiv

        Else

            newUpdateMessageBody = newUpdateMessageBody & beginBlackDiv & oldUpdateMessageBody(i) & endDiv

        End If

    Next

Open in new window

0
Comment
Question by:Curto123
1 Comment
 

Accepted Solution

by:
Curto123 earned 0 total points
ID: 24843935
I seem to have found the solution on my own. I just needed to dig a little more. It seems all I needed to was use the HTMLBody property of the final message instead of the Body property. My text is now colored appropriately.
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

Learn more about how the humble email signature can be used as more than just an electronic business card. When used correctly, a signature can easily be tailored for different purposes by different departments within an organization.
Is your Office 365 signature not working the way you want it to? Are signature updates taking up too much of your time? Let's run through the most common problems that an IT administrator can encounter when dealing with Office 365 email signatures.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …

747 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now