База 7.7 Торговля и склад, 7.70.938
Есть обработка, которая загружает заявки с почты при помощи компоненты ROM-Mail. Раньше файлы в почте хранились в формате dbf, теперь поставщик присылает данные в xls. Но не просто в xls, а в zip. Если заходить на почту через веб-интерфейс, то при нажатии на файл вложения он скачивается уже в xls. А когда делаешь это через обработку, то файл скачивается в непонятном формате такого вида. QlNGD0YDQvNCw0L3QvtCyX9CS0JNfNjMzMi54bHM=_=.
Если на почте просто лежит файл xls, без архива, обработка скачивает файл правильно, распознает как xls.
Предположила, что проблема в кодировке, но если даже в коде обработке устанавливать кодировку, она вне зависимости от кода ставится "koi8-r". Пробовала через эту ссылку http://www.artlebedev.ru/tools/decoder/advanced/ распознать тип файл - все равно всегда набор символов пишет.
Может быть кто-то знает, как решить такую проблему? Или придется просить поставщиков присылать в xls без архива?

Так скачать файл в каталог, разархивировать и открыть в Excel'е обработкой?

В том-то и дело, что не получается скачать файл как архив.
Кусок процедуры где считывается файлик :
    Сп = СоздатьОбъект("СписокЗначений");
    
    Для Сч = 1 По ТЗ.КоличествоСтрок() Цикл
                    
        ТЗ.ПолучитьСтрокуПоНомеру(Сч);
        Если ТЗ.Пометка = 2 Тогда

            Если ВК.ПолучитьСообщение(ТЗ.НомерПисьма) = 0 Тогда
                Продолжить;
            КонецЕсли;
            
            Если ВК.КоличествоФайлов() = 0 Тогда
                Сообщить("---------------------------------");
                Сообщить("Обработано: " + Вк.Тема + ". Не обнаружен заказ в письме!!!");
            КонецЕсли;
            
            Для Инд=1 По ВК.КоличествоФайлов() Цикл
                
                ИмяФайла = ВК.ПолучитьФайл(Инд);
                Если Прав(ВРег(СокрЛП(ИмяФайла)),3) = "XLS" Тогда
                    ВК.СохранитьФайл(Инд,"");
                    
                    Конт = СокрЛП(КаталогПользователя() + ИмяФайла);
                    Сп.ДобавитьЗначение(Конт);
                    Сп.ДобавитьЗначение(ВК.АдресОтправителя);
                    Сп.ДобавитьЗначение(ВК.ДатаОтправки);
                    Сп.ДобавитьЗначение(ВК.Тема);
                    ОткрытьФормуМодально("Отчет", Сп, КаталогИБ() + "ExtForms\ЗагрузкаЗаявокГулливераИзПочтыITMaster.ert");
                    
                    Конт = Сп.ПолучитьЗначение(5);
                    
                    Сп.УдалитьВсе();                    
                    Если Конт = 1 Тогда
                        ЗаписатьВСправочник(ВК.АдресОтправителя, ВК.Тема, ВК.ДатаОтправки);
                    КонецЕсли;
                    Сообщить(?(Конт = 1, "Успешно обработан! <<", "Ошибка! Исправьте ошибки! Повторите загрузку. <<")+ Вк.Тема + ">>");
                    
                КонецЕсли;
            КонецЦикла;
            
        КонецЕсли;
    КонецЦикла;

И если перед фразой ИмяФайла = ВК.ПолучитьФайл(Инд); посмотреть, как выглядит поле Вложения, то там будет написано именно QlNGD0YDQvNCw0L3QvtCyX9CS0JNfNjMzMi54bHM=_=.

Так у тебя там условие стоит:
....
Если Прав(ВРег(СокрЛП(ИмяФайла)),3) = "XLS" Тогда
....

т.е. у тебя обработка не качает ни какой файл кроме *.xls

Это понятно, но если это условие убрать, то он считывает остальные файлы криво, которые на самом деле архивы. Во всяком случае, в веб интерфейсе почты около файла стоит значок ZIP.

