Как сохранить новое письмо в Outlook-е

Всем привет!
Есть необходимость, в правилах использовать выполнение сценария, который выполнял бы сохранение нового входящего письма в определённое место в формате ТХТ.
Есть код:
Sub Save_txt()
Dim myItem As Outlook.Inspector
Dim objItem As Object
MyTime = Str(Time)
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector
Set objItem = myItem.CurrentItem
m1 = Format(Time, "Long Time")
d1 = Format(m1, "hhmmss")
d11 = Format(Date, "yymmdd")
objItem.SaveAs "C:\" & d11 & d1 & ".txt", olTXT
End Sub

Но почему-то не выполняется, а останавливается на строке "Set myItem = myOlApp.ActiveInspector"?

Как заставить выполняться макрос не открывая письмо?
P/S Если открыть письмо, то макрос выполняется.
Заранее благодарен.