Процедура ОтправитьEmail(Получатель,Тема="",ТекстПисьма="",ФайлыВложений=Неопределено) Экспорт
	
	Письмо = Новый ИнтернетПочтовоеСообщение;
	Письмо.ИмяОтправителя = СокрЛП("1С");
	Получатель       = Письмо.Получатели.Добавить();
	Получатель.Адрес = Получатель;
	Письмо.Тема = Тема;
	Письмо.Тексты.Добавить(ТекстПисьма);

	Если ФайлыВложений<>Неопределено Тогда
		Для Каждого ФЛ из ФайлыВложений Цикл
			Письмо.Вложения.Добавить(ФЛ);
		КонецЦикла;
	КонецЕсли;

	ПрофильОтправки = Новый ИнтернетПочтовыйПрофиль;
	ПрофильОтправки.АдресСервераSMTP = Константы.SMTPсервер.Получить();
	ПрофильОтправки.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
	ПрофильОтправки.ПользовательSMTP = Константы.SMTPПользователь.Получить();
	ПрофильОтправки.ПарольSMTP = Константы.SMTPПароль.Получить();

	Почта = Новый ИнтернетПочта;
	Попытка
		Почта.Подключиться(ПрофильОтправки);
	Исключение
		Сообщить("Электронное сообщение не отправлено: "+ОписаниеОшибки());
		Возврат;
	КонецПопытки;

	Попытка
		Почта.Послать(Письмо);
	Исключение
		Сообщить("Электронное сообщение не отправлено: "+ОписаниеОшибки());
		Возврат;
	КонецПопытки;

	Почта.Отключиться();		
	
КонецПроцедуры