Событие NewMail

[Евгений Таб]

Коллеги доброго дня.

Помогите пожалуйста с макросом который открывает файл по входящему сообщению в Outlook.

Данный код не работает, не ругается и не выдает ошибок... Путь корректен

Private Sub Application_NewMail()
    Dim Subject As String
    Subject = Item.Subject

    If Subject = "RUN" Then
       Shell "...\test_logon2.exe"
    End If
End Sub

[Евгений Таб]

Каким еще образом можно программно обработать входящее письмо?

Никак не получается настроить чтобы при определенной теме письма когда письмо приходит запускался exe файл...