| Вопрос: Скрипт в MS Outlook | Добавлено: 14.06.10 13:52 |
Автор вопроса:  Shvd | ICQ: 290-796-070 |
|
Коллеги, добрый день!
Помогите плз отладить сценарий - уже голову сломал, но не могу додумать где ашипка. Задача: при обработке входящих сообщений 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 |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Shvd ICQ: 290-796-070 Вопросов: 1 Ответов: 1 |
Профиль | | #1 | Добавлено: 17.06.10 11:14 |
| ап | ||
Страница: 1 |