Чтение EML файла электронной почты MS Outlook

Для создания корпоративного хранилища электронной почты потребовалась функция импорта EML файлов.
Исходники найдены были на stackoverflow.com и портированы с Visual Basic.

//CDO это Collaboration Data Objects
msg = Новый ComОбъект("CDO.Message");
stream = Новый ComОбъект("ADODB.Stream");
stream.Open();

//передаем путь к EML файлу
stream.LoadFromFile(Файл);
stream.Flush();
msg.DataSource.OpenObject(stream, "_Stream");
msg.DataSource.Save();
stream.Close();

//параметры письма
Сообщить("От   : "+msg.From);
Сообщить("Кому : "+msg.To);
Сообщить("Тема : "+msg.Subject);
Сообщить("Текст: "+msg.HTMLBody);
Сообщить("Аттач: "+msg.Attachments.Count);

//Сохраняем в файл вложения
Для i = 1 По msg.Attachments.Count Цикл
   
msg.Attachments.Item(i).SaveToFile("c:\temp\" + msg.Attachments.Item(i).FileName);
КонецЦикла;

Мебель каталог

Мебель каталог
http://1stbest.info/
----------

Похожие материалы

Справочники

Документы

Отчеты

Обработки