Скрипт Ms Outlook

Тема в разделе "Visual Basic", создана пользователем Shvd, 14 июн 2010.

Наш партнер Genesis Hackspace
Статус темы:
Закрыта.
  1. Shvd

    Shvd Гость

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

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

    Код (LotusScript):
    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
     
  2. Shvd

    Shvd Гость

Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей