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