Отправка по почте

Question

Добрый день. Уважаемые товарищи программисты помогите с решение следующего вопроса. Есть мобильное приложение (на IOS) из него пытаюсь отправить данные по почте, в результате ошибка "Ошибка при вызове метода контекста (Подключится)" хотя из обычной платформы все уходит на ура. может есть еще какие то варианты отправки?

		[1C-CODE]//Ящик = Справочники.УчетныеЗаписиЭлектроннойПочты.УчетнаяЗаписьЭлектроннойПочты;
		Профиль = Новый ИнтернетПочтовыйПрофиль;
		Профиль.АдресСервераSMTP = "smtp.mail.ru";
		Профиль.ПортSMTP =         587;
		Профиль.Пользователь =     "Bot@bk.ru";
		Профиль.Пароль =           "*****************";
		Профиль.АутентификацияSMTP=СпособSMTPАутентификации.Login;                           
		Профиль.ПарольSMTP =       "**************";
		Профиль.ПользовательSMTP = "Bot@bk.ru";
		
		Почта = Новый ИнтернетПочта;
		//Попытка
			Почта.Подключиться(Профиль);
		//Исключение 
		//	Сообщить("Ошибка подключения" + ОписаниеОшибки());
		//	Возврат;
		//КонецПопытки;
		      ТекстСообщения = "Отчет сводно по клиентам с "+НачалоП+" по "+КонецП;
				
		
		Сообщение = Новый ИнтернетПочтовоеСообщение;
		Сообщение.Отправитель = Профиль.Пользователь;
		Сообщение.Получатели.Добавить(АдресПочты);
		Сообщение.Тема = ТекстСообщения;
		Сообщение.Тексты.Добавить(ТелоПисьма,ТипТекстаПочтовогоСообщения.HTML);
		Почта.Послать(Сообщение);
		Почта.Отключиться();[/1C-CODE]

Accepted Answer

Перенаправлять на штаный почтовик [CODE] //Объект.Клиент. #Если МобильноеПриложениеКлиент Тогда //КлиентПочта = ""; Письмо = Новый ИнтернетПочтовоеСообщение; //КлиентПочта = Почта_; //Письмо.Получатели.Добавить(КлиентПочта); МассивНайденных = НайтиФайлы(КаталогДокументов(), "tabel.pdf"); Для Каждого Файл из МассивНайденных Цикл //Сообщить(Файл.Имя); //НовСтрока = Объект.ВложенныеФайлы.Добавить(); ПутьИмяФайла = Файл.ПолноеИмя ; // Обработать найденные файлы. Если не ЗначениеЗаполнено(ПутьИмяФайла) Тогда Продолжить КонецЕсли; рФайл = Новый Файл(СокрЛП(ПутьИмяФайла)); Если Не рФайл.Существует() Тогда Продолжить КонецЕсли; Письмо.Вложения.Добавить(ПутьИмяФайла); КонецЦикла; Текст = " |

Hi! !

|This letter is attached to the tabel.
|End message. |"; //Это письмо с вложенным расчетом Кредита Письмо.Тема = "Data tabel"; Письмо.Тексты.Добавить(Строка(Текст), ТипТекстаПочтовогоСообщения.HTML); Письмо.ОбработатьТексты(); //Письмо.Тексты.Добавить(Строка(ПутьИмяФайла), ТипТекстаПочтовогоСообщения.HTML); СредстваПочты.Послать(Письмо); #КонецЕсли [/CODE]