v8.3: Как подключаться к почте через IMAP?

 Функция ПолучитьПрофиль()



Профиль = Новый ИнтернетПочтовыйПрофиль;

Профиль.АдресСервераIMAP = "mail.ttt.ru";

Профиль.ПарольIMAP = "yrTedjs";

Профиль.ПользовательIMAP = "pol@ttt.ru";

Профиль.ПортIMAP = "143"; 

Профиль.Пароль = "yrTedjs";

Профиль.Пользователь = "pol@ttt.ru";

Профиль.ВремяОжидания = 50;



Возврат Профиль;



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



&НаСервере

Процедура ПолучитьПочту()

Почта = Новый ИнтернетПочта;

   

   Попытка

     Почта.Подключиться(ПолучитьПрофиль());

   Исключение

     Сообщить(ОписаниеОшибки());

     Возврат;

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



Заголовки = Почта.ПолучитьЗаголовки();



КонецПроцедуры