Обмен данными с сервисом email и SMS рассылок unisender

Функция ОтправитьПисьмо(ТелоПисьма,api_key, Отправитель, EmailОтправителя, Кому, СписокРассылки="", ТекстОтвета) Экспорт
	СтруктураОтвета=Новый Структура;
	Уник =СТрока(новый УникальныйИдентификатор());
	Ошибка="";
	 ИдРассылки = "";
	Если ПустаяСтрока(Ошибка) Тогда 
		Ресурс = "/sendEmail?format=json";
		//ТелоПисьма=ПараметрыПисьма.Тело;
		
		attachments="";
		
		НомерВложения = 0;
		//Для Каждого СтрокаТаблицы Из ПараметрыПисьма.Вложения Цикл 
		//	НомерВложения = НомерВложения + 1;
		//	ИмяВложения = СтрЗаменить(СтрокаТаблицы.Ключ, "_", "");
		//	ИмяВременногоФайла = КаталогВременныхФайлов()+ИмяВложения;
		//	Если ТипЗнч(СтрокаТаблицы.Значение) = Тип("ДвоичныеДанные") Тогда
		//		СтрокаТаблицы.Значение.Записать(ИмяВременногоФайла);
		//	ИначеЕсли ТипЗнч(СтрокаТаблицы.Значение) = Тип("Структура") Тогда
		//		СтрокаТаблицы.Значение.ДвоичныеДанные.Записать(ИмяВременногоФайла);
		//	КонецЕсли;
		//	Текст = Новый ТекстовыйДокумент();
		//	Текст.Прочитать(ИмяВременногоФайла, "ISO-8859-1", Символы.ПС);
		//	Стр = Текст.ПолучитьТекст();
		//	attachments=attachments+"&attachments["+ИмяВложения+"]="+КодироватьСтроку(Стр, СпособКодированияСтроки.КодировкаURL, "ISO-8859-1");
		//	Если ТипЗнч(СтрокаТаблицы.Значение) = Тип("Структура") И СтрНайти(ТелоПисьма, "src=""cid:"+СтрокаТаблицы.Значение.Идентификатор) > 0 Тогда
		//		ТелоПисьма = СтрЗаменить(ТелоПисьма, "src=""cid:"+СтрокаТаблицы.Значение.Идентификатор, "src="""+Строка(НомерВложения)+"_"+ИмяВложения);
		//	КонецЕсли;
		//КонецЦикла;
		
		ТелоПисьма=КодироватьСтроку(ТелоПисьма, СпособКодированияСтроки.КодировкаURL);

		АдресЭлектроннойПочты = "&email=" + КодироватьСтроку(Кому, СпособКодированияСтроки.КодировкаURL);
		//Для Каждого СтрокаТаблицы Из ПараметрыПисьма.Кому Цикл 
		//	АдресЭлектроннойПочты=АдресЭлектроннойПочты+"&email[]="+ + СтрокаТаблицы.Адрес;
		//	// АдресЭлектроннойПочты="&email=" + СтрокаТаблицы.Адрес;
		//КонецЦикла;
		
		СтрокаЗапроса="&api_key="+api_key
		                +"&platform=1c_UT_Zapovednik"
		                +"&track_read=1"
						//+"&ref_key[]="+УНИК
						+"&track_links=1"
						+"&attach_multi=0"
						+АдресЭлектроннойПочты
						+"&sender_name="+?(ЗначениеЗаполнено(Отправитель), Отправитель, EmailОтправителя)
						+"&sender_email="+EmailОтправителя
						+"&list_id="+СписокРассылки
						+?(ПустаяСтрока(ИдРассылки),"","&user_campaign_id="+ИдРассылки)
						+"&subject="+КодироватьСтроку("ТЕСТ", СпособКодированияСтроки.КодировкаURL)
						+"&body="+ТелоПисьма
						+attachments
						;
		СтруктураОтвета=ПолучитьЗначениеИзОтветаJSON(ВыполнитьЗапрос(СтрокаЗапроса,Ресурс));
	Иначе 
		СтруктураОтвета.Вставить("error",Ошибка);
	КонецЕсли;
	
	Значение="";
	Если СтруктураОтвета.Свойство("error") Тогда
		ТекстОтвета = СтруктураОтвета.error;
		Возврат Неопределено;
	ИначеЕсли СтруктураОтвета.Свойство("warnings",Значение) Тогда
		Для каждого Предупреждение из Значение Цикл
			ТекстОтвета = ТекстОтвета+?(ЗначениеЗаполнено(ТекстОтвета), Символы.ПС, "") + Предупреждение.warning;
		КонецЦикла;
		Если СтрНайти(ТекстОтвета, "SZ150219-06")>0 Тогда
			//МассивАдресов = Новый Массив;
			//Для Каждого СтрокаТаблицы Из ПараметрыПисьма.Кому Цикл 
			//	МассивАдресов.Добавить(СтрокаТаблицы.Адрес);
			//КонецЦикла;
			////СоответствиеАдресов = НайтиАдресаЭлектроннойПочтыВКонтактнойИнформации(МассивАдресов);
			////Для каждого ОбъектКИ из СоответствиеАдресов Цикл
			////	Если ЗначениеЗаполнено(ОбъектКИ.Значение) Тогда
			////		Объект = ОбъектКИ.Значение.ПолучитьОбъект();
			////		Объект.CRM_ОтписалсяОтEmailРассылок = Истина;
			////		Объект.Записать();
			////	КонецЕсли;
			////КонецЦикла;
			Возврат "Отписался";
		КонецЕсли;
		Возврат Неопределено;
	ИначеЕсли СтруктураОтвета.Свойство("result",Значение) Тогда
		//Если Значение.Количество()>0 Тогда
		//	Возврат Значение[0].id;
		//Иначе
		//	Возврат Неопределено;
		//КонецЕсли;
	КонецЕсли;
	
