ИнтернетПочта = Новый ИнтернетПочта;
ЗаполнитьПрофиль(Профиль);
Аутентификация = ложь;
Если Аутентификация Тогда
Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.APOP;
Иначе
Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;
КонецЕсли;
Почта = Новый ИнтернетПочта;
Почта.Подключиться(Профиль);
НайденнаяСтрока = Табл_Данных_Почта.Найти(заг.Отправитель.Адрес, "Адрес");
Если НайденнаяСтрока = Неопределено Тогда
// Сообщить("Новых сообщений нет");
Иначе
Если заг.ДатаОтправления > НайденнаяСтрока.ДатаВремя тогда
МасЗ.Добавить(заг);
Конецесли;
КонецЕсли;
КонецЦикла;
// Получим только новые сообщения
Масс = Почта.Выбрать(Ложь,Заголовки);
Иначе
Сообщить("Новых сообщений нет");
Почта.Отключиться();
Возврат;
КонецЕсли;
Для Каждого Письмо Из МасЗ Цикл
Сообщить(Письмо.ДатаОтправления);
КонецЦикла;
(5) В аккаунте почты точно они отмечены как прочитанные?
Если ты не хранишь почту где-то в 1с, то храни хотя бы константу "ДатаПоследнейСинхронизацииПочты" и забирай письма отправленный позже.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший