Загрузка данных

Процедура ПодготовитьТекстПисьмаИСтруктуруКартинок( ТекущийОбъект, ТекстПисьма, СтруктураКартинок ) Экспорт
	
	Если ТекущийОбъект.ТипТекста = Перечисления.ИТ_ТипыТекстаПисьма.HTML Тогда
		
		ТекстПисьма = ТекущийОбъект.ТекстHTML;
		
	Иначе
		
		ТекстПисьма =ИТ_РаботаСHTMLСервер.ВернутьТекстВФорматеHTMLБезУчетаСсылок(ТекущийОбъект.Текст);
		
	КонецЕсли;
	
	
	СтруктураКартинок = ТекущийОбъект.СтруктураКартинок.Получить();
	Если СтруктураКартинок = Неопределено Тогда
		
		СтруктураКартинок = Новый Структура;
		
	Иначе
		
		ЕстьЗаполненныйПараметрСистемы = Ложь;
		Путь = "";
		
		Если ПолучениеЗначенийСервер.ПолучитьПараметр("ИТ_ХранениеКартинокВходящейПочтыОтдельноОтИБ") =  ИСТИНА  Тогда
			
			Путь = ПолучениеЗначенийСервер.ПолучитьПараметр("ИТ_ПутьККартинкамВходящейПочты");
			
			Если Не ПустаяСтрока(Путь) Тогда
				
				ЕстьЗаполненныйПараметрСистемы = Истина;
				
			КонецЕсли;
			
		КонецЕсли;
		
		Для Каждого Пара Из СтруктураКартинок Цикл
			
			Если ТипЗнч( Пара.Значение.Картинка ) = Тип("Строка") Тогда
				
				Если ЕстьЗаполненныйПараметрСистемы Тогда                
					
					НачалоИмени = СтрНайти(Пара.Значение.Картинка, "_");
					ИмяКартинки = Прав(Пара.Значение.Картинка, СтрДлина(Пара.Значение.Картинка) - НачалоИмени);
					ИмяПолное = ПрикрепленныеФайлыСервер.ПолучитьИмяФайла(Путь, ПрикрепленныеФайлыСервер.ПолучитьСкрытоеНазвание(ИмяКартинки, ИмяКартинки, Пара.Значение.Картинка, Истина, Ложь));
					
					Файл = Новый Файл(ИмяПолное);
					Если Файл.Существует() Тогда
						
						Пара.Значение.Картинка = Новый Картинка( Новый ДвоичныеДанные(ИмяПолное) );
						
					Иначе
						
						Пара.Значение.Картинка = Новый Картинка();
						
					КонецЕсли;
					
				Иначе
					
					Пара.Значение.Картинка = Новый Картинка();
					
				КонецЕсли;
				
			КонецЕсли;
			
		КонецЦикла;
		
	КонецЕсли;
	
КонецПроцедуры