View Single Post
 
Old 07-15-2014, 01:07 PM
niton niton is offline Windows 7 64bit Office 2010 64bit
Competent Performer
 
Join Date: Jul 2012
Posts: 102
niton is on a distinguished road
Default

Try this

Code:
StrFnd = "Display,E/monitor,E/port,Mouse,Keyboard,Case,Wide,Screen,Monitor,E-port"
StrFnd = StrFnd & ",display,e/monitor,e/port,mouse,keyboard,case,wide,screen,monitor,e-port"
and

Code:
 
 If InStr(1, objMail.HTMLBody, wordToSearch, vbBinaryCompare) > 0 Then
Reply With Quote