Скрипт Ms Outlook

[Shvd]

Коллеги, добрый день!

Помогите плз отладить сценарий - уже голову сломал, но не могу додумать где ашипка.
Задача: при обработке входящих сообщений RSS сохранять вложения в указанную папку на жестком диске.
При подвешивании на входящее мыло - всё работает, на RSS - нет. Мои подозрения - некорректное использование MailItem при определении objMail.
Скрипт такой:

Sub SaveToFolder(MyMail As MailItem)
Dim strID As String
Dim objNS As Outlook.NameSpace
Dim objMail As Outlook.MailItem
Dim objAtt As Outlook.Attachment
Dim c As Integer
Dim save_name As String
Const save_path As String = "c:\temp\"

strID = MyMail.EntryID
Set objNS = Application.GetNamespace("MAPI")
Set objMail = objNS.GetItemFromID(strID)

If objMail.Attachments.Count > 0 Then
For c = 1 To objMail.Attachments.Count
Set objAtt = objMail.Attachments©
objAtt.SaveAsFile save_path & objAtt.FileName

Next
End If

Set objAtt = Nothing
Set objMail = Nothing
Set objNS = Nothing
End Sub

 

[Shvd]

ап