Процедура ОсновныеДействияФормыПрочитать(Кнопка)
// Вставить содержимое обработчика.
Состояние("Чтение данных");
Если РучнойРежим = Истина Тогда
ПрочитатьДанные();
Возврат;
КонецЕсли;
СостояниеПриема = "Подключение к серверу";
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.ВремяОжидания = 20;
Профиль.ПортPOP3 = 110;
Профиль.АдресСервераPOP3 = "pop.mail.ru";
Профиль.Пароль = "123456";
Профиль.Пользователь = "
[email protected]";
Почта = Новый ИнтернетПочта;
Почта.Подключиться(Профиль);
Выборка = Почта.Выбрать(Ложь);
Для Каждого Сообщение Из Выборка Цикл
Для Каждого Вложение Из Сообщение.Вложения Цикл
Если Найти(СокрЛП(Вложение.Имя),".xml")>0 Тогда
Вложение.Данные.Записать(СокрЛП(Константы.ПутьКОтчетамPHP.Получить())+СокрЛП(Сервер.ИмяПапки)+"\XMLТочка_stat.php.xml");
ПрочитатьДанные(); //В этой процедуре идет обработка полученного файла на диске компа
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецПроцедуры
