Outlook 2013 Macro - Find Text String in Outlook Contact Body and delete the string
Posted on 2014-09-23
I am looking for a way to remove an unwanted text string in the Notes (Body) section of outlook contacts
I have a vba macro that pages through all contacts and tried to use this code but it isn't working can anybody help?
If InStr(1, .Body, "Facility Condition Assessment EBlast 09-03-2014 Test Run 01") > 0 Then
.Body = Replace(.Body, "==============^pFacility Condition Assessment EBlast 09-03-2014 Test Run 01", "")
BodyUpdtCnt = BodyUpdtCnt + 1