Проверить возможность отправки и получения электронной почты

// Выполняет проверку настроек электронной почты.
//
// Параметры:
//  УчетнаяЗапись     - СправочникСсылка.УчетныеЗаписиЭлектроннойПочты - проверяемая почта.
//  СообщениеОбОшибке - Строка - текст сообщения об ошибке либо пустая строка, если ошибок не было.
//  ДополнительноеСообщение - Строка - сообщения о том, какие проверки были выполнены для почты.
//
// Процедура ПроверитьВозможностьОтправкиИПолученияЭлектроннойПочты(УчетнаяЗапись, СообщениеОбОшибке, ДополнительноеСообщение) Экспорт


УчетнаяЗапись = РаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись();

СообщениеОбОшибке = "";
ДополнительноеСообщение = "";
РаботаСПочтовымиСообщениями.ПроверитьВозможностьОтправкиИПолученияЭлектроннойПочты(
  УчетнаяЗапись, СообщениеОбОшибке, ДополнительноеСообщение);

Если ПустаяСтрока(СообщениеОбОшибке) И ПустаяСтрока(ДополнительноеСообщение) Тогда
  ОбщегоНазначения.СообщитьПользователю("Проверка прошла успешно");
Иначе
  Если НЕ ПустаяСтрока(СообщениеОбОшибке) Тогда
    ОбщегоНазначения.СообщитьПользователю(СообщениеОбОшибке);
  КонецЕсли;

  Если НЕ ПустаяСтрока(ДополнительноеСообщение) Тогда
    ОбщегоНазначения.СообщитьПользователю(ДополнительноеСообщение);
  КонецЕсли;
КонецЕсли;