Как при приеме почты определить не прочитанные письма

Как при приеме почты определить не прочитанные письма
Делаю так, не работает все равно все принимает.

Процедура ПолучитьПочту(Табл_Данных_Почта) Экспорт
Перем Профиль;

ИнтернетПочта = Новый ИнтернетПочта;
ЗаполнитьПрофиль(Профиль);

Аутентификация = ложь;

Если Аутентификация Тогда
Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.APOP;
Иначе
Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;
КонецЕсли;

Почта = Новый ИнтернетПочта;
Почта.Подключиться(Профиль);

ПараметрыОтбораIMAP = Новый Структура;
ПараметрыОтбораIMAP.Вставить("Прочитанные", ложь);
ПараметрыОтбораIMAP.Вставить("Новые", истина);
Заголовки = Почта.ПолучитьЗаголовки(ПараметрыОтбораIMAP);

Сообщить( Заголовки.Количество());

Если Заголовки.Количество() > 0 Тогда

МасЗ = новый Массив;

Для каждого заг Из Заголовки цикл

НайденнаяСтрока = Табл_Данных_Почта.Найти(заг.Отправитель.Адрес, "Адрес");
Если НайденнаяСтрока = Неопределено Тогда
// Сообщить("Новых сообщений нет");
Иначе
Если заг.ДатаОтправления > НайденнаяСтрока.ДатаВремя тогда
МасЗ.Добавить(заг);
Конецесли;
КонецЕсли;
КонецЦикла;

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

Иначе
Сообщить("Новых сообщений нет");

Почта.Отключиться();
Возврат;

КонецЕсли;

Для Каждого Письмо Из МасЗ Цикл
Сообщить(Письмо.ДатаОтправления);
КонецЦикла;

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

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