Run VBA script on email matching Outlook Rule

[gmayor]

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