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