Добрый день, перестало работать подключение.
Подскажите пож-та в чем проблема.
Заранее спасибо.
{Обработка.ПочтовыйКлиент.Форма.Форма.Форма(145)}: Ошибка при вызове метода контекста (ПолучитьЗаголовки): Данная операция не может быть выполнена, так как адрес POP3 сервера не указан.
Подскажите пож-та в чем проблема.
Заранее спасибо.
{Обработка.ПочтовыйКлиент.Форма.Форма.Форма(145)}: Ошибка при вызове метода контекста (ПолучитьЗаголовки): Данная операция не может быть выполнена, так как адрес POP3 сервера не указан.
&НаКлиенте
Процедура ПолучитьПрофиль()
Профиль = новый ИнтернетПочтовыйПрофиль;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
ПРофиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;
Профиль.Пользователь = "blabla";
Профиль.Пароль = "password*";
Профиль.АдресСервераPOP3 = "pop.yandex.ru";
Профиль.АдресСервераSMTP = "smtp.yandex.ru";
Профиль.ПортSMTP = 465;
Профиль.ПортPOP3 = 995;
Профиль.ИспользоватьSSLPOP3=Истина;
Профиль.ИспользоватьSSLSMTP=Истина;
Попытка
Сообщить("Попытка подключения к серверу почты "+Профиль.АдресСервераPOP3);
Сообщить("Подключение к серверу "+Профиль.АдресСервераPOP3);
ПараметрыОтбораПочты = Новый Структура;
ПараметрыОтбораПочты.Вставить("Прочитанные",Ложь);
Почта = Новый ИнтернетПочта;
Заголовки = Почта.ПолучитьЗаголовки(ПараметрыОтбораПочты);
Почта.Подключиться(Профиль);
МассивСообщений = Новый Массив;
МассивСообщений = Почта.Выбрать(Ложь); // ЛОжь - письма с сервера не удаляются...
Исключение
Сообщить("Ошибка подключения к серверу!");
Сообщить(""+ОписаниеОшибки());
Возврат;
КонецПопытки;
Если МассивСообщений.Количество() = 0 Тогда
Сообщить("Почтовый ящик пуст");
МоиПисьма.Очистить();
Возврат;
КонецЕсли;
МоиПисьма.Очистить();
Если МассивСообщений.Количество() = 0 Тогда
Возврат; // почтовых сообщений нету.
КонецЕсли;
Сообщить("Начало отображения сообщений в обработке");
МассивСообщенийОбмена = новый Массив;
ИмяФайлаСообщения = "";
МоиПисьма.Очистить();
Для Индекс = 0 По МассивСообщений.Количество() - 1 Цикл
стр = МоиПисьма.Добавить();
//стр.ДатаОтправления = МассивСообщений[Индекс].ДатаОтправления;
стр.Заголовок =МассивСообщений[Индекс].Тема;
//стр.Индекс = Индекс;
//стр.КоличествоВложений = МассивСообщений[Индекс].Вложения.Количество();
//стр.КоличествоТекстов = МассивСообщений[Индекс].Тексты.Количество();
//стр.Размер = МассивСообщений[Индекс].Размер;
//стр.Тема = МассивСообщений[Индекс].Тема;
КонецЦикла;
КонецПроцедуры
ПоказатьПо теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1)Может не учли изменений на сервере яндекса
/// Цитата
Включите опцию С сервера pop.yandex.ru по протоколу POP3.
Сохраните изменения.
Для настройки почтовой программы по протоколу POP3 необходимо указать следующие данные:
Входящая почта
адрес почтового сервера — pop.yandex.ru;
защита соединения — SSL;
порт — 995.
Исходящая почта
адрес почтового сервера — smtp.yandex.ru;
защита соединения — SSL;
порт — 465.
Для доступа к почтовому серверу укажите ваш логин и пароль на Яндексе (или пароль приложения, если вы включили двухфакторную аутентификацию). Если вы настраиваете получение почты с ящика вида «login@yandex.ru», логином является часть адреса до знака «@». Если вы используете Яндекс.Почту для домена, в качестве логина необходимо указывать полный адрес почтового ящика.
///Конец цитаты
/// Цитата
Включите опцию С сервера pop.yandex.ru по протоколу POP3.
Сохраните изменения.
Для настройки почтовой программы по протоколу POP3 необходимо указать следующие данные:
Входящая почта
адрес почтового сервера — pop.yandex.ru;
защита соединения — SSL;
порт — 995.
Исходящая почта
адрес почтового сервера — smtp.yandex.ru;
защита соединения — SSL;
порт — 465.
Для доступа к почтовому серверу укажите ваш логин и пароль на Яндексе (или пароль приложения, если вы включили двухфакторную аутентификацию). Если вы настраиваете получение почты с ящика вида «login@yandex.ru», логином является часть адреса до знака «@». Если вы используете Яндекс.Почту для домена, в качестве логина необходимо указывать полный адрес почтового ящика.
///Конец цитаты
(5)Сейчас ошибки нет с подключением.
Сейчас сеанс виснет при чтении массива писем, хотя я указал в структуре показать только новые письма.
Сейчас сеанс виснет при чтении массива писем, хотя я указал в структуре показать только новые письма.
Попытка
Сообщить("Попытка подключения к серверу почты "+Профиль.АдресСервераPOP3);
Состояние("Подключение к серверу "+Профиль.АдресСервераPOP3);
Почта = Новый ИнтернетПочта;
Почта.Подключиться(Профиль);
Сообщить("Ура");
ПараметрыОтбораЗаголовков = Новый Структура;
ПараметрыОтбораЗаголовков.Вставить("Seen",Ложь);
Заголовки = Почта.ПолучитьЗаголовки(ПараметрыОтбораЗаголовков);
МассивСообщений = Новый Массив;
МассивСообщений = Почта.Выбрать(Ложь,Заголовки,Истина);
Сообщить(МассивСообщений.Количество());
Исключение
Сообщить("Ошибка подключения к серверу!");
Сообщить(""+ОписаниеОшибки());
Возврат;
КонецПопытки;
Почта.Отключиться();
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот