Работа с электронной почтой (Прием сообщений)   

Ниже представлена процедура проверки входящей почты:

Процедура ПроверитьПочту()
    Перем ПутьКФайлу, ИмяФайла,Док;
    ЕстьОшибки=0;
    КолвоСообщений=0;
    Если глПрямаяПочта.Подключиться("Прием")=1 Тогда
        КолвоСообщений=глПрямаяПочта.КоличествоСообщений();
        глПрямаяПочта.Отключиться();
    Иначе
        КолвоСообщений=-1;
        Сообщить("Не удалось подключиться к локальной почте напрямую...","!");
    КонецЕсли;
    Если (КолвоСообщений<=0) Тогда
        Если Константа.ПроверятьВнешююПочту=Перечисление.ДАНЕТ.Да Тогда
            Если глВнешняяПочта.Подключиться("Прием")=1 Тогда
                КолвоСообщений=глВнешняяПочта.КоличествоСообщений();
                глВнешняяПочта.Отключиться();
            Иначе
                КолвоСообщений=-1;
                Сообщить("Не удалось подключиться к внешней почте напрямую...","!");
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;
    Если КолвоСообщений>0 Тогда
        Попытка
            глПочта.Подключиться("MAPI","","");
            глПочта.ВыбратьСообщения();
        Исключение
            ЕстьОшибки=1;
        КонецПопытки;
        Если ЕстьОшибки=1 Тогда
            Сообщить("Не удалось получить почту! "+ТекущаяДата()+""+ТекущееВремя(),"!!!");
            Возврат;
        КонецЕсли;
        Кол=0;
        Пока глПочта.ПолучитьСообщение() = 1 Цикл
            АдресОтправителя=глПочта.АдресОтправителя();
            Заголовок=глПочта.Заголовок;
            Сообщить(АдресОтправителя+">> "+Заголовок);
            глПочта.ПрочитатьСообщение(1);
            Текст=глПочта.Текст;
            Пока глПочта.ПолучитьФайл(ИмяФайла,ПутьКФайлу) = 1 Цикл
                ///Действия
                //...
                //...
                //...
            КонецЦикла;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

Вернуться к статье "Работа с электронной почтой"