Почтовый клиент

Вот код, который читает почту и сохраняет вложения, да еще распаковывает запароленные архивы. При успехе - удаляет.
Конструктивная критика и предложения приветствуются.

// Шаблон имени файла обмена - Discounts_XX_YY,
// где XX - код узла обмена отправителя,
// YY - код узла обмена получателя

Процедура ЗаписатьСообщениеСИзменениями() Экспорт

// Проверка, есть ли данные для обмена
ЕстьНовые = Ложь;
ВыборкаДанных = ПланыОбмена.ВыбратьИзменения(Ссылка, НомерОтправленного+1);
Пока ВыборкаДанных.Следующий() Цикл
ЕстьНовые = Истина;
Прервать;
КонецЦикла;

Если НЕ ЕстьНовые Тогда
Возврат;
КонецЕсли;

РасширениеZIP = ".zip";
РасширениеXML = ".xml";

// Создаём временный файл по маске XX_Discounts.xml, где XX - код текущего филиала
Каталог = КаталогВременныхФайлов() + Константы.КодБД.Получить();
СоздатьКаталог(Каталог);
ПутьФайла = Каталог + ?(Прав(Каталог, 1) = "\", "", "\");
ИмяФайла = "Discounts_"
+ СокрП(ПланыОбмена.Филиалы.ЭтотУзел().Код)
+ "_"
+ СокрЛП(Ссылка.Код);

// Запись XML
ЗаписьХМЛ = Новый ЗаписьXML;
ЗаписьХМЛ.ОткрытьФайл(ПутьФайла + ИмяФайла + РасширениеXML);
ЗаписьХМЛ.ЗаписатьОбъявлениеXML();

// Инфраструктура сообщений
ЗаписьСообщения = ПланыОбмена.СоздатьЗаписьСообщения();
ЗаписьСообщения.НачатьЗапись(ЗаписьХМЛ, Ссылка);

// Получить выборку измененных данных
ВыборкаИзменения = ПланыОбмена.ВыбратьИзменения(ЗаписьСообщения.Получатель, ЗаписьСообщения.НомерСообщения);
Пока ВыборкаИзменения.Следующий() Цикл
ЗаписатьXML(ЗаписьХМЛ, ВыборкаИзменения.Получить());
КонецЦикла;

// Закрытие объектов
ЗаписьСообщения.ЗакончитьЗапись();
ЗаписьХМЛ.Закрыть();

ЗаписьХМЛ = Неопределено;

// Архивируем
ФайлАрхива = Новый ЗаписьZipФайла(ПутьФайла + ИмяФайла + РасширениеZIP, "Discounts",,
МетодСжатияZIP.Сжатие, УровеньСжатияZIP.Максимальный);
ФайлАрхива.Добавить(ПутьФайла + ИмяФайла + РасширениеXML, РежимСохраненияПутейZIP.СохранятьОтносительныеПути);
ФайлАрхива.Записать();
ФайлАрхива = Неопределено;

// Отправляем как вложение на почту
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Тексты.Добавить("Обмен =" + ПланыОбмена.Филиалы.ЭтотУзел().Наименование
+ "= с =" + Ссылка.Наименование + "=");
Сообщение.Отправитель = Константы.ПочтаПользовательSMTP.Получить();
Сообщение.Тема = Имяфайла + РасширениеXML;
Сообщение.Получатели.Добавить(Константы.ПочтаПользовательSMTP.Получить());
Сообщение.Вложения.Добавить(Новый ДвоичныеДанные(ПутьФайла + ИмяФайла + РасширениеZIP), ИмяФайла + РасширениеZIP);

ПрофильПочты = Новый ИнтернетПочтовыйПрофиль;
ПрофильПочты.АдресСервераSMTP = Константы.ПочтаАдресСервераSMTP.Получить();
ПрофильПочты.ПортSMTP = Константы.ПочтаПортSMTP.Получить();
ПрофильПочты.АдресСервераPOP3 = Константы.ПочтаАдресСервераPOP3.Получить();
ПрофильПочты.ПортPOP3 = Константы.ПочтаПортPOP3.Получить();
ПрофильПочты.Пароль = Константы.ПочтаПароль.Получить();
ПрофильПочты.ПарольSMTP = Константы.ПочтаПарольSMTP.Получить();
ПрофильПочты.Пользователь = Константы.ПочтаПользователь.Получить();
ПрофильПочты.ПользовательSMTP = Константы.ПочтаПользовательSMTP.Получить();
ПрофильПочты.ВремяОжидания = Константы.ПочтаВремяОжидания.Получить();

Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(ПрофильПочты);
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;

Попытка
Почта.ПолучитьЗаголовки();
Исключение
Возврат;
КонецПопытки;

Попытка
//Пытаемся послать письмо
Почта.Послать(Сообщение);
Исключение
Сообщить(ОписаниеОшибки());
Почта.Отключиться();
Возврат;
КонецПопытки;

//отключение
Почта.Отключиться();

КонецПроцедуры

Процедура ПрочитатьСообщениеСИзменениями() Экспорт

РасширениеZIP = ".zip";
РасширениеXML = ".xml";

// Имя временного файла
Каталог = КаталогВременныхФайлов() + Константы.КодБД.Получить();
СоздатьКаталог(Каталог);
ПутьФайла = Каталог + ?(Прав(Каталог, 1) = "\", "", "\");
ИмяФайла = "Discounts_" + СокрЛП(Ссылка.Код) + "_" + СокрП(ПланыОбмена.Филиалы.ЭтотУзел().Код);

// Читаем почту и загружаем файл
ПрофильПочты = Новый ИнтернетПочтовыйПрофиль;
ПрофильПочты.АдресСервераPOP3 = Константы.ПочтаАдресСервераPOP3.Получить();
ПрофильПочты.ПортSMTP = Константы.ПочтаПортSMTP.Получить();
ПрофильПочты.ПользовательSMTP = Константы.ПочтаПользовательSMTP.Получить();
ПрофильПочты.ПарольSMTP = Константы.ПочтаПарольSMTP.Получить();
ПрофильПочты.АдресСервераSMTP = Константы.ПочтаАдресСервераSMTP.Получить();
ПрофильПочты.ПортPOP3 = Константы.ПочтаПортPOP3.Получить();
ПрофильПочты.Пользователь = Константы.ПочтаПользователь.Получить();
ПрофильПочты.Пароль = Константы.ПочтаПароль.Получить();
ПрофильПочты.ВремяОжидания = Константы.ПочтаВремяОжидания.Получить();

Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(ПрофильПочты);
Исключение
//Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;

Попытка
Заголовки = Почта.ПолучитьЗаголовки();
Исключение
//Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;

//Если Заголовки.Количество() = 0 Тогда
// //ОбщегоНазначения.СообщитьИнформацию("В почтовом ящике нет входящих сообщений!");
// Возврат;
//КонецЕсли;

// Загрузка сообщений в массив, сначала только загрузка, после импорта удалим
Сообщения = Почта.Выбрать(Ложь, Заголовки); // Ложь чтобы оставались письма в ящике

КоличествоПисем = Сообщения.Количество()-1;
Для Индекс = 0 По КоличествоПисем Цикл

Сообщение = Сообщения[Индекс];
// ВЛ - 2012-06-10 - Переделал, чтобы обработанные письма удалялись из ящика.
//// Пропустим только почту за последние 3 дня
//ГлубинаПроверки = Константы.ПочтаГлубинаПроверки.Получить();
//Если НачалоДня(ТекущаяДата()) - НачалоДня(Сообщение.ДатаОтправления) > ГлубинаПроверки * 60*60*24 Тогда
// Продолжить;
//КонецЕсли;

// Отсев ненужных писем по теме сообщения
Если Сообщение.Тема <> ИмяФайла + РасширениеXML Тогда
Продолжить;
КонецЕсли;

// Читаем вложения каждого письма и сверяем с ожидаемым именем для этого узла обмена
Для каждого Вложение Из Сообщение.Вложения Цикл

Если Вложение.ИмяФайла <> ИмяФайла + РасширениеZIP Тогда
Продолжить;
КонецЕсли;

ИмяФайлаВложения = ПутьФайла + ИмяФайла + РасширениеZIP;
ДанныеОбмена = Вложение.Данные;
ДанныеОбмена.Записать(ИмяФайлаВложения);

// Распакуем выгруженный ZIP-архив
ФайлАрхива = Новый ЧтениеZIPФайла(ИмяФайлаВложения, "Discounts");
ФайлАрхива.ИзвлечьВсе(ПутьФайла, РежимВосстановленияПутейФайловZIP.Восстанавливать);
ФайлАрхива.Закрыть();

// Работаем с полученным файлом обмена
ИмяФайлаОбмена = ПутьФайла + ИмяФайла + РасширениеXML;
Файл = Новый Файл(ИмяФайлаОбмена);
Если НЕ Файл.Существует() Тогда
Возврат;
КонецЕсли;

// Чтение документов XML
ЧтениеХМЛ = Новый ЧтениеXML;
Попытка
ЧтениеХМЛ.ОткрытьФайл(ИмяФайлаОбмена);
Исключение
ОбщегоНазначения.СообщитьОбОшибке("" + ТекущаяДата() + " -- " + ОписаниеОшибки());
Продолжить;
КонецПопытки;

// Чтение файла
ЧтениеСообщения = ПланыОбмена.СоздатьЧтениеСообщения();
Попытка
ЧтениеСообщения.НачатьЧтение(ЧтениеХМЛ);
Исключение
ТекстОшибки = "" + ТекущаяДата() + " -- " + ОписаниеОшибки();
ОбщегоНазначения.СообщитьОбОшибке(ТекстОшибки);

// Проверка текста ошибки
Если Найти(ТекстОшибки, "Номер сообщения меньше или равен номеру ранее принятого сообщения") > 0 Тогда

// Это сообщение загрузили раньше, но по какой-то причине не удалили
УдалитьСообщение(Почта, Сообщения, Индекс);

// Закрытие объектов
ЧтениеСообщения.ЗакончитьЧтение();
ЧтениеХМЛ.Закрыть();
УдалитьФайлы(ИмяФайлаОбмена);
УдалитьФайлы(ИмяФайлаВложения);
Продолжить;
//Иначе
// Возврат;
КонецЕсли;

КонецПопытки;

// Сообщение не предназначено для этого узла
Если ЧтениеСообщения.Отправитель <> Ссылка Тогда
ВызватьИсключение "Неверный узел";
КонецЕсли;

// Читаем данные из сообщения ХМЛ сериализации
Пока ВозможностьЧтенияXML(ЧтениеХМЛ) Цикл

// Удаляем регистрацию изменений для узла отправителя сообщения
ПланыОбмена.УдалитьРегистрациюИзменений(ЧтениеСообщения.Отправитель, ЧтениеСообщения.НомерПринятого);
Данные = ПрочитатьXML(ЧтениеХМЛ);

// Записать полученные данные
Попытка
Данные.ОбменДанными.Отправитель = ЧтениеСообщения.Отправитель;
Данные.ОбменДанными.Загрузка = Истина;
Данные.Записать();
Исключение
ОбщегоНазначения.СообщитьОбОшибке("" + ТекущаяДата() + " -- " + ОписаниеОшибки());
Возврат;
КонецПопытки;

КонецЦикла;

// Закрытие объектов
ЧтениеСообщения.ЗакончитьЧтение();
ЧтениеХМЛ.Закрыть();
УдалитьФайлы(ИмяФайлаОбмена);
УдалитьФайлы(ИмяФайлаВложения);

УдалитьСообщение(Почта, Сообщения, Индекс);

КонецЦикла; // Чтение почтовых вложений

КонецЦикла; // Чтение почтовых сообщений

Почта.Отключиться(); // todo: будет ли читаться СМТП после отключения ПОП3?

КонецПроцедуры

Процедура УдалитьСообщение(Почта, Сообщения, Индекс);