Макрос вызывается правилом обработки писем. Первый раз после создания макрос выполняется, затем нет, хотя правило работает.
Макрос очень простой, тект ниже.

Sub ExistRule(Item As Outlook.MailItem)
Dim str As String
s = Item.Subject
s = Replace(Replace(s, "/", "_"), ":", "-")
Item.SaveAs "D:\" + s + ".htm", olHTML

End Sub

Первый раз выпоялняется значит, что после создания макроса и до перезагрузки компьютера все работает. На следующий день нет. Но если сбросить проект, создать новый проект и опять подключить макрос все повторится.
Создал проект на другом компьютере -- та же фигня. Кто нибудь сталкивался?

Вообщем, это связано с безопасностью. Я опустил уровень безопасности макросов, буду смотреть что дальше...