КОМПОНЕНТА ROM-Mail, без вложения отправляет, а с файлом - нет (7.7)

Попробую поискать - правда уже 1 год прошел. щас выложу процедуру с dial mail, все равно лучше сработало. уже год с помощью нее отправляю файлы заказов, накладные и тд.

"Процедура ПолучитьПисьма()<br> Если ЗагрузитьВнешнююКомпоненту("DialMail.dll")=0 Тогда<br> Сообщить("Не удалось обнаружить компоненту DialMail.dll!"); <br> Возврат ;<br> КонецЕсли;<br> Попытка<br> ПолучениеПочты = СоздатьОбъект("AddIn.POP3");<br> ZIP = СоздатьОбъект("AddIn.ZIP"); <br> ZIP.ПутьКБиблиотекам = КаталогПрограммы();<br> SystComm = СоздатьОбъект("AddIn.SystComm");<br> <br> ПолучениеПочты.ВестиЛогФайл = 0;<br> Исключение <br> Сообщить("Не удалось создать объекты из компоненты DialMail.dll!"); <br> Возврат ;<br> КонецПопытки;<br> <br> ПолучениеПочты.РабочийКаталог = СокрЛП(Константа.РабочийКаталог);<br> КаталогДляПрисоединенныхФайлов = СокрЛП(Константа.РабочийКаталог);<br> СписокФайлов = СоздатьОбъект("СписокЗначений");<br> СписокПараметров = СоздатьОбъект("СписокЗначений");<br> СписокПараметров.Установить("Процесс","загрузкапочта");<br><br> Если ПолучениеПочты.Подключиться("pop.mail.ru",110,Сокрлп(Константа.ЭлектроннаяПочта),"Пароль")=0 тогда<br> Предупреждение("Не смогли подключиться к POP3-серверу");<br> Возврат ;<br> КонецЕсли;<br> <br> Сообщить("Подключились к почтовому серверу!");<br> <br> ВсегоПисемНаСервере=ПолучениеПочты.КоличествоПисем;<br> <br> Сообщить("Всего писем на сервере - "+Строка(ВсегоПисемНаСервере));<br> Если ВсегоПисемНаСервере = 0 Тогда<br> ПолучениеПочты.Отключиться();<br> Возврат;<br> КонецЕсли;<br> <br> <br> Сообщить("Получаем письма...!");<br> <br> Если ПолучениеПочты.ПолучитьвсеПисьма(1,1,0,) = 0 Тогда <br> Предупреждение("Ошибка получения писем");<br> Возврат;<br> КонецЕсли;<br> <br> ВсегоПисемНаКомпьютере = ПолучениеПочты.КоличествоПисемВРабочемКаталоге;<br> ПорядковыйНомерСправочника = 0;//для запоминания строки со справочником в СпискеФайлов<br> Для ш = 1 по ВсегоПисемНаКомпьютере Цикл<br> ПолучениеПочты.Распаковатьписьмо(ш);<br> Для СчетчикКолваПрисоединФайлов = 1 По Получениепочты.КоличествоПрисоединенныхФайлов Цикл<br> ИмяТекущегоФайла = ПолучениеПочты.СохранитьПрисоединенныйФайл(СчетчикКолваПрисоединФайлов,КаталогДляПрисоединенныхФайлов); <br> Если Найти(ИмяТекущегоФайла,"Spr")<>0 Тогда//это справочник<br> ПорядковыйНомерСправочника = СписокФайлов.РазмерСписка()+1;//типа следующий будет по списку<br> КонецЕсли;<br> //проверим на архив<br> Если Найти(ИмяТекущегоФайла,".zip")<>0 Тогда<br> ИмяТекущегоФайла = Разархивировать(КаталогДляПрисоединенныхФайлов+ИмяТекущегоФайла);<br> КонецЕсли;<br> СписокФайлов.ДобавитьЗначение(ИмяТекущегоФайла);<br> КонецЦикла; <br> КонецЦикла;<br> <br> ПолучениеПочты.ОчиститьРабочийКаталог(); <br> //теперь пройдемся по всем строкам списка <br> //сначала справочник<br> Если ПорядковыйНомерСправочника<>0 Тогда<br> ИмяТекущегоФайла = СписокФайлов.ПолучитьЗначение(ПорядковыйНомерСправочника);<br> СписокПараметров.Установить("ИмяФайла",КаталогДляПрисоединенныхФайлов+ИмяТекущегоФайла);<br> Сообщить("Загружаем справочник...!");<br> ОткрытьФормуМодально("Отчет",СписокПараметров,КаталогИБ()+"\ExtForms\ЗагрузкаСПР.ert");<br> СписокФайлов.УдалитьЗначение(ПорядковыйНомерСправочника);<br> КонецЕсли;<br> //теперь грузим все остальные файлы<br> Для ш=1 По СписокФайлов.РазмерСписка() Цикл <br> ИмяТекущегоФайла = СписокФайлов.ПолучитьЗначение(ш); <br> Если Найти(ИмяТекущегоФайла,"prm") = 1 Тогда<br> СписокПараметров.Установить("ИмяФайла",КаталогДляПрисоединенныхФайлов+ИмяТекущегоФайла);<br> Сообщить("Загружаем поступление...");<br> ОткрытьФормуМодально("Отчет",СписокПараметров,КаталогИБ()+"\ExtForms\Загрузкапоступления.ert");<br> ИначеЕсли Найти(ИмяТекущегоФайла,"sps") = 1 Тогда<br> СписокПараметров.Установить("ИмяФайла",КаталогДляПрисоединенныхФайлов+ИмяТекущегоФайла);<br> Сообщить("Загружаем списание...");<br> ОткрытьФормуМодально("Отчет",СписокПараметров,КаталогИБ()+"\ExtForms\ЗагрузкаСписание.ert");<br> ИначеЕсли Найти(ИмяТекущегоФайла,"opr") = 1 Тогда<br> СписокПараметров.Установить("ИмяФайла",КаталогДляПрисоединенныхФайлов+ИмяТекущегоФайла);<br> Сообщить("Загружаем оприходование...");<br> ОткрытьФормуМодально("Отчет",СписокПараметров,КаталогИБ()+"\ExtForms\ЗагрузкаОприход.ert");<br> ИначеЕсли Найти(ИмяТекущегоФайла,"per") = 1 Тогда<br> СписокПараметров.Установить("ИмяФайла",КаталогДляПрисоединенныхФайлов+ИмяТекущегоФайла);<br> Сообщить("Загружаем переоценку...");<br> ОткрытьФормуМодально("Отчет",СписокПараметров,КаталогИБ()+"\ExtForms\ЗагрузкаПереоценка.ert");<br> КонецЕсли;<br> КонецЦикла;<br><br> Сообщить("Все файлы загружены");<br> ПолучениеПочты.Отключиться();<br>КонецПроцедуры<br> <br>Процедура получает письма в каталог, записывая при этом названия файлов, а потом проходится по ним и загружает сначала справочник (цены и новые элементы), потом все документы (Поступление, списание, оприходование, переоценку). ZIP - это компонента zip.dll для архивирования файла справочника, а то когда скорость интернета маленькая - грузит мин 20."