diff --git a/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl b/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl
index c5e8bf35b..1e6f5f4e8 100644
--- a/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl
+++ b/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl
@@ -602,7 +602,8 @@
 	ДопПараметры.Вставить("ТекстПисьма",ПараметрыПисьма.ТекстПисьма);
 	ДопПараметры.Вставить("ТемаПисьма",ПараметрыПисьма.ТемаПисьма);
 	ДопПараметры.Вставить("ТЗАдресаЭлектроннойПочты",ТЗАдресаЭлектроннойПочты); 
-	ДопПараметры.Вставить("ЭтоОтправкаКонтрагентам",ЭтоОтправкаКонтрагентам); 
+	ДопПараметры.Вставить("ЭтоОтправкаКонтрагентам",ЭтоОтправкаКонтрагентам);
+	ДопПараметры.Вставить("Задача",Ссылка);
 	
 	пУчетнаяЗапись = ПолучитьУчетнуюЗаписьДляОтправкиУведомленийДляКонтрагентов();
 	Если ЗначениеЗаполнено(пУчетнаяЗапись) Тогда
diff --git a/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl b/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl
index 5996770ed..fb38ac90f 100644
--- a/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl
+++ b/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl
@@ -25,12 +25,22 @@
 	ДокОбъект.УчетнаяЗапись = ПредопределенноеЗначение("Справочник.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты");
 	Если ДопПараметры.Свойство("УчетнаяЗапись") Тогда
 		ДокОбъект.УчетнаяЗапись = ДопПараметры.УчетнаяЗапись;
+		ДокОбъект.ОтправительПредставление = ДокОбъект.УчетнаяЗапись.Наименование;
 	Конецесли;
 	
-	пУдалятьПослеОтправки = Истина;
+	ЭтоОтправкаКонтрагентам = Ложь;
 	Если ДопПараметры.Свойство("ЭтоОтправкаКонтрагентам")
 		И ДопПараметры.ЭтоОтправкаКонтрагентам Тогда
-		пУдалятьПослеОтправки = Ложь; 
+		ЭтоОтправкаКонтрагентам = Истина;
+	Конецесли;
+	
+	Если ДопПараметры.Свойство("Задача") Тогда
+		ДокОбъект.Предмет = ДопПараметры.Задача;
+	Конецесли; 	
+	
+	пУдалятьПослеОтправки = Истина;
+	Если ЭтоОтправкаКонтрагентам Тогда
+		пУдалятьПослеОтправки = Ложь;
 	Конецесли;
 	
 	ДокОбъект.УдалятьПослеОтправки = пУдалятьПослеОтправки;
@@ -47,7 +57,17 @@
 		СтрокаПолучателиПисьма.Контакт       = ПользовательКому;
 	Конеццикла;
 	ДокОбъект.СформироватьПредставленияКонтактов();
-	ДокОбъект.Записать();	
+	ДокОбъект.Записать();
+	
+	Если ДопПараметры.Свойство("Задача") Тогда
+		пМассивВзаимодействий = Новый Массив();
+		пМассивВзаимодействий.Добавить(ДокОбъект.Ссылка);
+		
+		ВзаимодействияВызовСервера.УстановитьПредметДляМассиваВзаимодействий(
+			пМассивВзаимодействий,
+			ДопПараметры.Задача);
+	Конецесли;
+	
 КонецПроцедуры 
 
 Функция ПолучитьТЗАдресаЭлектроннойПочты(ДопПараметры)