КАК выдрать attach из письма???

@netfrog · Регистрация: 29.09.2008

Подскажите, плз, как выдрать из письма приаттаченый файлик?

@VitFil · 30.11.2008, 17:56

1. Запускаем Аутлук.
2. Запускаем запись макроса.
3. Выполняем все действия по извлечению приаттаченного файла.
4. переходим в редактор VBA и смотрим, что получилось.

@mishar · 01.12.2008, 22:36

Для начала, Outlook не позволяет записывать мкросы. А сохранить атачменты очень просто:

Set mailApp = CreateObject('Outlook.Application')
Set olItem = mailApp.Inspectors.Item(1).CurrentItem
Set attach = olItem.Attachments
For i = 1 To attach.Count
attach.Item(i).SaveAsFile attach.Item(i).FileName
Next

@netfrog · 02.12.2008, 12:47 **[ТС]**

Ок, спасибо, а то я бедный Аутлук замучал на предмет того, где же в нем можно сохранить макрос

@netfrog 0 / 0 / 0 Регистрация: 29.09.2008 Сообщений: 18
		1
	КАК выдрать attach из письма??? 30.11.2008, 17:41. Просмотров 562. Ответов 3 Метки нет (Все метки) Подскажите, плз, как выдрать из письма приаттаченый файлик? 0

@VitFil 0 / 0 / 0 Регистрация: 10.07.2007 Сообщений: 105
	30.11.2008, 17:56	2
	1. Запускаем Аутлук. 2. Запускаем запись макроса. 3. Выполняем все действия по извлечению приаттаченного файла. 4. переходим в редактор VBA и смотрим, что получилось. 0

@mishar 0 / 0 / 0 Регистрация: 13.12.2007 Сообщений: 46
	01.12.2008, 22:36	3
	Для начала, Outlook не позволяет записывать мкросы. А сохранить атачменты очень просто: Set mailApp = CreateObject('Outlook.Application') Set olItem = mailApp.Inspectors.Item(1).CurrentItem Set attach = olItem.Attachments For i = 1 To attach.Count attach.Item(i).SaveAsFile attach.Item(i).FileName Next 0

@netfrog 0 / 0 / 0 Регистрация: 29.09.2008 Сообщений: 18
	02.12.2008, 12:47 [ТС]	4
	Ок, спасибо, а то я бедный Аутлук замучал на предмет того, где же в нем можно сохранить макрос 0

Опции темы