Если УчетнаяЗапись.ТребуетсяSMTPАутентификация Тогда
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Профиль.ПарольSMTP = УчетнаяЗапись.ПарольSMTP;
Профиль.ПользовательSMTP = УчетнаяЗапись.ЛогинSMTP;
Иначе
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.БезАутентификации;
Профиль.ПарольSMTP = "";
Профиль.ПользовательSMTP = "";
КонецЕсли;
Если глЗначениеПеременной("глДоступностьSSL") Тогда
Профиль.ИспользоватьSSLPOP3 = УчетнаяЗапись.ИспользоватьSSLДляPOP3;
Профиль.ИспользоватьSSLSMTP = УчетнаяЗапись.ИспользоватьSSLДляSMTP;
КонецЕсли;
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший