Запрос=Новый Запрос;
Запрос.Текст=
"ВЫБРАТЬ
| _ИдентификаторыУжеПрочитанныхПисем.Идентификатор
|ИЗ
| РегистрСведений._ИдентификаторыУжеПрочитанныхПисем КАК _ИдентификаторыУжеПрочитанныхПисем
|ГДЕ
| _ИдентификаторыУжеПрочитанныхПисем.Идентификатор В(&МассивИдентификаторов)";
Запрос.УстановитьПараметр("МассивИдентификаторов",МассивИдентификаторов);
Выборка=Запрос.Выполнить().Выбрать();
МассивГодныхИдентификаторов=Новый Массив;
Для Каждого ТекущийИдентификатор ИЗ МассивИдентификаторов Цикл
Выборка.Сбросить();
Если Не Выборка.НайтиСледующий(ТекущийИдентификатор,"Идентификатор") Тогда
МассивГодныхИдентификаторов.Добавить(ТекущийИдентификатор);
КонецЕсли;
КонецЦикла;
Если МассивГодныхИдентификаторов.Количество()=0 Тогда
Сообщить("В почтовом ящике нет входящих сообщений!");
КонецЕсли;
Если МассивГодныхИдентификаторов.Количество() <> 0 Тогда
// Загрузка сообщений в массив
Сообщения = Почта.Выбрать(Ложь,МассивГодныхИдентификаторов);
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший