Out look VBA active marco when an email lands

Hi, i have an email each day to a certian folder within out look. Is there a way that each time i recieve this email it activates the below vba.

 Sub Break()


Dim xlApp As Object, xlWkb As Object
Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True ' can be False if you do not wont see reaction, byt make sure is not fail
    Set xlWkb = xlApp.Workbooks.Open("P:\Customer Contact Managers\MI_Resource_planning\A - DAILY\Lateness Trackers\Lateness 2014\Break Lateness.xlsm")
    Set xlWkb = xlApp.Workbooks.Open("C:\Users\luke.andrews\Desktop\VBA TEST.xlsm")
xlApp.Run procedure 'or xlApp.Run procedure