Отправка электронного письма при изменении реквезита

Если Замечания <> Объект.Замечания Тогда 
    ОтправитьПисьмоПользователюКоторыйУказанНаФорме(Замечания);
КонецЕсли;

&НаСервере
Функция ЗамечаниеИзменено(ЗамечаниеПосле)
	Запрос = Новый Запрос;
	
	Запрос.Текст = 
	
	"ВЫБРАТЬ
	|	ивсЗаявкиКлиентов.Замечание КАК Замечание
	|ИЗ
	|	Документ.ивсЗаявкиКлиентов КАК ивсЗаявкиКлиентов
	|ГДЕ
	|	ивсЗаявкиКлиентов.Ссылка = &Ссылка";

	Запрос.УстановитьПараметр("Ссылка", Объект.Ссылка);

	Результат = Запрос.Выполнить();
	Выборка = Результат.Выбрать();
	
	Замечание = Выборка.Замечание;
	
	Если Выборка.Замечания <> Объект.Замечание Тогда
		СозданиеИОтправкаПисьма(Адрес, ТекстПисьма)
	КонецЕсли;	
		   
	Возврат Истина;

	Возврат Ложь;
	
КонецФункции

Функция СозданиеИОтправкаПисьма(Адрес, ТекстПисьма)

    Результат = Неопределено;
	
	// Даём полные права на момент выполнения куска кода 
	// (по умолчанию, до конца функции):
    УстановитьПривилегированныйРежим(Истина);
	
	// Воспользуемся получением системной учетной записи, как в типовой функции:
	// РаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись();
	УчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты;
	
	Профиль = Новый ИнтернетПочтовыйПрофиль;
	
	//Профиль = РаботаСПочтовымиСообщениямиСлужебный.ИнтернетПочтовыйПрофиль(УчетнаяЗапись);
	Профиль = ИнтернетПочтовыйПрофиль(УчетнаяЗапись);
	
	Почта = Новый ИнтернетПочта;	
	
	// ---------------------------------------------------------
	// Непосредственное создание почтового сообщения:
	// ---------------------------------------------------------
	
	Письмо = Новый ИнтернетПочтовоеСообщение;
	
    Текст = Письмо.Тексты.Добавить(ТекстПисьма);	
	Текст.ТипТекста = ТипТекстаПочтовогоСообщения.HTML;
	
	Письмо.Тема = "Уведомление о начале отпуска"; 
	Письмо.Отправитель = УчетнаяЗапись.АдресЭлектроннойПочты;
	Письмо.ИмяОтправителя = "1С: Предприятие";
	
	Письмо.Получатели.Добавить(Адрес);
	
	// ---------------------------------------------------------
	// Отправка письма:
	// ---------------------------------------------------------
	
	ТекстСообщения = "";
	
	Попытка
		
		Почта.Подключиться(Профиль);
		//ТекстСообщения = "Подключенено";
		Почта.Послать(Письмо);
		//ТекстСообщения = "Уведомление отправлено";
		Почта.Отключиться();
		
		Результат = Истина;
		
	Исключение
		
		ТекстСообщения = "Не удалось подключиться к почтовому серверу !!!";
		Сообщить(ОписаниеОшибки());
		
		Результат = Ложь;
		
	КонецПопытки;
	
	Если ТекстСообщения <> "" Тогда
	
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = ТекстСообщения;
		Сообщение.Поле = "";
		Сообщение.УстановитьДанные(ЭтотОбъект);
		Сообщение.Сообщить();
		
	КонецЕсли;

	УстановитьПривилегированныйРежим(Ложь);		
	
	Возврат Результат;

КонецФункции // ОтправкаПисьма(Адрес, ТекстПисьма)