КонецФункции

Функция ПолучитьЗначениеИзОтветаJSON(ФайлРезультата, ПрочитатьВСоответствие=Ложь)Экспорт 
	ЧтениеJSON=Новый ЧтениеJSON;
	// ЧтениеJSON.УстановитьСтроку(ТекстJSON);
	ЧтениеJSON.ОткрытьФайл(ФайлРезультата);
	Значение=ПрочитатьJSON(ЧтениеJSON, ПрочитатьВСоответствие);
	ЧтениеJSON.Закрыть();
    УдалитьФайлы(ФайлРезультата);
	Возврат Значение
КонецФункции

Функция ВыполнитьЗапрос(СтрокаЗапроса,Ресурс) 
	
	Сервер = "api.unisender.com/ru/api";
	
	HTTP =  Новый HTTPСоединение(Сервер,,,,,,Новый ЗащищенноеСоединениеOpenSSL);
	
	ЗаголовокHTTP = Новый Соответствие();
    ЗаголовокHTTP.Вставить("Content-Type", "application/x-www-form-urlencoded");
    ЗаголовокHTTP.Вставить("Accept-Language", "ru");
    ЗаголовокHTTP.Вставить("Accept-Charset", "utf-8");
    ЗаголовокHTTP.Вставить("Content-Language", "ru");
    ЗаголовокHTTP.Вставить("Content-Charset", "utf-8");
	HTTPЗапрос		= Новый HTTPЗапрос(Ресурс,ЗаголовокHTTP);
	HTTPЗапрос.УстановитьТелоИзСтроки(СтрокаЗапроса,"UTF-8",ИспользованиеByteOrderMark.НеИспользовать);
	
	ФайлРезультата = ПолучитьИмяВременногоФайла();
	HTTP.ОтправитьДляОбработки(HTTPЗапрос, ФайлРезультата);
	
	Возврат ФайлРезультата;
	
КонецФункции

Для Каждого СтрокаТаблицы Из ПрикрепленныеФайлы Цикл 
			
	ФайлВложения=ПолучитьИзВременногоХранилища(СтрокаТаблицы.Файл);
	ИмяВременногоФайла = КаталогВременныхФайлов()+СтрокаТаблицы.Имя;	
	ФайлВложения.Записать(ИмяВременногоФайла);
			
	Текст = Новый ТекстовыйДокумент();
	Текст.Прочитать(ИмяВременногоФайла, "ISO-8859-1", Символы.ПС);
			
	Стр = Текст.ПолучитьТекст();
	attachments=attachments+"&attachments["+ИмяВложения+"]="+КодироватьСтроку(Стр, 
           СпособКодированияСтроки.КодировкаURL, "ISO-8859-1");
			
КонецЦикла;