Выгрузка файлов из MS Outook

04.05.2010, 11:15. **Показов** 1386. **Ответов** 5

Author24 — интернет-сервис помощи студентам

Кто нибудь подскажет как программно выгрузить вложенные в письма MS Outlook файлы куда нибудь на C:**

04.05.2010, 17:28

Visual Basic

Set myOlApp = CreateObject('Outlook.Application')
Set myItem = myOlApp.ActiveInspector.CurrentItem
Set myAttachments = myItem.Attachments
myAttachments.Item(1).SaveAsFile 'C: ' & myAttachments.Item(1).DisplayName

(для сохранения ВСЕХ аттачментов пройдитесь по коллекции myAttachments в цикле)

09.06.2010, 12:30

Ошибка в строке

Visual Basic

1	Set myItem = myOlApp.ActiveInspector.CurrentItem

17.06.2010, 09:56

у меня вот такой код:

Visual Basic

Private Sub Application_NewMail()
AppPath = "C:\Email\Attach " & Format(Date, "yyyymmdd")
On Error Resume Next
MkDir AppPath
On Error GoTo 0
    Set OlApp = New Outlook.Application
    Set NmSpace = OlApp.GetNamespace("MAPI")
    Set FldrInbox = NmSpace.GetDefaultFolder(olFolderInbox)
    For x = 1 To FldrInbox.Items.Count
        Set CurrItem = FldrInbox.Items(x)
        For i = 1 To CurrItem.Attachments.Count
            AttachPathName = AppPath & " "
CurrItem.Attachments.Item(i).FileName
            CurrItem.Attachments.Item(i).SaveAsFile AttachPathName
        Next i
    Next x
End Sub

только вот при получении почты он начинает рыскать и записывать все файлы всех сообщений в папке 'Входящие'. Как сделать так, чтобы обрабатывались только те сообщения, которые только что получил?

17.06.2010, 10:16

Я уже решил эту проблему. Спасибо.
А тебе чтобы не перебирались все письма надо исключить цикл по переменной X

Visual Basic

For x = 1 To FldrInbox.Items.Count ' - убрать строку
        Set CurrItem = FldrInbox.Items(x) ' вместо х или 0 или 1 или FldrInbox.Items.Count скорей всего последнее надо пребовать.
        For i = 1 To CurrItem.Attachments.Count
            AttachPathName = AppPath & " " CurrItem.Attachments.Item(i).FileName
            CurrItem.Attachments.Item(i).SaveAsFile AttachPathName
        Next i
    Next x ' - убрать строку

17.06.2010, 11:20

а если придет два новых сообщения за раз? Будет обрабатывать только первое или последнее???

SergeiVB
		1
	Выгрузка файлов из MS Outook 04.05.2010, 11:15. Показов 1386. Ответов 5 Метки нет (Все метки) Кто нибудь подскажет как программно выгрузить вложенные в письма MS Outlook файлы куда нибудь на C:**

LAPD
	17.06.2010, 11:20	6
	а если придет два новых сообщения за раз? Будет обрабатывать только первое или последнее???