8.х Не работает отбор в интернет почте

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем makfromkz, 15 июл 2017.

  1. TopicStarter Overlay
    makfromkz
    Offline

    makfromkz Новичок в 1С

    Регистрация:
    12 июн 2009
    Сообщения:
    33
    Симпатии:
    6
    Баллы:
    4
    Есть такой кусок кода в моей обработке взятый частям из типовой:
    Код:
        // Сформируем почтовый профиль и подключимся к почтовому серверу
        Профиль = ЭлектроннаяПочта.СформироватьИнтернетПрофиль(УчетнаяЗапись);
        Почта = Новый ИнтернетПочта;
        Попытка
            Почта.Подключиться(Профиль);
        Исключение
        
            ЕстьОшибки = Истина;
        
            ТекстСообщенияОбОшибке = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
            НСтр("ru = 'Во время подключения к учетной записи %1 произошла ошибка
            |%2'"), УчетнаяЗапись,ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
        
            Сообщить(ТекстСообщенияОбОшибке);
        
            Возврат;
        
        КонецПопытки;
    
        //-----------------------------------------------------------------
        // Получим идентификаторы сообщений на сервере
        ПараметрыОтбораIMAP = Новый Структура;
        ПараметрыОтбораIMAP.Вставить("Отправитель", "aaaaaa@stel.kz");
        массИДов = Новый Массив;
        ИДы = Почта.ПолучитьИдентификаторы(, ПараметрыОтбораIMAP);
        Сообщить("получено " + ИДы.Количество());
        Если ИДы.Количество() > 0 Тогда
        
            // Получим только новые сообщения
        
            Масс = Почта.Выбрать(Ложь, ИДы);
        
        Иначе
        
            Сообщить("Сообщений нет");
            Почта.Отключиться();
            Возврат;
        
        КонецЕсли;
    
    
    Вопрос: почему не работает отбор?
    Последнее редактирование: 15 июл 2017

Поделиться этой страницей