1С 8.2 УП : Отправка sms из 1C через МТС Коммуникатор

 Если ПустаяСтрока(ТелефонКлиента) Тогда

		Сообщить("Не определен телефон экспедитора загрузки");

		Предупреждение("СМС не может быть отправлено");

	Иначе

		

		Адресат = ТелефонКлиента;

		Адресат = СтрЗаменить(СтрЗаменить(Адресат, "(", ""), ")", "");

		Адресат = СтрЗаменить(СтрЗаменить(СтрЗаменить(Адресат, ".", ""), "-", ""), " ", "");

		Адресат = СтрЗаменить(Адресат, "+", "");

		

		WinHttp = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");

		WinHttp.Option(2, "Windows-1251");

		WinHttp.Open("POST", "http://mtscommunicator.ru/m2m/m2m_api.asmx/SendMessage", 0);



		WinHttp.SetRequestHeader("Accept-Language", "ru");

		WinHttp.SetRequestHeader("Accept-Charset","Windows-1251");

		WinHttp.setRequestHeader("Content-Language", "ru");

		WinHttp.setRequestHeader("Content-Charset", "Windows-1251");

		WinHttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded");



		ПараметрыPOST = "msid=" + Адресат + "&message=" + ПодготовитьСообщение(ТекстСМС) + "&naming=USER&login=NUMERLOGIN&password=PASSWORD";



		Ошибка = Ложь;

		ИДСообщения = "";

		

		Попытка

			

			WinHttp.Send(ПараметрыPOST);



			ИмяФайлаЗапроса = ПолучитьИмяВременногоФайла();



			Текст = Новый ЗаписьТекста(ИмяФайлаЗапроса, КодировкаТекста.UTF8);

			Текст.ЗаписатьСтроку(WinHttp.ResponseText());

			Текст.Закрыть();

		

			Ошибка = (WinHttp.Status <> 200);

			

		Исключение

			Ошибка = Истина;

		КонецПопытки;

		

		Если НЕ Ошибка Тогда 

			

			Попытка

				

				XMLОтвет = Новый ЧтениеXML;

				XMLОтвет.ОткрытьФайл(ИмяФайлаЗапроса);	

				

				Пока XMLОтвет.Прочитать() Цикл

					Если XMLОтвет.ТипУзла = ТипУзлаXML.НачалоЭлемента И (XMLОтвет.Имя = "long")  Тогда

						XMLОтвет.Прочитать();

						ИДСообщения = XMLОтвет.Значение;

						Прервать;

					КонецЕсли;

				КонецЦикла;		

				

			Исключение

				Ошибка = Истина;

			КонецПопытки;

			

		КонецЕсли;

		

		Если Ошибка Тогда 

			Сообщить("Не удалось отправить СМС. Проверьте настройки подключения");

			Предупреждение("СМС не было отправлено");

		Иначе

	

			ПоказатьОповещениеПользователя("Отправка СМС",, "СМС-сообщение отправлено ", БиблиотекаКартинок.СМС);

			

		КонецЕсли;

КонецЕсли;



//Преобразование текста сообщения

Функция ПодготовитьСообщение(Сообщение)

	

	ВрСообщение = "";

	

	Для ТекСимвол = 1 По СтрДлина(Сообщение) Цикл

		Если КодСимвола(Сред(Сообщение, ТекСимвол, 1)) = 10 Тогда

			ВрСообщение = ВрСообщение + " ";

		Иначе

			ВрСообщение = ВрСообщение + Сред(Сообщение, ТекСимвол, 1);

		КонецЕсли;

	КонецЦикла;

	

	Сообщение = ВрСообщение;

	Сообщение = СтрЗаменить(Сообщение, "%", "%25");

	Сообщение = СтрЗаменить(Сообщение, " ", "%20");

	Сообщение = СтрЗаменить(Сообщение, "&", "%26");

	Сообщение = СтрЗаменить(Сообщение, "#", "%23");

	Сообщение = СтрЗаменить(Сообщение, "*", "%2A");

	Сообщение = СтрЗаменить(Сообщение, "|", "%7C");

	Сообщение = СтрЗаменить(Сообщение, "\", "%5C");

	Сообщение = СтрЗаменить(Сообщение, "/", "%2F");

	Сообщение = СтрЗаменить(Сообщение, "?", "%3F");

	Сообщение = СтрЗаменить(Сообщение, "^", "%5E");

	

	Возврат Сообщение;

	

КонецФункции