Run VBA script on email matching Outlook Rule

[dababler]

I have not tested but you probably need to step out of the loop when you move the message e.g.

For b = LBound(arrTest) To UBound(arrTest)
    If InStr(olItems(t).Body, arrTest(b)) Then
        olItems(t).Move olDestFolder
        Exit For
        j = j + 1
    End If
Next b

Thank you for the help when I saw your code it dawned on me what was going on, I had been staring it in frustration for so long I hadn't noticed I somehow had accidentally purged the "Next b" line from my code I was working on; which was of course causing the problem.

THANK YOU AGAIN SO MUCH!