БСП. Как получить пароль от учетной записи электронной почты.

&НаСервереБезКонтекста
Процедура ПолучитьПарольНаСервере(УчетнаяЗапись, ДляПолучения)
 
 Если Не ЗначениеЗаполнено(УчетнаяЗапись) Тогда
  Возврат;
 КонецЕсли;
 
 Профиль = РаботаСПочтовымиСообщениямиСлужебный.ИнтернетПочтовыйПрофиль(УчетнаяЗапись, ДляПолучения);
 
 Если Профиль = Неопределено Тогда
  Сообщить("Не получилось!");
 КонецЕсли;
 
 СвойстваПрофиля = Новый Структура(
 "POP3ПередSMTP,
 |АдресСервераIMAP,
 |АдресСервераPOP3,
 |АдресСервераSMTP,
 |АутентификацияПоТокену,
 |ИспользоватьSSLIMAP,
 |ИспользоватьSSLPOP3,
 |ИспользоватьSSLSMTP,
 |Пароль,
 |ПарольIMAP,
 |ПарольSMTP,
 |Пользователь,
 |ПользовательIMAP,
 |ПользовательSMTP,
 |ПортIMAP,
 |ПортPOP3,
 |ПортSMTP,
 |Таймаут,
 |ТокенДоступа,
 |ТолькоЗащищеннаяАутентификацияIMAP,
 |ТолькоЗащищеннаяАутентификацияPOP3,
 |ТолькоЗащищеннаяАутентификацияSMTP");
 
 ЗаполнитьЗначенияСвойств(СвойстваПрофиля, Профиль);
 
 Для Каждого КлючЗначение Из СвойстваПрофиля Цикл
  Сообщить(СтрШаблон("%1: %2", КлючЗначение.Ключ, КлючЗначение.Значение));
 КонецЦикла;
 
КонецПроцедуры

Обработка на яндекс.диске