АдресСервераSMTP=?(СтруктураПараметров.Свойство("АдресСервераSMTP"),СтруктураПараметров.АдресСервераSMTP,"");
ПортSMTP=?(СтруктураПараметров.Свойство("ПортSMTP"),СтруктураПараметров.ПортSMTP,25);
ПользовательSMTP=?(СтруктураПараметров.Свойство("ПользовательSMTP"),СтруктураПараметров.ПользовательSMTP,"");
ПарольSMTP=?(СтруктураПараметров.Свойство("ПарольSMTP"),СтруктураПараметров.ПарольSMTP,"");
УведомитьОДоставке=?(СтруктураПараметров.Свойство("УведомитьОДоставке"),СтруктураПараметров.УведомитьОДоставке,Ложь);
ИПП=Новый ИнтернетПочтовыйПрофиль;
ИПП.АдресСервераSMTP=АдресСервераSMTP;
ИПП.ПортSMTP=ПортSMTP;
ИПП.ПользовательSMTP=ПользовательSMTP;
ИПП.ПарольSMTP=ПарольSMTP;
Письмо=Новый ИнтернетПочтовоеСообщение;
Письмо.Получатели.Добавить(Кому);
МассивКопии=МассивИзСтроки(Копия,";");
Для Каждого Элемент Из МассивКопии Цикл
	Письмо.Копии.Добавить(Элемент);
КонецЦикла;
МассивСкрКопии=МассивИзСтроки(СкрКопия,";");
Для Каждого Элемент Из МассивСкрКопии Цикл
	Письмо.СлепыеКопии.Добавить(Элемент);
КонецЦикла;

Письмо.Тема=Тема;
Письмо.Тексты.Добавить(Текст);
Письмо.УведомитьОДоставке=УведомитьОДоставке;
Почта=Новый ИнтернетПочта;
Почта.Подключиться(ИПП);
Почта.Послать(Письмо);
Почта.Отключиться();