Получение электронных писем с помощью БСП

    ПараметрыЗагрузкиЗаголовков = Новый Структура;     
    ПараметрыЗагрузкиЗаголовков.Вставить("ПолучениеЗаголовков", Истина);
    ПараметрыЗагрузкиЗаголовков.Вставить("ПриводитьСообщенияКТипу", Ложь);
	ПараметрыОтбораЗаголовков = Новый Структура;
	ПараметрыОтбораЗаголовков.Вставить("ДатаОтправления", ?(ЗначениеЗаполнено(ДатаПолучения),ДатаПолучения,ТекущаяДата()));
    ПараметрыЗагрузкиЗаголовков.Вставить("ПараметрыОтбораЗаголовков", ПараметрыОтбораЗаголовков);
	
	НаборСообщений = РаботаСПочтовымиСообщениями.ЗагрузитьПочтовыеСообщения(УчетнаяЗапись, ПараметрыЗагрузкиЗаголовков);
	Идентификаторы	= Новый Массив;
	Для Каждого Письмо из НаборСообщений Цикл 
		Идентификаторы.Добавить(Письмо.Идентификатор[0]);
	КонецЦикла;
	ПараметрыЗагрузкиЗаголовков = Новый Структура;     
	ПараметрыЗагрузкиЗаголовков.Вставить("ПолучениеЗаголовков", Ложь);
	ПараметрыЗагрузкиЗаголовков.Вставить("ПриводитьСообщенияКТипу", Ложь);
	ПараметрыЗагрузкиЗаголовков.Вставить("ЗаголовкиИдентификаторы", Идентификаторы);
	
	
	НаборСообщений = РаботаСПочтовымиСообщениями.ЗагрузитьПочтовыеСообщения(Письмо.УчетнаяЗапись, ПараметрыЗагрузкиЗаголовков);
	Если ЗначениеЗаполнено(НаборСообщений) Тогда
		Для Каждого Письмо из НаборСообщений Цикл 
			РаботаСПочтовымиСообщениями.СоздатьДокументПочтовоеСообщение(Письмо,УчетнаяЗапись);
		КонецЦикла;
	КонецЕсли;