Пример кода для почты @bk.ru
&НаСервере
Процедура ПрочитатьПисьмаНаСервере()
Аккаунт = Новый ИнтернетПочтовыйПрофиль;
Аккаунт.АдресСервераPOP3 = "pop.mail.ru";
Аккаунт.Пользователь = "vashapochta@bk.ru";
Аккаунт.Пароль = "vashparol";
Аккаунт.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;
Попытка
Email = Новый ИнтернетПочта;
Email.Подключиться(Аккаунт);
МассивВходящихПисем = Новый Массив;
МассивВходящихПисем = Email.Выбрать(Ложь);
// Почта.Выбрать имеет 3 параметра
// 1 параметр: Булево - Истина - удалить сообщение после прочтение, ложь - не удалять
// 3 параметр: Булево - Истина - отметить сообщение как прочитанной, ложь - оставить как есть
Для каждого Письмо Из МассивВходящихПисем Цикл
Сообщить("Тема: " + Письмо.Тема + "Текст: " + Письмо.Тексты[0].Текст);
КонецЦикла;
Исключение
Сообщить("Не удалось подключиться к личному кабинету, проверьте имя пользователя и пароль");
Возврат;
КонецПопытки;
КонецПроцедуры
Оставить комментарий