Отправка и получение почты на мобильном приложении
Доброе время суток. У меня возникла проблема при отправке и получении почты со смартфона. Ситуация такая: На платформе 8.3.5.* написана конфигурация, которая при отработке в толстом клиенте отрабатывает на ура, но как только стоило перенести ее на мобильное платформу, то возникли ошибки при получении/отправке почты.
Перепробовал массу вариантов. Самое печальное что свойство ИспользоватьSSLPOP3 доступно только на сервере, но не на мобильное-приложение сервер.
Почта = Новый ИнтернетПочта;
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераPOP3 = Константы.АдресСервераPOP3.Получить();
Профиль.Пользователь = Константы.ЭлектронныйАдресАгента.Получить();
Профиль.Пароль = Константы.ПарольОтЭлектронногоАдресаАгента.Получить();
Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;
Профиль.ПортPOP3 = 995;
Попытка
Почта.Подключиться(Профиль);
МассивСообщений = Новый Массив;
МассивСообщений = Почта.Выбрать(Ложь);
Исключение
Сообщить("Ошибка подключения к серверу.",СтатусСообщения.ОченьВажное);
Сообщить(""+ОписаниеОшибки());
Почта.Отключиться();
Возврат Ложь;
КонецПопытки;
ПоказатьПерепробовал массу вариантов. Самое печальное что свойство ИспользоватьSSLPOP3 доступно только на сервере, но не на мобильное-приложение сервер.
Ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Ну обычно для этих целей использую веб или хттп сервисы.
А вообще - почту отправлять так:
Если СредстваПочты.ПоддерживаетсяОтправка() Тогда
А вообще - почту отправлять так:
Если СредстваПочты.ПоддерживаетсяОтправка() Тогда
Письмо = Новый ИнтернетПочтовоеСообщение;
СтрокаПолучатели = СтрЗаменить(Получатели, ",", Символы.ПС);
Для Счетчик=1 По СтрЧислоСтрок(СтрокаПолучатели) Цикл
Письмо.Получатели.Добавить(СокрЛП(СтрПолучитьСтроку(СтрокаПолучатели, Счетчик)));
КонецЦикла;
Письмо.Тексты.Добавить(ТекстСообщения);
Письмо.Тема = ТемаСообщения;
Если Документ.Пустая() Тогда
Письмо.Вложения.Добавить(ПолучитьАдресФайла(),"Картинка");
Иначе
ИмяДока = СтрЗаменить(Документ,":","_");
ИмяДока = СтрЗаменить(ИмяДока,".","_");
АдресФайла = КаталогВременныхФайлов() + ИмяДока + ".mxl";
Сообщить(АдресФайла);
ОтправитьСообщениеФрагмент(АдресФайла);
Письмо.Вложения.Добавить(АдресФайла,Строка(Документ));
КонецЕсли;
Для каждого Эл Из ТаблицаВложений Цикл
Письмо.Вложения.Добавить(Эл.ПутьКФайлу);
КонецЦикла;
СредстваПочты.Послать(Письмо,ОбработкаТекстаИнтернетПочтовогоСообщения.Обрабатывать); Показать
(10) заморочился и настроил чтение файлов через API, через OAuth авторизацию на ЯндексДиске. Хотел получить xml файл для дальнейшего обновления информационной базы мобильного приложения. Но выходит "ошибка работы с Интернет: внутренняя ошибка сервера (500)", ошибка при выполнении файловой операции "https://downloader.disk.yandex.ru/....". Возможно, не удаётся зайти или ещё что-то. Буду разбираться. Попробую пока вариант (11).