Outlook 2000 - CurrentItem

Всем привет!

Пишу первый в жизни макрос в Outlook'e.
Мне нужно сохранять вложенный файл, скопировал с хэлпа следующий код:

Set myOlApp = CreateObject("Outlook.Application")
Set myInspector = myOlApp.ActiveInspector
Set myItem = myInspector.CurrentItem
Set myAttachments = myItem.Attachments
myAttachments.Item(1).SaveAsFile "C:\My Documents\" & myAttachments.Item(1).DisplayName

На 3-й строке выдает:
"Object variable or With block variable not set."
то есть не понимает CurrentItem.

В чем дело не пойму, а очень нужно.


Спасибо.