Как получить пароль от системной учётной записи электронной почты?

[vovkalenka]

Здравствуйте!
Раньше профиль для отправки почты из учётки, сохранённой в 1С, готовился так:

Код Выделить Развернуть


СистемнаяУчётнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты;
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = СистемнаяУчётнаяЗапись.СерверИсходящейПочты;
Профиль.ПортSMTP = СистемнаяУчётнаяЗапись.ПортСервераИсходящейПочты;
Профиль.ПользовательSMTP =  СистемнаяУчётнаяЗапись.ПользовательSMTP;
Профиль.ПарольSMTP = СистемнаяУчётнаяЗапись.ПарольSMTP;
Сейчас реквизиты Пароль и ПарольSMTP справочника учётных записей электронной почты не используются, у них появилась приставка "Удалить".

Подскажите, а как теперь в профиль передавать сохранённый пароль, и откуда его брать?

[Oscar]

Добрый вечер.
У Вас получилось разобраться?

[Chgdz]

Добрый вечер.
У Вас получилось разобраться?

если как из коды подключаться и отсылать, то вот так у меня работает:
СУ = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты;   
       Письмо = Новый ИнтернетПочтовоеСообщение;
       Письмо.ИмяОтправителя = ПараметрыСеанса.ТекущийПользователь.ПолноеНаименование();
       Письмо.Отправитель = СУ.АдресЭлектроннойПочты;
       Получатель = Письмо.Получатели.Добавить();
       Получатель.Адрес = "почта кому отправляем";
       Письмо.Тема =  "ваша тема";
      Текст = Письмо.Тексты.Добавить("ваш текст письма");
      Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
      
    ПрофильОтправки = Новый ИнтернетПочтовыйПрофиль;
    ПрофильОтправки.АдресСервераSMTP = СУ.СерверИсходящейПочты;
    ПрофильОтправки.ПортSMTP =  СУ.ПортСервераИсходящейПочты;
   ПрофильОтправки.ИспользоватьSSLSMTP = Истина;
   
    ПрофильОтправки.ПользовательSMTP   = СУ.ПользовательSMTP;
    ПрофильОтправки.ПарольSMTP         = "ваш пароль";

[Oscar]

Добрый вечер.
У Вас получилось разобраться?

если как из коды подключаться и отсылать, то вот так у меня работает:
СУ = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты;   
       Письмо = Новый ИнтернетПочтовоеСообщение;
       Письмо.ИмяОтправителя = ПараметрыСеанса.ТекущийПользователь.ПолноеНаименование();
       Письмо.Отправитель = СУ.АдресЭлектроннойПочты;
       Получатель = Письмо.Получатели.Добавить();
       Получатель.Адрес = "почта кому отправляем";
       Письмо.Тема =  "ваша тема";
      Текст = Письмо.Тексты.Добавить("ваш текст письма");
      Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
      
    ПрофильОтправки = Новый ИнтернетПочтовыйПрофиль;
    ПрофильОтправки.АдресСервераSMTP = СУ.СерверИсходящейПочты;
    ПрофильОтправки.ПортSMTP =  СУ.ПортСервераИсходящейПочты;
   ПрофильОтправки.ИспользоватьSSLSMTP = Истина;
   
    ПрофильОтправки.ПользовательSMTP   = СУ.ПользовательSMTP;
    ПрофильОтправки.ПарольSMTP         = "ваш пароль";

Дело в том, что этой обработкой пользуются разные люди. У всех разные почты. Каждый сидеть и редактировать обработку не хотелось бы. Поэтому решил, что правильнее было бы, чтобы обработка отправляла письма с системной учетной записи с базы. Вот так я получит пароль:
        УстановитьПривилегированныйРежим(Истина);
   Пароли = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты.Ссылка, "Пароль, ПарольSMTP");
   УстановитьПривилегированныйРежим(Ложь);
   Pass = Пароли.ПарольSMTP;
   Отправитель = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты;
   Профиль = Новый ИнтернетПочтовыйПрофиль;
   Профиль.АдресСервераSMTP = Отправитель.СерверИсходящейПочты;   
   Профиль.ПортSMTP = Отправитель.ПортСервераИсходящейПочты;
   Профиль.ПользовательSMTP = Отправитель.ПользовательSMTP;
   Профиль.ПарольSMTP = Pass;