Автоматически извлечь вложения
Модератор: Модераторы
Сообщений: 4
• Страница 1 из 1
- CheshirskyCat
- Новый участник
-
- Сообщения: 2
- Зарегистрирован: 18 фев 2005, 18:07
CheshirskyCat » 18 фев 2005, 18:23
Задача: Приходит письма с вложениями. Эти письма я могу сохранить в нужную мне папку. Необходимо извлечь вложения из писем для последующей обработки.
Что посоветуете.
Заранее спасибо.
Что посоветуете.
Заранее спасибо.
- Valeriy
- Активный пользователь
- Сообщения: 243
- Зарегистрирован: 30 июн 2004, 16:18
- Откуда: Кировоград (Украина)
Valeriy » 19 фев 2005, 14:43
Если речь о файлах .eml, то так:
| Код | ||
| Dim iDropDir,iMsgs, attchs, iMsg,attch
Set iDropDir = CreateObject("CDO.DropDirectory") Set iMsgs = iDropDir.GetMessages("e:\data\msgs") For Each iMsg in iMsgs set attchs=imsg.Attachments for each attch in attchs attch.savetofile "c:\"+attch.filename next Next [/code] При этом на машине должна быть зарегистрирована библиотека CDO C уважением, Валерий
Огромное спасибо! Только вопрос, что за библиотека CDO? Где взять? Ткните носом пожалуйста.
PS: Пардон, уже не надо, сам нашел. Эта библиотека уже присутствует в серверных осях. А я просто на рабочей станции сначала пробовал.
|