Конечно будет криво читать. ZIP - это ведь архив. К существующему условию добавь проверку на расширение zip. Если оно есть, то скачивай файл, разархивируй в файл xls и после этого открывай его в ExtForms\ЗагрузкаЗаявокГулливераИзПочтыITMaster.ert.

В любом случае, если бы файл прочитывался нормально, то у него было бы его имя  расширением .zip.
Если бы он грузился архивом, дальше я бы просто команду системы с разархивацией запустила и все. А так-то у меня даже архива нет. А вместо него какая-то чушь.

(6) Как я его проверю на zip?

В конце имени файла нет ".zip".

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

Ну так анализируй расширение имени файла.
...
Если Прав(ВРег(СокрЛП(ИмяФайла)),3) = "XLS" Тогда
...
...
ИначеЕсли Прав(ВРег(СокрЛП(ИмяФайла)),3) = "ZIP" Тогда
...
...
КонецЕсли;

+(11) Распаковать zip можно с помощью ВК, например raruslib. 1С 7.7 это делать не умеет.

кодировка ?

http://1c.moy.su/publ/37-1-0-125

от тут чуть есть

Работа с объектом  V7Mail в 1С 7.7

Файл=ВК.КаталогВложений+ВК.ПолучитьФайл(Инд);
                Сообщить("Получен файл: "+Инд);
                //сохранение
                ВК.СохранитьФайл(Инд,);  
                Кавычка="""";
                КомандаСистемы(Кавычка+"C:\Program Files\WinRAR\WinRar.exe"+Кавычка+" x "+"-o+ "+" -IBCK "+Файл+" *.xls F:\ITMaster");

(12) это вполне может делать dialmail или 1c++ (BinaryData)

Т.е. хотите сказать, что просто файл всегда нормально считывается, а архив нет? Практически аналогичная обработка, которая скачивает архив с почты, работает без проблем. Отличия только в том, что там почты нормальная, mail. А тут это веб-почта или как она там называется. И файл был в архиве rar. И руками тоже скачивался как архив, а тут если вручную скачиваешь, сразу xls.

(16) Хотим сказать что всё нормально считывается. Не смотри поле "Вложения".
В цикле
Для Инд=1 По ВК.КоличествоФайлов() Цикл
            ИмяФайла = ВК.ПолучитьФайл(Инд);
.....
КонецЦикла;

После получения имени файла сделай Сообщить(ИмяФайла);
И посмотри какие файлы тебе покажутся.

(15) Согласен, dialmail удобнее. Скачал с почты, тут же распаковал. ))

Вот такие файлы загружаются с почты:
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNfNzk4NS54bHM=_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNf0KjQvg==_=_=_utf-8_B_0LrQmtC+Xzc5ODYueGxz_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNf0KjQvg==_=_=_utf-8_B_0LrQmtC+XzYwNjUueGxz_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNfNzA0NS54bHM=_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNfNjA2NC54bHM=_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNf0KjQvg==_=_=_utf-8_B_0LrQmtC+XzcwNDYueGxz_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNf0KjQvg==_=_=_utf-8_B_0LrQmtC+XzEyNTQ1Lnhscw==_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNfMTI1NDQueGxz_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNfNzA1My54bHM=_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNfNjkyNS54bHM=_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNfMTQ5MjcueGxz_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNfNjQ2NS54bHM=_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNf0KjQvg==_=_=_utf-8_B_0LrQmtC+XzY1NDEueGxz_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNfNzU3NC54bHM=_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNf0KjQvg==_=_=_utf-8_B_0LrQmtC+XzE0OTI4Lnhscw==_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNfMTQ3NDYueGxz_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNf0KjQvg==_=_=_utf-8_B_0LrQmtC+XzE0NzQ3Lnhscw==_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNfMTM0NTcueGxz_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNfMjc2NC54bHM=_=
Получен файл: QlNGD0YDQvNCw0L3QvtCyX9CS0JNf0KjQvg==_=_=_utf-8_B_0LrQmtC+XzEzNDU4Lnhscw==_=
=====================
Загрузка завершена!!!

Я просто не уверена, что если я все перепишу под Dialmail, у меня файлы будут правильно считываться...

(19) Кусок кода дай, который эти сообщения пишет.

(21) Ну так тот же, что ты сказал
            Для Инд=1 По ВК.КоличествоФайлов() Цикл
                
                Файл=ВК.ПолучитьФайл(Инд);
                
                Сообщить("Получен файл: "+Файл);

Ни разу не сталкивался с таким. У меня таких проблем ни когда не возникало. Список файлов всегда был правильным, вне зависимости от типов файлов (xls, mxl, xml, pdf, zip и пр.).

В СП про кодировку написано следующее:
"...автоматическое кодирование/декодирование средствами внешней компоненты доступно только для следующих кодировок: "windows-1251", "koi8-r", "koi8-u", "ibm866", "x-mac-cyrillic", "iso-8859-1"..."iso-8859-9"..."

В том-то и дело, что все остальные файлы с почты читаются правильно... И dbf, и xls.

(20) попробовать-то? никак?

Такое ощущение, что он тебе список файлов архива подсовывает в BASE64.

(25) В процессе)

(24) а можешь это же письмо прочитать с другой почты? (корпоративная, mail.ru...)

(26) И как с этим бороться?
Декодер, который я вначале скидывала, тоже ссылался на BASE64.

(28) Попробую на свою личную переслать и оттуда считать.

(29) возникают у меня смутные подозрения, что это особенность данного почтового сервера...

(0)Параллельное обсуждение в соседней ветке.
У меня оно ужо давно было реализовано с dialmail.
Там все и почта и фтп и zip.
стучись ченить придумаем.

Спасибо всем, кто откликнулся)
Переделала обработку под Dialmail и вложения писем, которые в веб почте отображались как zip, сразу стали читаться как xls.

А что за веб почта? Какой домен?

Ну сама почта вот : http://mail.gulliver-ul.ru/
А вид интерфейса выбран RoundCube WebMail

И снова проблемы с этой загрузкой. Переписанная обработка загружает письма, которые лежит в архиве, а обычные файлы не грузит. Код загрузки писем :

    Для Сч = 1 По ТЗ.КоличествоСтрок() Цикл
        
        ТЗ.ПолучитьСтрокуПоНомеру(Сч);
        Если ТЗ.Пометка = 2 Тогда
            
            Если ПолучениеПочты.ПолучитьПисьмо(ТЗ.НомерПисьма,0,0) = 0 Тогда
                Продолжить;
            КонецЕсли;
            
            ПолучениеПочты.РаспаковатьПисьмо();
            Если Число(ПолучениеПочты.КоличествоПрисоединенныхФайлов) = 0 Тогда
                Сообщить("---------------------------------");
            КонецЕсли;
            
            Для ф=0 по Число(ПолучениеПочты.КоличествоПрисоединенныхФайлов) цикл
                Ф2=Ф;
                
                ИмяФайла = ПолучениеПочты.ПолучитьИмяПрисоединенногоФайла(ф2);
                
                Если Прав(ВРег(СокрЛП(ИмяФайла)),3) = "XLS" Тогда
                    
                    ПолучениеПочты.СохранитьПрисоединенныйФайл(ф2);  
                    ПолучениеПочты.УдалитьПисьмоИзРабочегоКаталога();                    
                    
                КонецЕсли;                
            КонецЦикла;                
        КонецЕсли;
    КонецЦикла;

При распаковке всегда есть 2 файла : один файл называется main.hdr, второй mail1.txt.
Те письма, где файл лежит в архиве, при распаковке содержат еще файл XLS, а в письмах, где просто присоединен файл XLS, при распаковке только 2 файла, без XLS. Думала, что это из-за того, что я их распаковываю, но без функции распаковки нельзя узнать количество файлов...
Не знаю, что и делать...=\