VPF::Скрипт MS Outlook - Форум программистов

Shvd

Дата 14.6.2010, 12:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 14.6.2010

Репутация: нет
Всего: нет

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

Помогите плз отладить сценарий - уже голову сломал, но не могу додумать где ашипка.
Задача: при обработке входящих сообщений 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

Дата 17.6.2010, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 14.6.2010

Репутация: нет
Всего: нет

ап

Akina

Дата 17.6.2010, 11:45 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Выполните трассировку и наблюдайте в окне Locals за содержимым переменных.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »