Microsoft Office Forums - View Single Post - Adapt a script used in Word to highlight words, to work in Outlook?

niton · 07-09-2014, 02:05 PM

Add the loop from the Word code to the Outlook code.

Code:

 
Sub SearchMailMessageHighlight()
Dim objMail As Outlook.mailItem
 
Dim wordToSearch As String
Dim strData As String
 
Dim i As Long
Dim StrFnd As String
StrFnd = "display,e/monitor,e/port,mouse,keyboard,case,wide,screen,monitor,e-port"
 
' Must have an open message
Set objMail = Application.ActiveInspector.currentItem
 
objMail.Display ' In case it is behind something or minimized
 
For i = 0 To UBound(Split(StrFnd, ","))
    wordToSearch = Split(StrFnd, ",")(i)
 
    If InStr(1, objMail.HTMLBody, wordToSearch, vbTextCompare) > 0 Then
 
        strData = objMail.HTMLBody
 
       strData = Replace(strData, wordToSearch, "<FONT style=" & Chr(34) & "BACKGROUND-COLOR: yellow" & Chr(34) & ">" & wordToSearch & "</FONT>")
        objMail.HTMLBody = strData
 
       'To reverse highlighting when testing
        'strData = Replace(strData, wordToSearch, "<FONT style=" & Chr(34) & "BACKGROUND-COLOR: white" & Chr(34) & ">" & wordToSearch & "</FONT>")
        'objMail.HTMLBody = strData
 
        'objMail.save
 
    End If
 
Next
Set objMail = Nothing
End Sub