Отправка и получение почтовых сообщений

Обязательно к заполнению поле "АдресПолучателяСообщения". Пример заполнения: Adress@mail.ru

&НаКлиенте
Процедура ОтправитьСообщение_1(Команда)
	
	Файл_АдресВХ = Неопределено;
	Файл_ИмяФайла = Неопределено;
	Если Не ПустаяСтрока(ПутьКартинки) Тогда 
		Файл = Новый Файл(ПутьКартинки);
		Если Файл.Существует() Тогда 
			ДД = Новый ДвоичныеДанные(ПутьКартинки);
			Файл_АдресВХ = ПоместитьВоВременноеХранилище(ДД,УникальныйИдентификатор);
			Файл_ИмяФайла = Файл.Имя;
		КонецЕсли;
	КонецЕсли;
	
	ОтправитьСообщениеСервер_1(АдресПолучателяСообщения, Файл_АдресВХ, Файл_ИмяФайла);
	
КонецПроцедуры

Подготовка данных структуры для записи в регистр сведений "СОГ_ПочтовоеСообщение"

Формируется тело письма, формируется массив вложений.

//Отправка сообщения через регламент отправки сообщений с вложением файла (запись в регистр сведений "СОГ_ПочтовоеСообщение")
&НаСервереБезКонтекста
Процедура ОтправитьСообщениеСервер_1(АдресПолучателяСообщения, Файл_АдресВХ, Файл_ИмяФайла)
	
	ЛОГ_ОбщийМодуль = ОбщегоНазначения.ОбщийМодуль("СОГ_ЛогОшибок");                //Общий модуль расширения "СПАМ БОТ"
	ЛОГКС_ОбщийМодуль = ОбщегоНазначения.ОбщийМодуль("СОГ_ЛогОшибокКлиентСервер");  //Общий модуль расширения "СПАМ БОТ"
	ТаблицаЛогов = ЛОГ_ОбщийМодуль.ПолучитьПустуюТаблицуЛогов();                    //Таблица значения для записи лога сообщений и ошибок
	Отказ = Ложь;
	
	//Файл_АдресВХ
	ДД = Неопределено;
	Если ЭтоАдресВременногоХранилища(Файл_АдресВХ) Тогда 
		ДД = ПолучитьИзВременногоХранилища(Файл_АдресВХ);
		Если ПустаяСтрока(Файл_ИмяФайла) Тогда 
			Файл_ИмяФайла = "ФайлВложения_Картинки.png";
		КонецЕсли;
	КонецЕсли;
	
	
	ПочтовыйАдресОтправителя = "";
	ПочтовыйАдресДляПолученияОтветов = "";
	ГруппироватьПолучателей = Истина; //Все, будут видеть всех...
	
	cid_ID_0 = Неопределено;
	Вложение = Неопределено;
	МенОбрОПС = Обработки["СОГ_ОтправкаПочтовыхСообщений"];
	// Добавить Картинку во вложения, сперва добавляем как скрытую картинку (получатель её не увидит во вложении), но видимую в теле письма, а второе вложение будет видно получателю.
	Если ДД <> Неопределено Тогда 
		cid_ID_0 = СокрЛП(Новый УникальныйИдентификатор());
		
		стрПочтовогоВложения = МенОбрОПС.ПолучитьСтруктуруПочтовогоВложения(); //Данные,Идентификатор,Имя,ИмяФайла,Кодировка,СпособКодирования,ТипСодержимого - см. ИнтернетПочтовоеВложение (InternetMailAttachment)
		стрПочтовогоВложения.ИмяФайла = Файл_ИмяФайла;
		стрПочтовогоВложения.Идентификатор = cid_ID_0;
		МенОбрОПС.ДобавитьВложениеДляОтправки_Массив(ДД, стрПочтовогоВложения, Вложение, Ложь);
		
		стрПочтовогоВложения = МенОбрОПС.ПолучитьСтруктуруПочтовогоВложения(); //Данные,Идентификатор,Имя,ИмяФайла,Кодировка,СпособКодирования,ТипСодержимого - см. ИнтернетПочтовоеВложение (InternetMailAttachment)
		стрПочтовогоВложения.ИмяФайла = Файл_ИмяФайла;
		МенОбрОПС.ДобавитьВложениеДляОтправки_Массив(ДД, стрПочтовогоВложения, Вложение, Ложь);
	КонецЕсли;
	
	
	//Подготовка тела письма...
	
	СсылкаНаСайт = "<a fr-original-style="""" href=""https://ya.ru/"" rel=""noopener noreferrer"" style=""user-select: auto;"" target=""_blank"">"+XMLСтрока("Яндекс")+"</a>";
	
	ТекстСообщения_Файл = ЛОГ_ОбщийМодуль.ЗаменитьСпецСимволы001(Файл_ИмяФайла);
	ТекстСообщения_текст1 = ЛОГ_ОбщийМодуль.ЗаменитьСпецСимволы001("<это скобки и другие символы>: [скобки] {Скобки} Символы: !@#$%^&*()_+<>.'"":;\|/?,!№*()/*-+");
	
	ПолучателиСообщений = АдресПолучателяСообщения;
	
	Письмо_Тема = "Тестовое письмо № 1";
	Письмо_Тело = "";
	
	Письмо_Тело = "Здравствуйте, я БОТ.<br/>
	|Это тестовое сообщение от "+Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy")+".<br/>
	|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;«"+ТекстСообщения_Файл+"» картинка создана по нажатию клавиш &rsquo;Print Screen&rsquo;.<br/>
	|<br/>"+СсылкаНаСайт+"<br/>
	|<br/>
	|"+ТекстСообщения_текст1+"
	|<br/>
	|<br/>
	|";
	
	Если cid_ID_0 <> Неопределено Тогда 
		Письмо_Тело = Письмо_Тело + "
		|<br/>
		|Картинка '"+ТекстСообщения_Файл+"'<br/>
		|<br/>
		|<img height=""592"" src=""cid:"+cid_ID_0+""" style=""border:none;"" width=""1140""/>";
	КонецЕсли;
	
	
	стрПараметраОтправки = ПолучитьСтруктуруДляОтправкиПисем();
	стрПараметраОтправки.ТемаПисьма				  = Письмо_Тема;
	стрПараметраОтправки.МассивТекста			  = Письмо_Тело;
	стрПараметраОтправки.ПолучателиСообщений	  = СтрРазделить(ПолучателиСообщений,";",Ложь);
	стрПараметраОтправки.Копии					  = Неопределено;
	стрПараметраОтправки.СлепыеКопии			  = Неопределено;
	стрПараметраОтправки.ИдентификаторОтправителя = "";
	стрПараметраОтправки.ТолькоЭтотОтправитель	  = Ложь;
	стрПараметраОтправки.EmailОтправителя		  = ПочтовыйАдресОтправителя;
	стрПараметраОтправки.EmailОтправителяОтвета	  = ПочтовыйАдресДляПолученияОтветов;
	//
	стрПараметраОтправки.ГруппироватьПолучателей  = ГруппироватьПолучателей;
	//
	стрПараметраОтправки.Вложение = Вложение;
	
	ОтправитьТестовоеСообщениеНаСервере(стрПараметраОтправки, ТаблицаЛогов, Отказ);
	
	
	//Сообщим о ошибках, если таковые встретились...
	Если ТаблицаЛогов.Количество() > 0 Тогда 
		Для Каждого СтрокаОшибки Из ТаблицаЛогов Цикл 
			ЛОГКС_ОбщийМодуль.СообщитьОбОшибкеПользователю(СтрокаОшибки, "", Ложь);
		КонецЦикла;
	КонецЕсли;
	
КонецПроцедуры

Структура параметров для подготовки письма к отправки. Только для примера.

&НаСервереБезКонтекста
Функция ПолучитьСтруктуруДляОтправкиПисем()
	ПараметрыСтруктуры = "ТемаПисьма,"+                  //Тема письма
						"МассивТекста,"+                 //Тело письма - Текст или Массив из текста (текст в HTML или обычным - зависит от настройки отправки)
						"ПолучателиСообщений,"+          //Получатели уведомлений - передавать массив адресов или строку одного адреса
						"ИдентификаторОтправителя,"+     //Идентификатор отправителя - у механизма СПАМ БОТ есть перечень учёток для отправки сообщений. (Есть возможность выбрать, кем отправлять)
						"ТолькоЭтотОтправитель,"+        //Только этот отправитель - призна того, что сообщение будет отправлено только от имени той учетной записи СПАМ БОТа, которая имеет соответствующее значение "ИдентификаторОтправителя"
						"EmailОтправителя,"+             //mail отправителя - есть возможность подменить адрес отправителя на тот, какой будет указан в данном поле. Всё зависит от настроек учетной записи СПАМ БОТа.
						"EmailОтправителяОтвета,"+       //mail получаетеля ответа, на ответное сообщение от получателя сообщения. Если не указано, то у получателя будет указан адрес из поля "EmailОтправителя"
						"УведомитьОДоставке,"+           //Уведомление о доставке, имеет смысл, если указан адрес уведомления о доставки (Булево)
						"УведомитьОПрочтении,"+          //Уведомление о прочтении, имеет смысл, если указан адрес уведомления о доставки (Булево)
						"АдресаУведомленияОДоставке,"+   //Адрес уведомления о доставке - mail получателя уведомления (передать массив)
						"АдресаУведомленияОПрочтении,"+  //Адрес уведомления о прочтении - mail получателя уведомления (передать массив)
						"Копии,"+                        //Массив mail адресов для копий писем
						"СлепыеКопии,"+                  //Массив mail адресов для скрытых копий писем (не видимы для получателей)
						"ГруппироватьПолучателей,"+      //Признак того, что будет сформировано одно писмо, где указаны все получатели письма. (Если ЛОЖЬ, то для каждого получателя формируется индивидуальное письмо)
						"Вложение";                      //Массив вложений, имеет специфическую структуру.
	Возврат Новый Структура(ПараметрыСтруктуры);
КонецФункции

Заполнение структуры данных для записи в регистр сведений "СОГ_ПочтовоеСообщение"

&НаСервереБезКонтекста
Процедура ОтправитьТестовоеСообщениеНаСервере(стрПараметраОтправки, ТаблицаЛогов, Отказ)
	
	ТемаПисьма				 = стрПараметраОтправки.ТемаПисьма;
	МассивТекста			 = стрПараметраОтправки.МассивТекста;
	ПолучателиСообщений		 = стрПараметраОтправки.ПолучателиСообщений;
	ИдентификаторОтправителя = стрПараметраОтправки.ИдентификаторОтправителя;
	ТолькоЭтотОтправитель	 = стрПараметраОтправки.ТолькоЭтотОтправитель;
	EmailОтправителя		 = стрПараметраОтправки.EmailОтправителя;
	EmailОтправителяОтвета	 = стрПараметраОтправки.EmailОтправителяОтвета;
	//
	//"УведомитьОДоставке,УведомитьОПрочтении, АдресаУведомленияОДоставке,АдресаУведомленияОПрочтении,"+
	УведомитьОДоставке			 = стрПараметраОтправки.УведомитьОДоставке;
	УведомитьОПрочтении			 = стрПараметраОтправки.УведомитьОПрочтении;
	АдресаУведомленияОДоставке	 = стрПараметраОтправки.АдресаУведомленияОДоставке;
	АдресаУведомленияОПрочтении	 = стрПараметраОтправки.АдресаУведомленияОПрочтении;
	//"Важность, Копии,СлепыеКопии";
	Копии					 = стрПараметраОтправки.Копии;
	СлепыеКопии				 = стрПараметраОтправки.СлепыеКопии;
	//
	ГруппироватьПолучателей  = стрПараметраОтправки.ГруппироватьПолучателей;
	//Вложение
	Вложение				 = стрПараметраОтправки.Вложение;
	
	Если ТолькоЭтотОтправитель = Неопределено Тогда 
		ТолькоЭтотОтправитель = Истина;
	КонецЕсли;
	Если ИдентификаторОтправителя <> Неопределено и ПустаяСтрока(ИдентификаторОтправителя) Тогда 
		ИдентификаторОтправителя = Неопределено;
		ТолькоЭтотОтправитель = Неопределено;
	КонецЕсли;
	
	//Тестовая отправка сообщения...
	Попытка
		
		Если ТипЗнч(МассивТекста) = Тип("Массив") Тогда 
			ТекстПисьма = СтрСоединить(МассивТекста,Символы.ПС);
		Иначе 
			ТекстПисьма = МассивТекста;
		КонецЕсли;
		
		//Подготовим Структуру письма...
		ОбработкаСообщений = Обработки["СОГ_ОтправкаПочтовыхСообщений"]; //Обработки["СОГ_ОтправкаПочтовыхСообщений"].Создать();  Можно из обработки, можно через менеджер...
		
		//Тело письма...
		СтрСообщения = ОбработкаСообщений.ПолучитьСтруктуруСообщения();
		СтрСообщения.Тема		 = ТемаПисьма;
		СтрСообщения.Текст		 = ТекстПисьма;
		СтрСообщения.ТипТекста	 = ТипТекстаПочтовогоСообщения.HTML;
		СтрСообщения.Организация = "Компания";
		Если EmailОтправителя <> Неопределено Тогда 
			СтрСообщения.EmailОтправителя = EmailОтправителя;
		КонецЕсли;
		Если EmailОтправителяОтвета <> Неопределено Тогда 
			СтрСообщения.EmailОтправителяОтвета = EmailОтправителяОтвета;
		КонецЕсли;
		//
		Если УведомитьОДоставке = Истина Тогда 
			СтрСообщения.УведомитьОДоставке = Истина;
		КонецЕсли;
		Если УведомитьОПрочтении = Истина Тогда 
			СтрСообщения.УведомитьОПрочтении = Истина;
		КонецЕсли;
		СтрСообщения.АдресаУведомленияОДоставке	 = АдресаУведомленияОДоставке;
		СтрСообщения.АдресаУведомленияОПрочтении = АдресаУведомленияОПрочтении;
		//
		СтрСообщения.Копии		 = Копии;
		СтрСообщения.СлепыеКопии = СлепыеКопии;
		//
		СтрСообщения.ГруппироватьПолучателей = ГруппироватьПолучателей;
		
		
		//Сообщение, Вложение, Получатели, ID,ДатаПолучения
		СтрПисьмо = ОбработкаСообщений.ПолучитьСтруктуруЗаписиСообщения();
		СтрПисьмо.ID			 = "";
		СтрПисьмо.ДатаПолучения	 = Неопределено;
		СтрПисьмо.Сообщение		 = СтрСообщения;
		СтрПисьмо.Вложение		 = Вложение;
		СтрПисьмо.Получатели	 = ОбработкаСообщений.ПолучитьМассивПолучателейСообщений(ПолучателиСообщений);
		
		//Добавим запись для отправки сообщения...
		пДатаОтправки	 = Дата(1,1,1);
		пТемаПисьма		 = СокрЛП(СтрПисьмо.Сообщение.Тема);
		ОбработкаСообщений.ДобавитьНовуюЗаписьДляОтправкиСообщений(СтрПисьмо, пТемаПисьма, пДатаОтправки, ИдентификаторОтправителя, ТолькоЭтотОтправитель);
		
	Исключение
		ИнфОбОшибке = ИнформацияОбОшибке();
		СОГ_ЛогОшибок.ДобавитьСообщениеВЛог(ТаблицаЛогов, ТекущаяДата(), ИнфОбОшибке, "", -11, Истина, Отказ);
	КонецПопытки;
	
КонецПроцедуры

Обязательно к заполнению поле "АдресПолучателяСообщения". Пример заполнения: Adress@mail.ru

&НаКлиенте
Процедура ОтправитьСообщение_2(Команда)
	
	Файл_АдресВХ = Неопределено;
	Файл_ИмяФайла = Неопределено;
	Если Не ПустаяСтрока(ПутьКартинки) Тогда 
		Файл = Новый Файл(ПутьКартинки);
		Если Файл.Существует() Тогда 
			ДД = Новый ДвоичныеДанные(ПутьКартинки);
			Файл_АдресВХ = ПоместитьВоВременноеХранилище(ДД,УникальныйИдентификатор);
			Файл_ИмяФайла = Файл.Имя;
		КонецЕсли;
	КонецЕсли;
	
	ОтправитьСообщениеСервер_2(АдресПолучателяСообщения, Файл_АдресВХ, Файл_ИмяФайла);
	
КонецПроцедуры

Подготовка данных структуры для отправки сообщения получателю.

Формируется тело письма, формируется массив вложений.

//Отправка сообщения пользователем с вложением файла (запись в регистр сведений "СОГ_ПочтовоеСообщение")
&НаСервереБезКонтекста
Процедура ОтправитьСообщениеСервер_2(АдресПолучателяСообщения, Файл_АдресВХ, Файл_ИмяФайла)
	
	ЛОГ_ОбщийМодуль = ОбщегоНазначения.ОбщийМодуль("СОГ_ЛогОшибок");                //Общий модуль расширения "СПАМ БОТ"
	ЛОГКС_ОбщийМодуль = ОбщегоНазначения.ОбщийМодуль("СОГ_ЛогОшибокКлиентСервер");  //Общий модуль расширения "СПАМ БОТ"
	ТаблицаЛогов = ЛОГ_ОбщийМодуль.ПолучитьПустуюТаблицуЛогов();                    //Таблица значения для записи лога сообщений и ошибок
	Отказ = Ложь;
	
	//Файл_АдресВХ
	ДД = Неопределено;
	Если ЭтоАдресВременногоХранилища(Файл_АдресВХ) Тогда 
		ДД = ПолучитьИзВременногоХранилища(Файл_АдресВХ);
		Если ПустаяСтрока(Файл_ИмяФайла) Тогда 
			Файл_ИмяФайла = "ФайлВложения_Картинки.png";
		КонецЕсли;
	КонецЕсли;
	
	
	ПочтовыйАдресОтправителя = "";
	ПочтовыйАдресДляПолученияОтветов = "";
	ГруппироватьПолучателей = Истина; //Все, будут видеть всех...
	
	cid_ID_0 = Неопределено;
	Вложение = Неопределено;
	МенОбрОПС = Обработки["СОГ_ОтправкаПочтовыхСообщений"];
	// Добавить Картинку во вложения, сперва добавляем как скрытую картинку (получатель её не увидит во вложении), но видимую в теле письма, а второе вложение будет видно получателю.
	Если ДД <> Неопределено Тогда 
		cid_ID_0 = СокрЛП(Новый УникальныйИдентификатор());
		
		стрПочтовогоВложения = МенОбрОПС.ПолучитьСтруктуруПочтовогоВложения(); //Данные,Идентификатор,Имя,ИмяФайла,Кодировка,СпособКодирования,ТипСодержимого - см. ИнтернетПочтовоеВложение (InternetMailAttachment)
		стрПочтовогоВложения.ИмяФайла = Файл_ИмяФайла;
		стрПочтовогоВложения.Идентификатор = cid_ID_0;
		МенОбрОПС.ДобавитьВложениеДляОтправки_Массив(ДД, стрПочтовогоВложения, Вложение, Ложь);
		
		стрПочтовогоВложения = МенОбрОПС.ПолучитьСтруктуруПочтовогоВложения(); //Данные,Идентификатор,Имя,ИмяФайла,Кодировка,СпособКодирования,ТипСодержимого - см. ИнтернетПочтовоеВложение (InternetMailAttachment)
		стрПочтовогоВложения.ИмяФайла = Файл_ИмяФайла;
		МенОбрОПС.ДобавитьВложениеДляОтправки_Массив(ДД, стрПочтовогоВложения, Вложение, Ложь);
	КонецЕсли;
	
	
	//Подготовка тела письма...
	
	СсылкаНаСайт = "<a fr-original-style="""" href=""https://ya.ru/"" rel=""noopener noreferrer"" style=""user-select: auto;"" target=""_blank"">"+XMLСтрока("Яндекс")+"</a>";
	
	ТекстСообщения_Файл = ЛОГ_ОбщийМодуль.ЗаменитьСпецСимволы001(Файл_ИмяФайла);
	ТекстСообщения_текст1 = ЛОГ_ОбщийМодуль.ЗаменитьСпецСимволы001("<это скобки и другие символы>: [скобки] {Скобки} Символы: !@#$%^&*()_+<>.'"":;\|/?,!№*()/*-+");
	
	ПолучателиСообщений = АдресПолучателяСообщения;
	
	Письмо_Тема = "Тестовое письмо № 2";
	Письмо_Тело = "";
	
	Письмо_Тело = "Здравствуйте, я БОТ.<br/>
	|Это тестовое сообщение от "+Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy")+".<br/>
	|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;«"+ТекстСообщения_Файл+"» картинка создана по нажатию клавиш &rsquo;Print Screen&rsquo;.<br/>
	|<br/>"+СсылкаНаСайт+"<br/>
	|<br/>
	|"+ТекстСообщения_текст1+"
	|<br/>
	|<br/>
	|";
	
	Если cid_ID_0 <> Неопределено Тогда 
		Письмо_Тело = Письмо_Тело + "
		|<br/>
		|Картинка '"+ТекстСообщения_Файл+"'<br/>
		|<br/>
		|<img height=""592"" src=""cid:"+cid_ID_0+""" style=""border:none;"" width=""1140""/>";
	КонецЕсли;
	
	
	стрПараметраОтправки = ПолучитьСтруктуруДляОтправкиПисем();
	стрПараметраОтправки.ТемаПисьма				  = Письмо_Тема;
	стрПараметраОтправки.МассивТекста			  = Письмо_Тело;
	стрПараметраОтправки.ПолучателиСообщений	  = СтрРазделить(ПолучателиСообщений,";",Ложь);
	стрПараметраОтправки.Копии					  = Неопределено;
	стрПараметраОтправки.СлепыеКопии			  = Неопределено;
	стрПараметраОтправки.ИдентификаторОтправителя = "";
	стрПараметраОтправки.ТолькоЭтотОтправитель	  = Ложь;
	стрПараметраОтправки.EmailОтправителя		  = ПочтовыйАдресОтправителя;
	стрПараметраОтправки.EmailОтправителяОтвета	  = ПочтовыйАдресДляПолученияОтветов;
	//
	стрПараметраОтправки.ГруппироватьПолучателей  = ГруппироватьПолучателей;
	//
	стрПараметраОтправки.Вложение = Вложение;
	
	ОтправитьТестовоеСообщениеПользователемНаСервере(стрПараметраОтправки, ТаблицаЛогов, Отказ);
	
	
	//Сообщим о ошибках, если таковые встретились...
	Если ТаблицаЛогов.Количество() > 0 Тогда 
		Для Каждого СтрокаОшибки Из ТаблицаЛогов Цикл 
			ЛОГКС_ОбщийМодуль.СообщитьОбОшибкеПользователю(СтрокаОшибки, "", Ложь);
		КонецЦикла;
	КонецЕсли;
	
КонецПроцедуры

Структура параметров для подготовки письма к отправки. Только для примера.

&НаСервереБезКонтекста
Функция ПолучитьСтруктуруДляОтправкиПисем()
	ПараметрыСтруктуры = "ТемаПисьма,"+                  //Тема письма
						"МассивТекста,"+                 //Тело письма - Текст или Массив из текста (текст в HTML или обычным - зависит от настройки отправки)
						"ПолучателиСообщений,"+          //Получатели уведомлений - передавать массив адресов или строку одного адреса
						"ИдентификаторОтправителя,"+     //Идентификатор отправителя - у механизма СПАМ БОТ есть перечень учёток для отправки сообщений. (Есть возможность выбрать, кем отправлять)
						"ТолькоЭтотОтправитель,"+        //Только этот отправитель - призна того, что сообщение будет отправлено только от имени той учетной записи СПАМ БОТа, которая имеет соответствующее значение "ИдентификаторОтправителя"
						"EmailОтправителя,"+             //mail отправителя - есть возможность подменить адрес отправителя на тот, какой будет указан в данном поле. Всё зависит от настроек учетной записи СПАМ БОТа.
						"EmailОтправителяОтвета,"+       //mail получаетеля ответа, на ответное сообщение от получателя сообщения. Если не указано, то у получателя будет указан адрес из поля "EmailОтправителя"
						"УведомитьОДоставке,"+           //Уведомление о доставке, имеет смысл, если указан адрес уведомления о доставки (Булево)
						"УведомитьОПрочтении,"+          //Уведомление о прочтении, имеет смысл, если указан адрес уведомления о доставки (Булево)
						"АдресаУведомленияОДоставке,"+   //Адрес уведомления о доставке - mail получателя уведомления (передать массив)
						"АдресаУведомленияОПрочтении,"+  //Адрес уведомления о прочтении - mail получателя уведомления (передать массив)
						"Копии,"+                        //Массив mail адресов для копий писем
						"СлепыеКопии,"+                  //Массив mail адресов для скрытых копий писем (не видимы для получателей)
						"ГруппироватьПолучателей,"+      //Признак того, что будет сформировано одно писмо, где указаны все получатели письма. (Если ЛОЖЬ, то для каждого получателя формируется индивидуальное письмо)
						"Вложение";                      //Массив вложений, имеет специфическую структуру.
	Возврат Новый Структура(ПараметрыСтруктуры);
КонецФункции

Заполнение структуры данных нужного формата для отправки уведомлений

&НаСервереБезКонтекста
Процедура ОтправитьТестовоеСообщениеПользователемНаСервере(стрПараметраОтправки, ТаблицаЛогов, Отказ)
	
	//Отключим всякого рода проверки безопасности от 1С... оно тут лишнее...
	УстановитьОтключениеБезопасногоРежима(Истина);
	УстановитьПривилегированныйРежим(Истина);
	
	
	ТемаПисьма				 = стрПараметраОтправки.ТемаПисьма;
	МассивТекста			 = стрПараметраОтправки.МассивТекста;
	ПолучателиСообщений		 = стрПараметраОтправки.ПолучателиСообщений;
	ИдентификаторОтправителя = стрПараметраОтправки.ИдентификаторОтправителя;
	ТолькоЭтотОтправитель	 = стрПараметраОтправки.ТолькоЭтотОтправитель;
	EmailОтправителя		 = стрПараметраОтправки.EmailОтправителя;
	EmailОтправителяОтвета	 = стрПараметраОтправки.EmailОтправителяОтвета;
	//
	//"УведомитьОДоставке,УведомитьОПрочтении, АдресаУведомленияОДоставке,АдресаУведомленияОПрочтении,"+
	УведомитьОДоставке			 = стрПараметраОтправки.УведомитьОДоставке;
	УведомитьОПрочтении			 = стрПараметраОтправки.УведомитьОПрочтении;
	АдресаУведомленияОДоставке	 = стрПараметраОтправки.АдресаУведомленияОДоставке;
	АдресаУведомленияОПрочтении	 = стрПараметраОтправки.АдресаУведомленияОПрочтении;
	//"Важность, Копии,СлепыеКопии";
	Копии					 = стрПараметраОтправки.Копии;
	СлепыеКопии				 = стрПараметраОтправки.СлепыеКопии;
	//
	ГруппироватьПолучателей  = стрПараметраОтправки.ГруппироватьПолучателей;
	//Вложение
	Вложение				 = стрПараметраОтправки.Вложение;
	
	Если ТолькоЭтотОтправитель = Неопределено Тогда 
		ТолькоЭтотОтправитель = Истина;
	КонецЕсли;
	Если ИдентификаторОтправителя <> Неопределено и ПустаяСтрока(ИдентификаторОтправителя) Тогда 
		ИдентификаторОтправителя = Неопределено;
		ТолькоЭтотОтправитель = Неопределено;
	КонецЕсли;
	
	//Тестовая отправка сообщения...
	Попытка
		
		Если ТипЗнч(МассивТекста) = Тип("Массив") Тогда 
			ТекстПисьма = СтрСоединить(МассивТекста,Символы.ПС);
		Иначе 
			ТекстПисьма = МассивТекста;
		КонецЕсли;
		
		//Подготовим Структуру письма...
		ОбработкаСообщений = Обработки["СОГ_ОтправкаПочтовыхСообщений"].Создать();  //Если нужно отправить сразу, то только напрямую.
		
		//Тело письма...
		СтрСообщения = ОбработкаСообщений.ПолучитьСтруктуруСообщения();
		СтрСообщения.Тема		 = ТемаПисьма;
		СтрСообщения.Текст		 = ТекстПисьма;
		СтрСообщения.ТипТекста	 = ТипТекстаПочтовогоСообщения.HTML;
		СтрСообщения.Организация = "Компания";
		Если EmailОтправителя <> Неопределено Тогда 
			СтрСообщения.EmailОтправителя = EmailОтправителя;
		КонецЕсли;
		Если EmailОтправителяОтвета <> Неопределено Тогда 
			СтрСообщения.EmailОтправителяОтвета = EmailОтправителяОтвета;
		КонецЕсли;
		//
		Если УведомитьОДоставке = Истина Тогда 
			СтрСообщения.УведомитьОДоставке = Истина;
		КонецЕсли;
		Если УведомитьОПрочтении = Истина Тогда 
			СтрСообщения.УведомитьОПрочтении = Истина;
		КонецЕсли;
		СтрСообщения.АдресаУведомленияОДоставке	 = АдресаУведомленияОДоставке;
		СтрСообщения.АдресаУведомленияОПрочтении = АдресаУведомленияОПрочтении;
		//
		СтрСообщения.Копии		 = Копии;
		СтрСообщения.СлепыеКопии = СлепыеКопии;
		//
		СтрСообщения.ГруппироватьПолучателей = ГруппироватьПолучателей;
		
		
		//Сообщение, Вложение, Получатели, ID,ДатаПолучения
		СтрПисьмо = ОбработкаСообщений.ПолучитьСтруктуруЗаписиСообщения();
		СтрПисьмо.ID			 = "";
		СтрПисьмо.ДатаПолучения	 = Неопределено;
		СтрПисьмо.Сообщение		 = СтрСообщения;
		СтрПисьмо.Вложение		 = Вложение;
		СтрПисьмо.Получатели	 = ОбработкаСообщений.ПолучитьМассивПолучателейСообщений(ПолучателиСообщений);
		
		СтрПисьмо.Вставить("СохранитьСообщениеВРегистре", Истина); //Признак того, что нужно добавить запись в Регистр сведений "СОГ_ПочтовоеСообщение", если не указан, то запись не будет записана.
		
		//Отправить сообщение Пользователем из обработки...
		пКодОшибки = 0;
		пТекстОшибки = "";
		
		ОбработкаСообщений.ОтправитьСообщения_Пользователем(СтрПисьмо, Отказ, пКодОшибки, пТекстОшибки);
		
		Если Отказ = Истина Тогда 
			ТекстСообщения = "Не удалось отправить сообщение через e-mail. Ошибка № "+Строка(пКодОшибки)+", "+пТекстОшибки;
			СОГ_ЛогОшибок.ДобавитьСообщениеВЛог(ТаблицаЛогов, ТекущаяДата(), ТекстСообщения, "", -11, Истина, Отказ);
		КонецЕсли;
		
	Исключение
		ИнфОбОшибке = ИнформацияОбОшибке();
		СОГ_ЛогОшибок.ДобавитьСообщениеВЛог(ТаблицаЛогов, ТекущаяДата(), ИнфОбОшибке, "", -11, Истина, Отказ);
	КонецПопытки;
	
КонецПроцедуры

Поле "АдресПолучателяСообщения" необходимо заполнить, если не указан получатель в настройке расширения, для получения уведомления. Пример заполнения: Adress@mail.ru 

Так же для теста, обязательно, необходимо указать галочку "Отправлять лог ошибок по e-mail". Без галочки "Отправлять лог ошибок по e-mail", перечень ошибок будет записан в журнале регистрации 1С.

Картинка настройки.

&НаКлиенте
Процедура ОтправитьСообщение_3(Команда)
	
	Отказ = Ложь;
	СгенерироватьОтправкуОшибок(АдресПолучателяСообщения, Отказ);
	
	Если Отказ = Истина Тогда 
		ТекстСообщения = "Ошибки сгенерированы, выполните регламент отправки уведомлений.
		|Сообщения о ошибках отправляются только по регламенту.";
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
	КонецЕсли;
	
КонецПроцедуры

Генерация ошибок для тестовой отправки. По сути это шаблон для отправки уведомлений об ошибках.

Формирование тела письма, выполняется в общем модуле "СОГ_ЛогОшибок". Структура письма предопределено модулем.

Разработчик может только указать: Заголовок, краткое описание (тело письма), приложить вложения. В качестве данных для передачи информации используется Таблица значений.

По умолчанию таблица значений должна быть определенной структуры. Но при желании можно передать любую таблицу структуры, такие примеры описаны ниже.

Лог ошибок на прямую не отправляется, выполняется запись в регистр сведений "СОГ_ПочтовоеСообщение".

//Генератор уведомлений о ошибках выполнения кода. (используется для получения информации о ошибках из различных источниках)
&НаСервереБезКонтекста
Процедура СгенерироватьОтправкуОшибок(АдресПолучателяСообщения, Отказ)
	
	Если Отказ = Неопределено Тогда 
		Отказ = Ложь;
	КонецЕсли;
	
	//---------------------------------------------------
	обрИмяСобытия = "Основное описание регламента";
	
	
	ТаблицаЛогов = СОГ_ЛогОшибок.ПолучитьПустуюТаблицуЛогов();
	
	
	//	Получение параметров обработки...
	Попытка
		ИмяСобытия = "Получение настройки обработки";
		
		стрНастройкиОбщие	  = СОГ_ОбщиеНастройкиРасширенияВызовСервера.ПолучитьНастройкиОбработки_Общие();   //Для логов ошибок
		
		ОшибкаРеквизита = (ТаблицаЛогов.Корень = Ложь); // Генератор ошибки
		
	Исключение
		ИнфОбОшибке = ИнформацияОбОшибке();
		СОГ_ЛогОшибок.ДобавитьСообщениеВЛог(ТаблицаЛогов, ТекущаяДата(), ИнфОбОшибке, ИмяСобытия, -11, Ложь, Отказ);
	КонецПопытки;
	СОГ_ЛогОшибок.ДописатьВЛогИмяСобытия(ИмяСобытия, ТаблицаЛогов);
	
	
	//	Выполнения еще одного события...
	Попытка
		ИмяСобытия = обрИмяСобытия;
		
		ДелениеНаНоль = 100 / 0; //Деление на ноль
		
	Исключение
		ИнфОбОшибке = ИнформацияОбОшибке();
		СОГ_ЛогОшибок.ДобавитьСообщениеВЛог(ТаблицаЛогов, ТекущаяДата(), ИнфОбОшибке, ИмяСобытия, -11, Ложь, Отказ);
	КонецПопытки;
	СОГ_ЛогОшибок.ДописатьВЛогИмяСобытия(ИмяСобытия, ТаблицаЛогов);
	
	
	
	//Лог ошибок...
	//Отправим ошибки, если это возможно...
	Общ_ОтправлятьЛогОшибокПоПочте = СОГ_ДопФункции.ПолучитьЗначениеСтруктуры("Общ_ОтправлятьЛогОшибокПоПочте",стрНастройкиОбщие,Ложь);
	Если Общ_ОтправлятьЛогОшибокПоПочте <> Истина Тогда 
		
		Если ТаблицаЛогов <> Неопределено и ТаблицаЛогов.Количество() > 0 и СОГ_ЛогОшибок.ЕстьОшибкиПредупреждения(ТаблицаЛогов, Ложь) = Истина Тогда
			ИмяСобытия = Строка(обрИмяСобытия);
			СОГ_ЛогОшибок.ЗаписатьПереченьОшибокЖурналРегистрации(ИмяСобытия, ТаблицаЛогов);
		КонецЕсли;
		
	ИначеЕсли ТаблицаЛогов <> Неопределено и ТаблицаЛогов.Количество() > 0 и СОГ_ЛогОшибок.ЕстьОшибкиПредупреждения(ТаблицаЛогов, Ложь) = Истина Тогда
		ИмяСобытия = Строка(обрИмяСобытия);
		СОГ_ЛогОшибок.ЗаписатьПереченьОшибокЖурналРегистрации(ИмяСобытия, ТаблицаЛогов);
		
		ИдентификаторОтправителя = "";
		
		ПолучателиСообщений = СОГ_ДопФункции.ПолучитьЗначениеСтруктуры("Общ_СписокПочтовыхАдресов",стрНастройкиОбщие,Неопределено);
		Если ТипЗнч(ПолучателиСообщений) = Тип("СписокЗначений") Тогда  //Получаем массив...
			ПолучателиСообщений = ПолучателиСообщений.ВыгрузитьЗначения();
		КонецЕсли;
		Если ПолучателиСообщений = Неопределено Или Не ЗначениеЗаполнено(ПолучателиСообщений) Тогда 
			ПолучателиСообщений = ""+АдресПолучателяСообщения; // Тут пожно прописать адрес по умолчанию, если вдруг настройки не указаны...
		КонецЕсли;
		
		//стрНастройки = ПолучитьНастройкиОбменов();
		ТаблицаЛогов_Отправки = СОГ_ЛогОшибок.ПолучитьПустуюТаблицуЛогов();
		
		стрПараметраОтправки = СОГ_ЛогОшибок.ПолучитьСтруктуруДляОтправкиПисем();
		стрПараметраОтправки.ТемаПисьма				  = "Лог ошибок обработки - "+Строка(обрИмяСобытия);
		стрПараметраОтправки.ОсновноеЗаголовок		  = "Лог ошибок и предупреждений";
		стрПараметраОтправки.ОсновнаяНужнаяСтраница	  = "";
		стрПараметраОтправки.ПолучателиСообщений	  = ПолучателиСообщений;
		стрПараметраОтправки.ИдентификаторОтправителя = ИдентификаторОтправителя;
		//стрПараметраОтправки.ГруппироватьПолучателей  = Ложь; //Одним письмом, если сможет...
		//
		стрПараметраОтправки.ТолькоЭтотОтправитель	  = Ложь;
		
		//стрПараметраОтправки.ЗаголовкиТаблицы = Неопределено;
		
		пОтказ = Ложь;
		СОГ_ЛогОшибок.ОтправкаНепрочитанныйЛогОшибок(ТаблицаЛогов, стрПараметраОтправки, ТаблицаЛогов_Отправки, пОтказ);
		
		Если ТаблицаЛогов_Отправки <> Неопределено и ТаблицаЛогов_Отправки.Количество() > 0 Тогда 
			ИмяСобытия = Строка(обрИмяСобытия); //"Загрузка основных средств";
			СОГ_ЛогОшибок.ЗаписатьПереченьОшибокЖурналРегистрации(ИмяСобытия, ТаблицаЛогов_Отправки);
		КонецЕсли;
			
	КонецЕсли;
	
	
	
	//Комментарий к тестовой обработке, в рабочем варианте, данный код не имеет смысла
	Если Общ_ОтправлятьЛогОшибокПоПочте <> Истина Тогда 
		ТекстСообщения = "В настройках расширения, не включена отправка сообщений о ошибках. Смотрите описание ошибки в журнале регистрации.";
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
	КонецЕсли;
	
КонецПроцедуры

Поле "АдресПолучателяСообщения" необходимо заполнить, если не указан получатель в настройке расширения, для получения уведомления. Пример заполнения: Adress@mail.ru 

Так же для теста, обязательно, необходимо указать галочку "Отправлять лог ошибок по e-mail". Без галочки "Отправлять лог ошибок по e-mail", перечень ошибок будет записан в журнале регистрации 1С.

Картинка настройки.

//Генератор уведомлений на стороне клиента. (отправка с клиента на сервер, по регламенту)
&НаКлиенте
Процедура ОтправитьСообщение_4(Команда)
	
	обрИмяСобытия = "Тест ошибок на Клиенте";
	ТаблицаЛогов = Новый Массив; //СОГ_ЛогОшибок.ПолучитьПустуюТаблицуЛогов();
	
	Попытка
		ИмяСобытия = "Генератор ошибки - начало";
		
		ТекстСообщения = "Сейчас поделим на ноль, и получим ошибку.";
		СОГ_ЛогОшибокКлиентСервер.ДобавитьСообщениеВЛог(ТаблицаЛогов, ТекущаяДата(), ТекстСообщения, "", 0, Ложь, Ложь);
		
		ДелениеНаНоль = 100 / 0; //Деление на ноль
		
	Исключение
		ИнфОбОшибке = ИнформацияОбОшибке();
		СОГ_ЛогОшибокКлиентСервер.ДобавитьСообщениеВЛог(ТаблицаЛогов, ТекущаяДата(), ИнфОбОшибке, ИмяСобытия, -11, Ложь, Ложь);
	КонецПопытки;
	СОГ_ЛогОшибокКлиентСервер.ДописатьВЛогИмяСобытия(ИмяСобытия, ТаблицаЛогов);
	
	
	Попытка
		ИмяСобытия = обрИмяСобытия;
		
		ТекстСообщения = "И на последок, просто обратимся к несуществующему параметру.";
		СОГ_ЛогОшибокКлиентСервер.ДобавитьСообщениеВЛог(ТаблицаЛогов, ТекущаяДата(), ТекстСообщения, "", 0, Ложь, Ложь);
		
		НетТакогоСвойства = ТаблицаЛогов.СерединаПустоты; //У массива нет такого
		
	Исключение
		ИнфОбОшибке = ИнформацияОбОшибке();
		СОГ_ЛогОшибокКлиентСервер.ДобавитьСообщениеВЛог(ТаблицаЛогов, ТекущаяДата(), ИнфОбОшибке, ИмяСобытия, -11, Ложь, Ложь);
		
		ИмяФайлаПриемника = Неопределено;
	КонецПопытки;
	СОГ_ЛогОшибокКлиентСервер.ДописатьВЛогИмяСобытия(ИмяСобытия, ТаблицаЛогов);
	
	
	
	Попытка
		ОтправитьЛогОшибокПоПочтеНаКиленте(ТаблицаЛогов,Неопределено,обрИмяСобытия, АдресПолучателяСообщения, ЭтотОбъект);
	Исключение
		ОписОшиб = ОписаниеОшибки();
		ТекстСообщения = "Ошибка при отправки уведомления об ошибках, ошибки не доставлены. Описание: "+ОписОшиб;
		СОГ_ДопФункции.ЗаписатьОшибкуВЖурнал(ОписОшиб, "Тест ошибок на Клиенте", Истина);
	КонецПопытки;
		
КонецПроцедуры

Генерация ошибок для тестовой отправки. По сути это шаблон для отправки уведомлений об ошибках, но с клиента.

Формирование тела письма, выполняется в общем модуле "СОГ_ЛогОшибок". Структура письма предопределено модулем.

Разработчик может только указать: Заголовок, краткое описание (тело письма) и передать вложение в качестве списка значения, через временное хранилище значений. В качестве данных для передачи информации используется массив с определённой структуры.

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

Поле "АдресПолучателяСообщения" необходимо заполнить или указать получателя в табличном поле "ТЗ_Получателей".  Пример заполнения: Adress@mail.ru

&НаКлиенте
Процедура ОтправитьСообщение_5(Команда)
	
	Отказ = Ложь;
	СгенерироватьОтправкуСообщения(АдресПолучателяСообщения, ТЗ_Получателей, Отказ);
	
	Если Отказ <> Истина Тогда 
		ТекстСообщения = "Сообщения сгенерированы, выполните регламент отправки уведомлений.";
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
	КонецЕсли;
	
КонецПроцедуры

//Формирование сообщения на основе модуля "СОГ_ЛогОшибок", с несколькими табличными частями и отчетом в виде вложения
&НаСервереБезКонтекста
Процедура СгенерироватьОтправкуСообщения(АдресПолучателяСообщения, Знач ТЗ_Получателей_Формы, Отказ)
	
	ТЗ_Получателей = ТЗ_Получателей_Формы.Выгрузить();
	
	Если ТЗ_Получателей.Количество() = 0 И Не ПустаяСтрока(АдресПолучателяСообщения) Тогда 
		СтрокаДанных = ТЗ_Получателей.Добавить();
		СтрокаДанных.Пользователь = АдресПолучателяСообщения;
		СтрокаДанных.email = Истина;
	КонецЕсли;
	
	ТЗ_ПолучателиУведомлений = Обработки["СОГ_ОтправкаПочтовыхСообщений"].ПолучитьПолучателейУведомлений(ТЗ_Получателей);
	Если ТЗ_ПолучателиУведомлений = Неопределено или Не ЗначениеЗаполнено(ТЗ_ПолучателиУведомлений) Тогда 
		ТекстСообщения = "Не заданы получатели списка сотрудников, сообщение не сформировано";
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,,,,Отказ);
		Возврат;
	КонецЕсли;
	
	ТЗ_Данные1 = СгенеритьНаборДаныхДляПримера_5_1(400);
	ТЗ_Данные2 = СгенеритьНаборДаныхДляПримера_5_2(10);
	
	
	//push
	//	Пример использования уведомления от типовых конфигураций, но для них нужна доработка.
	//	описание доработки в комментариях.
	МассивPush = ТЗ_ПолучателиУведомлений.НайтиСтроки(Новый Структура("push",Истина));
	Если МассивPush <> Неопределено И ЗначениеЗаполнено(МассивPush) Тогда 
		Попытка
			ОМ_НапоминанияПользователяСлужебный = ОбщегоНазначения.ОбщийМодуль("НапоминанияПользователяСлужебный");
			
			Документ = Неопределено;
			ТекстСообщения = "Для ВАС подготовлен отчет, посмотрите в почте.";
			
			Для Каждого СтрокаПолучателя Из МассивPush Цикл               
				
				ПараметрыНапоминания = Новый Структура;
				ПараметрыНапоминания.Вставить("Описание", ТекстСообщения);
				ПараметрыНапоминания.Вставить("ВремяСобытия", ТекущаяДата());
				ПараметрыНапоминания.Вставить("ИнтервалВремениНапоминания", 0);
				ПараметрыНапоминания.Вставить("Источник", Документ);
				ПараметрыНапоминания.Вставить("Идентификатор", "НовыйОтчет");
				ПараметрыНапоминания.Вставить("Пользователь", СтрокаПолучателя.Пользователь);
				
				//Для работы надо создать функцию "СОГ_СоздатьНапоминание" в общем модуле "НапоминанияПользователяСлужебный", которая вызывает функцию "СоздатьНапоминание(ПараметрыНапоминания)", с перечадей параметров.
				//	В типовой конфигурации "СоздатьНапоминание" не экспортная.
				//	Пример:
				//		Функция СОГ_СоздатьНапоминание(ПараметрыНапоминания) Экспорт 
				//			Возврат СоздатьНапоминание(ПараметрыНапоминания);
				//		КонецФункции
				
				Напоминание = ОМ_НапоминанияПользователяСлужебный.СОГ_СоздатьНапоминание(ПараметрыНапоминания); //Вызов "НапоминанияПользователяСлужебный.СоздатьНапоминание" - Это не экспортная функция, так что через расширение можно подредактировать
				ОМ_НапоминанияПользователяСлужебный.ПодключитьНапоминание(Напоминание);
				
			КонецЦикла;
			
		Исключение
			ИнфОшиб = ИнформацияОбОшибке();
			ИнфОшиб_Кратко = КраткоеПредставлениеОшибки(ИнфОшиб);
			ТекстСообщения = "Нет возможности создать уведомление... Описание: "+ИнфОшиб_Кратко;
			ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
		КонецПопытки;
	КонецЕсли;
	
	
	//email
	МассивEmail = ТЗ_ПолучателиУведомлений.НайтиСтроки(Новый Структура("email",Истина));
	
	//Проверить... есть ли вообще адреса получатели...
	ЕстьАдрес = Ложь;
	Для Каждого АдресПочта Из МассивEmail Цикл 
		Если Не ПустаяСтрока(АдресПочта) Тогда
			ЕстьАдрес = Истина;
			Прервать;
		КонецЕсли;
	КонецЦикла;
	Если ЕстьАдрес <> Истина Тогда 
		ТекстСообщения = "Не заданы получатели сообщений по e-mail, сообщение не отправлено.";
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,,,,Отказ);
		Возврат;
	КонецЕсли;
	
	ИдентификаторОтправителя = "";
	
	ТЗ_ПолучателиУведомлений_Копия = ТЗ_ПолучателиУведомлений.Скопировать(МассивEmail);
	ПолучателиСообщений = ТЗ_ПолучателиУведомлений_Копия.ВыгрузитьКолонку("АдресПочты");
	
	ТекстПоясненияПисьму = "Это тестовое сообщение в качестве примера возможности модуля ""СОГ_ЛогОшибок"" и обработки ""СОГ_ОтправкаПочтовыхСообщений"".";
	
	стрПараметраОтправки = СОГ_ЛогОшибок.ПолучитьСтруктуруДляОтправкиПисем();
	стрПараметраОтправки.ТемаПисьма				  = "Пример сообщения минимум ("+Строка(ТЗ_Данные2.Количество())+") от "+Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy");
	стрПараметраОтправки.ОсновноеЗаголовок		  = "В примере создано записей: "+Строка(ТЗ_Данные1.Количество());
	стрПараметраОтправки.ТекстПоясненияПисьму_HTML = "";
	стрПараметраОтправки.ТекстПоясненияПисьму	  = ТекстПоясненияПисьму;
	стрПараметраОтправки.ОсновнаяНужнаяСтраница	  = "";
	стрПараметраОтправки.ПолучателиСообщений	  = ПолучателиСообщений;
	стрПараметраОтправки.ИдентификаторОтправителя = ИдентификаторОтправителя;
	стрПараметраОтправки.ГруппироватьПолучателей  = Истина; //Одним письмом, если сможет...
	//
	стрПараметраОтправки.ТолькоЭтотОтправитель	  = Ложь;
	//
	стрПараметраОтправки.ЗаголовкиТаблицы = СОГ_ЛогОшибок.ПолучитьЗаголокиИзТаблицыЗначений(ТЗ_Данные2, Неопределено);
	
	ЗаголовкиТаблицы_ТаблДок = СОГ_ЛогОшибок.ПолучитьЗаголокиИзТаблицыЗначений(ТЗ_Данные1);
	
	МассивЗаголовка = Новый Массив;
	МассивЗаголовка.Добавить(стрПараметраОтправки.ТемаПисьма);
	МассивЗаголовка.Добавить(стрПараметраОтправки.ОсновноеЗаголовок);
	
	//ПараметрыСтруктуры = "ТабличныйДокумент,СинонимМакета,ИмяМакета,";
	КоллекцияПечатныхФорм = Новый Массив;
	стрПечати = СОГ_ЛогОшибок.ПолучитьПустуюСтруктуруПечати();
	стрПечати.ТабличныйДокумент = СОГ_ЛогОшибок.СформироватьОтчетПоРезультату(ТЗ_Данные1,МассивЗаголовка,ЗаголовкиТаблицы_ТаблДок);
	стрПечати.СинонимМакета		= "Генератор_Данных_5_от_"+Формат(ТекущаяДата(),"ДФ='dd.MM.yyyy HH-mm-ss'");
	КоллекцияПечатныхФорм.Добавить(стрПечати);
	
	//Получить Список значений - его тоже можно передать во вложение, но мы так же выполним через "ДобавитьВложениеДляОтправки_Массив"
	спсВложение = СОГ_ЛогОшибок.ПолучитьСписокЗначенийВложений(КоллекцияПечатныхФорм, ТипФайлаТабличногоДокумента.XLSX);		
	
	Вложение = Неопределено;
	МенОбрОПС = Обработки["СОГ_ОтправкаПочтовыхСообщений"];
	//
	Если спсВложение.Количество() > 0 Тогда 
		Для Каждого ЗначСпс Из спсВложение Цикл 
			ИмяФайла = ЗначСпс.Представление;
			ДД = ЗначСпс.Значение;
			МенОбрОПС.ДобавитьВложениеДляОтправки_Массив(ДД, ИмяФайла, Вложение, Ложь);
		КонецЦикла;
	КонецЕсли;
	
	стрПараметраОтправки.Вложение = Вложение;
	
	ТаблицаЛогов = СОГ_ЛогОшибок.ПолучитьПустуюТаблицуЛогов();
	
	пОтказ = Ложь;
	СОГ_ЛогОшибок.ОтправкаНепрочитанныйЛогОшибок(ТЗ_Данные2, стрПараметраОтправки, ТаблицаЛогов, пОтказ);
	
	Если пОтказ = Истина Тогда 
		Отказ = Истина;
	КонецЕсли;
	
	//Сообщим о ошибках, если таковые встретились...
	Если ТаблицаЛогов.Количество() > 0 Тогда 
		Для Каждого СтрокаОшибки Из ТаблицаЛогов Цикл 
			СОГ_ЛогОшибокКлиентСервер.СообщитьОбОшибкеПользователю(СтрокаОшибки, "", Ложь);
		КонецЦикла;
	КонецЕсли;
	
КонецПроцедуры

Генератор таблицы значения для тестовой отправки.

&НаСервереБезКонтекста
Функция СгенеритьНаборДаныхДляПримера_5_1(Количество)
	
	ТЗ_Данные = Новый ТаблицаЗначений;
	ТЗ_Данные.Колонки.Добавить("ИмяСобытия", Новый ОписаниеТипов("Строка"));  //Служебное поле, обязательное в любой таблице значений!!!
	//
	ТЗ_Данные.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Строка"), "Наименование поля");
	ТЗ_Данные.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата"), "Дата значения");
	ТЗ_Данные.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"), "Сумма сумм");
	ТЗ_Данные.Колонки.Добавить("Описание", Новый ОписаниеТипов("Строка"), "Строка описания");
	
	Для Сч = 1 По Количество Цикл
		СтрокаДанных = ТЗ_Данные.Добавить();
		СтрокаДанных.Наименование = "Наименование № "+Строка(Сч);
		СтрокаДанных.Дата = ТекущаяДата();
		
		Случайный = Новый ГенераторСлучайныхЧисел(Сч);
		Число_ = Случайный.СлучайноеЧисло(0,Сч);
		
		СтрокаДанных.Сумма = Сч*Число_;
		СтрокаДанных.Описание = ""+СтрокаДанных.Наименование+" от "+Строка(СтрокаДанных.Дата)+" = "+Строка(СтрокаДанных.Сумма);
	КонецЦикла;
	
	Возврат ТЗ_Данные;
КонецФункции

Генератор таблицы значения для тестовой отправки.

&НаСервереБезКонтекста
Функция СгенеритьНаборДаныхДляПримера_5_2(Количество)
	
	ТЗ_Данные = Новый ТаблицаЗначений;
	ТЗ_Данные.Колонки.Добавить("ИмяСобытия", Новый ОписаниеТипов("Строка"));  //Служебное поле, обязательное в любой таблице значений!!!
	//
	ТЗ_Данные.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Строка"), "Наименование поля");
	ТЗ_Данные.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"), "Сумма сумм");
	
	Для Сч = 1 По Количество Цикл
		СтрокаДанных = ТЗ_Данные.Добавить();
		СтрокаДанных.Наименование = "Наименование видимо № "+Строка(Сч);
		
		Случайный = Новый ГенераторСлучайныхЧисел(Сч);
		Число_ = Случайный.СлучайноеЧисло(0,Сч);
		
		СтрокаДанных.Сумма = Сч*Число_;
	КонецЦикла;
	
	Возврат ТЗ_Данные;
КонецФункции

Поле "АдресПолучателяСообщения" необходимо заполнить или указать получателя в табличном поле "ТЗ_Получателей".  Пример заполнения: Adress@mail.ru

&НаКлиенте
Процедура ОтправитьСообщение_6(Команда)
	
	Файл_АдресВХ = Неопределено;
	Файл_ИмяФайла = Неопределено;
	Если Не ПустаяСтрока(ПутьКартинки) Тогда 
		Файл = Новый Файл(ПутьКартинки);
		Если Файл.Существует() Тогда 
			ДД = Новый ДвоичныеДанные(ПутьКартинки);
			Файл_АдресВХ = ПоместитьВоВременноеХранилище(ДД,УникальныйИдентификатор);
			Файл_ИмяФайла = Файл.Имя;
		КонецЕсли;
	КонецЕсли;
	
	
	Отказ = Ложь;
	СгенерироватьОтправкуСообщения_2(АдресПолучателяСообщения, ТЗ_Получателей, Файл_АдресВХ,Файл_ИмяФайла, Отказ);
	
	Если Отказ <> Истина Тогда 
		ТекстСообщения = "Сообщения сгенерированы, выполните регламент отправки уведомлений.";
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
	КонецЕсли;
	
КонецПроцедуры

//Формирование сообщения на основе модуля "СОГ_ЛогОшибок", с несколькими табличными частями и отчетом в виде вложения
&НаСервереБезКонтекста
Процедура СгенерироватьОтправкуСообщения_2(АдресПолучателяСообщения, Знач ТЗ_Получателей_Формы, Файл_АдресВХ,Файл_ИмяФайла, Отказ)
	
	//Файл_АдресВХ
	ДД_Файл = Неопределено;
	Если ЭтоАдресВременногоХранилища(Файл_АдресВХ) Тогда 
		ДД_Файл = ПолучитьИзВременногоХранилища(Файл_АдресВХ);
		Если ПустаяСтрока(Файл_ИмяФайла) Тогда 
			Файл_ИмяФайла = "ФайлВложения_Картинки.png";
		КонецЕсли;
	КонецЕсли;
	
	
	
	ТЗ_Получателей = ТЗ_Получателей_Формы.Выгрузить();
	
	Если ТЗ_Получателей.Количество() = 0 И Не ПустаяСтрока(АдресПолучателяСообщения) Тогда 
		СтрокаДанных = ТЗ_Получателей.Добавить();
		СтрокаДанных.Пользователь = АдресПолучателяСообщения;
		СтрокаДанных.email = Истина;
	КонецЕсли;
	
	ТЗ_ПолучателиУведомлений = Обработки["СОГ_ОтправкаПочтовыхСообщений"].ПолучитьПолучателейУведомлений(ТЗ_Получателей);
	Если ТЗ_ПолучателиУведомлений = Неопределено или Не ЗначениеЗаполнено(ТЗ_ПолучателиУведомлений) Тогда 
		ТекстСообщения = "Не заданы получатели списка сотрудников, сообщение не сформировано";
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,,,,Отказ);
		Возврат;
	КонецЕсли;
	
	//Создадим разные таблицы значений, с разными колонками.
	ТЗ_Данные1 = СгенеритьНаборДаныхДляПримера_5_1(50);
	ТЗ_Данные2 = СгенеритьНаборДаныхДляПримера_5_2(20);
	
	
	
	//email
	МассивEmail = ТЗ_ПолучателиУведомлений.НайтиСтроки(Новый Структура("email",Истина));
	
	//Проверить... есть ли вообще адреса получатели...
	ЕстьАдрес = Ложь;
	Для Каждого АдресПочта Из МассивEmail Цикл 
		Если Не ПустаяСтрока(АдресПочта) Тогда
			ЕстьАдрес = Истина;
			Прервать;
		КонецЕсли;
	КонецЦикла;
	Если ЕстьАдрес <> Истина Тогда 
		ТекстСообщения = "Не заданы получатели сообщений по e-mail, сообщение не отправлено.";
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,,,,Отказ);
		Возврат;
	КонецЕсли;
	
	
	ИдентификаторОтправителя = "";
	
	ТЗ_ПолучателиУведомлений_Копия = ТЗ_ПолучателиУведомлений.Скопировать(МассивEmail);
	ПолучателиСообщений = ТЗ_ПолучателиУведомлений_Копия.ВыгрузитьКолонку("АдресПочты");
	
	ТекстПоясненияПисьму = "Это тестовое сообщение в качестве примера возможности модуля ""СОГ_ЛогОшибок"" и обработки ""СОГ_ОтправкаПочтовыхСообщений"".";
	
	стрПараметраОтправки = СОГ_ЛогОшибок.ПолучитьСтруктуруДляОтправкиПисем();
	стрПараметраОтправки.ТемаПисьма				  = "Пример сообщения № 2 минимум ("+Строка(ТЗ_Данные1.Количество())+" и "+Строка(ТЗ_Данные2.Количество())+") от "+Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy");
	стрПараметраОтправки.ОсновноеЗаголовок		  = "В примере создано записей: "+Строка(ТЗ_Данные1.Количество())+" и "+Строка(ТЗ_Данные2.Количество());
	стрПараметраОтправки.ТекстПоясненияПисьму_HTML = "";
	стрПараметраОтправки.ТекстПоясненияПисьму	  = ТекстПоясненияПисьму;
	стрПараметраОтправки.ОсновнаяНужнаяСтраница	  = "";
	стрПараметраОтправки.ПолучателиСообщений	  = ПолучателиСообщений;
	стрПараметраОтправки.ИдентификаторОтправителя = ИдентификаторОтправителя;
	стрПараметраОтправки.ГруппироватьПолучателей  = Истина; //Одним письмом, если сможет...
	//
	стрПараметраОтправки.ТолькоЭтотОтправитель	  = Ложь;
	//
	
	//Поместим заголовки в массив, последовательнось массива "Массив_ТЗ" должно совпадать с последовательностью зоголовков.
	МассивЗаголовок = Новый Массив();
	
	ЗаголовкиТаблицы_ТаблДок_1 = СОГ_ЛогОшибок.ПолучитьЗаголокиИзТаблицыЗначений(ТЗ_Данные1);
	МассивЗаголовок.Добавить(ЗаголовкиТаблицы_ТаблДок_1);
	
	ЗаголовкиТаблицы_ТаблДок_2 = СОГ_ЛогОшибок.ПолучитьЗаголокиИзТаблицыЗначений(ТЗ_Данные2);
	МассивЗаголовок.Добавить(ЗаголовкиТаблицы_ТаблДок_2);
	
	стрПараметраОтправки.ЗаголовкиТаблицы = МассивЗаголовок;
	
	//Заголовки для печатных форм.
	МассивЗаголовка = Новый Массив;
	МассивЗаголовка.Добавить(стрПараметраОтправки.ТемаПисьма);
	МассивЗаголовка.Добавить(стрПараметраОтправки.ОсновноеЗаголовок);
	
	//Создадим ексельки из таблиц значений.
	//ПараметрыСтруктуры = "ТабличныйДокумент,СинонимМакета,ИмяМакета,";
	КоллекцияПечатныхФорм = Новый Массив;
	
	стрПечати = СОГ_ЛогОшибок.ПолучитьПустуюСтруктуруПечати();
	стрПечати.ТабличныйДокумент = СОГ_ЛогОшибок.СформироватьОтчетПоРезультату(ТЗ_Данные1,МассивЗаголовка,ЗаголовкиТаблицы_ТаблДок_1);
	стрПечати.СинонимМакета		= "Генератор_Данных_6_1_от_"+Формат(ТекущаяДата(),"ДФ='dd.MM.yyyy HH-mm-ss'");
	КоллекцияПечатныхФорм.Добавить(стрПечати);
	
	стрПечати = СОГ_ЛогОшибок.ПолучитьПустуюСтруктуруПечати();
	стрПечати.ТабличныйДокумент = СОГ_ЛогОшибок.СформироватьОтчетПоРезультату(ТЗ_Данные2,МассивЗаголовка,ЗаголовкиТаблицы_ТаблДок_2);
	стрПечати.СинонимМакета		= "Генератор_Данных_6_2_от_"+Формат(ТекущаяДата(),"ДФ='dd.MM.yyyy HH-mm-ss'");
	КоллекцияПечатныхФорм.Добавить(стрПечати);
	
	//Получить Список значений - его тоже можно передать во вложение, но мы так же выполним через "ДобавитьВложениеДляОтправки_Массив"
	спсВложение = СОГ_ЛогОшибок.ПолучитьСписокЗначенийВложений(КоллекцияПечатныхФорм, ТипФайлаТабличногоДокумента.XLSX);		
	
	//Добавим в виде вложения
	Вложение = Неопределено;
	МенОбрОПС = Обработки["СОГ_ОтправкаПочтовыхСообщений"];
	//
	Если спсВложение.Количество() > 0 Тогда 
		Для Каждого ЗначСпс Из спсВложение Цикл 
			ИмяФайла = ЗначСпс.Представление;
			ДД = ЗначСпс.Значение;
			МенОбрОПС.ДобавитьВложениеДляОтправки_Массив(ДД, ИмяФайла, Вложение, Ложь);
		КонецЦикла;
	КонецЕсли;
	
	//Добавим картинку во вложение
	Если ДД_Файл <> Неопределено Тогда 
		МенОбрОПС.ДобавитьВложениеДляОтправки_Массив(ДД_Файл, Файл_ИмяФайла, Вложение, Ложь);
	КонецЕсли;
	
	стрПараметраОтправки.Вложение = Вложение;
	
	
	ТаблицаЛогов = СОГ_ЛогОшибок.ПолучитьПустуюТаблицуЛогов();
	
	//Массив Таблиц значений для вывода в виде тела в письмо. 
	//	Помните, что у модуля "СОГ_ЛогОшибок" по умолчанию ограничение табличной части на одно письмо выставлено в 100 строк. 
	//		Для подсчета ограничения, строки от неолькольких таблиц значений суммируются
	//	Ограничение редактируется параметром "КоличествоСтрокВПисьме" (переменная: стрПараметраОтправки)
	Массив_ТЗ = Новый Массив;
	Массив_ТЗ.Добавить(ТЗ_Данные1);
	Массив_ТЗ.Добавить(ТЗ_Данные2);
	
	пОтказ = Ложь;
	СОГ_ЛогОшибок.ОтправкаНепрочитанныйЛогОшибок(Массив_ТЗ, стрПараметраОтправки, ТаблицаЛогов, пОтказ);
	
	Если пОтказ = Истина Тогда 
		Отказ = Истина;
	КонецЕсли;
	
	//Сообщим о ошибках, если таковые встретились...
	Если ТаблицаЛогов.Количество() > 0 Тогда 
		Для Каждого СтрокаОшибки Из ТаблицаЛогов Цикл 
			СОГ_ЛогОшибокКлиентСервер.СообщитьОбОшибкеПользователю(СтрокаОшибки, "", Ложь);
		КонецЦикла;
	КонецЕсли;
	
КонецПроцедуры

 Генератор таблицы значения для тестовой отправки.

&НаСервереБезКонтекста
Функция СгенеритьНаборДаныхДляПримера_5_1(Количество)
	
	ТЗ_Данные = Новый ТаблицаЗначений;
	ТЗ_Данные.Колонки.Добавить("ИмяСобытия", Новый ОписаниеТипов("Строка"));  //Служебное поле, обязательное в любой таблице значений!!!
	//
	ТЗ_Данные.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Строка"), "Наименование поля");
	ТЗ_Данные.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата"), "Дата значения");
	ТЗ_Данные.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"), "Сумма сумм");
	ТЗ_Данные.Колонки.Добавить("Описание", Новый ОписаниеТипов("Строка"), "Строка описания");
	
	Для Сч = 1 По Количество Цикл
		СтрокаДанных = ТЗ_Данные.Добавить();
		СтрокаДанных.Наименование = "Наименование № "+Строка(Сч);
		СтрокаДанных.Дата = ТекущаяДата();
		
		Случайный = Новый ГенераторСлучайныхЧисел(Сч);
		Число_ = Случайный.СлучайноеЧисло(0,Сч);
		
		СтрокаДанных.Сумма = Сч*Число_;
		СтрокаДанных.Описание = ""+СтрокаДанных.Наименование+" от "+Строка(СтрокаДанных.Дата)+" = "+Строка(СтрокаДанных.Сумма);
	КонецЦикла;
	
	Возврат ТЗ_Данные;
КонецФункции

 Генератор таблицы значения для тестовой отправки.

&НаСервереБезКонтекста
Функция СгенеритьНаборДаныхДляПримера_5_2(Количество)
	
	ТЗ_Данные = Новый ТаблицаЗначений;
	ТЗ_Данные.Колонки.Добавить("ИмяСобытия", Новый ОписаниеТипов("Строка"));  //Служебное поле, обязательное в любой таблице значений!!!
	//
	ТЗ_Данные.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Строка"), "Наименование поля");
	ТЗ_Данные.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"), "Сумма сумм");
	
	Для Сч = 1 По Количество Цикл
		СтрокаДанных = ТЗ_Данные.Добавить();
		СтрокаДанных.Наименование = "Наименование видимо № "+Строка(Сч);
		
		Случайный = Новый ГенераторСлучайныхЧисел(Сч);
		Число_ = Случайный.СлучайноеЧисло(0,Сч);
		
		СтрокаДанных.Сумма = Сч*Число_;
	КонецЦикла;
	
	Возврат ТЗ_Данные;
КонецФункции

Поле "АдресПолучателяСообщения" необходимо заполнить или указать получателя в табличном поле "ТЗ_Получателей".  Пример заполнения: Adress@mail.ru

&НаКлиенте
Процедура ОтправитьСообщение_7(Команда)
	
	Отказ = Ложь;
	СгенерироватьОтправкуСообщения_3(АдресПолучателяСообщения, ТЗ_Получателей, Отказ);
	
	Если Отказ <> Истина Тогда 
		ТекстСообщения = "Сообщения сгенерированы, выполните регламент отправки уведомлений.";
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
	КонецЕсли;
	
КонецПроцедуры

//Формирование сообщения на основе модуля "СОГ_ЛогОшибок", с несколькими табличными частями и отчетом в виде вложения
&НаСервереБезКонтекста
Процедура СгенерироватьОтправкуСообщения_3(АдресПолучателяСообщения, Знач ТЗ_Получателей_Формы, Отказ)
	
	ТЗ_Получателей = ТЗ_Получателей_Формы.Выгрузить();
	
	Если ТЗ_Получателей.Количество() = 0 И Не ПустаяСтрока(АдресПолучателяСообщения) Тогда 
		СтрокаДанных = ТЗ_Получателей.Добавить();
		СтрокаДанных.Пользователь = АдресПолучателяСообщения;
		СтрокаДанных.email = Истина;
	КонецЕсли;
	
	ТЗ_ПолучателиУведомлений = Обработки["СОГ_ОтправкаПочтовыхСообщений"].ПолучитьПолучателейУведомлений(ТЗ_Получателей);
	Если ТЗ_ПолучателиУведомлений = Неопределено или Не ЗначениеЗаполнено(ТЗ_ПолучателиУведомлений) Тогда 
		ТекстСообщения = "Не заданы получатели списка сотрудников, сообщение не сформировано";
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,,,,Отказ);
		Возврат;
	КонецЕсли;
	
	//Создадим большую таблицу значения.
	ТЗ_Данные1 = СгенеритьНаборДаныхДляПримера_5_1(400);
	
	
	
	//email
	МассивEmail = ТЗ_ПолучателиУведомлений.НайтиСтроки(Новый Структура("email",Истина));
	
	//Проверить... есть ли вообще адреса получатели...
	ЕстьАдрес = Ложь;
	Для Каждого АдресПочта Из МассивEmail Цикл 
		Если Не ПустаяСтрока(АдресПочта) Тогда
			ЕстьАдрес = Истина;
			Прервать;
		КонецЕсли;
	КонецЦикла;
	Если ЕстьАдрес <> Истина Тогда 
		ТекстСообщения = "Не заданы получатели сообщений по e-mail, сообщение не отправлено.";
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,,,,Отказ);
		Возврат;
	КонецЕсли;
	
	
	ИдентификаторОтправителя = "";
	
	ТЗ_ПолучателиУведомлений_Копия = ТЗ_ПолучателиУведомлений.Скопировать(МассивEmail);
	ПолучателиСообщений = ТЗ_ПолучателиУведомлений_Копия.ВыгрузитьКолонку("АдресПочты");
	
	ТекстПоясненияПисьму = "Это тестовое сообщение в качестве примера возможности модуля ""СОГ_ЛогОшибок"" и обработки ""СОГ_ОтправкаПочтовыхСообщений"".
	|
	|И максимальное количество для сообщений 100 записей, было создано 4 письма.";
	
	стрПараметраОтправки = СОГ_ЛогОшибок.ПолучитьСтруктуруДляОтправкиПисем();
	стрПараметраОтправки.ТемаПисьма				  = "Пример сообщения № 3 минимум ("+Строка(ТЗ_Данные1.Количество())+") от "+Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy");
	стрПараметраОтправки.ОсновноеЗаголовок		  = "В примере создано записей: "+Строка(ТЗ_Данные1.Количество());
	стрПараметраОтправки.ТекстПоясненияПисьму_HTML = "";
	стрПараметраОтправки.ТекстПоясненияПисьму	  = ТекстПоясненияПисьму;
	стрПараметраОтправки.ОсновнаяНужнаяСтраница	  = "";
	стрПараметраОтправки.ПолучателиСообщений	  = ПолучателиСообщений;
	стрПараметраОтправки.ИдентификаторОтправителя = ИдентификаторОтправителя;
	стрПараметраОтправки.ГруппироватьПолучателей  = Истина; //Одним письмом, если сможет...
	//
	стрПараметраОтправки.ТолькоЭтотОтправитель	  = Ложь;
	//
	//стрПараметраОтправки.КоличествоСтрокВПисьме	  = 100; //Максимальное количество записей из таблицы значения, по умолчанию 100
	
	стрПараметраОтправки.ЗаголовкиТаблицы = СОГ_ЛогОшибок.ПолучитьЗаголокиИзТаблицыЗначений(ТЗ_Данные1);
	
	МассивЗаголовка = Новый Массив;
	МассивЗаголовка.Добавить(стрПараметраОтправки.ТемаПисьма);
	МассивЗаголовка.Добавить(стрПараметраОтправки.ОсновноеЗаголовок);
	
	//Сформируем на основе таблицы значения отчет.
	//ПараметрыСтруктуры = "ТабличныйДокумент,СинонимМакета,ИмяМакета,";
	КоллекцияПечатныхФорм = Новый Массив;
	
	стрПечати = СОГ_ЛогОшибок.ПолучитьПустуюСтруктуруПечати();
	стрПечати.ТабличныйДокумент = СОГ_ЛогОшибок.СформироватьОтчетПоРезультату(ТЗ_Данные1,МассивЗаголовка,стрПараметраОтправки.ЗаголовкиТаблицы);
	стрПечати.СинонимМакета		= "Генератор_Данных_7_1_от_"+Формат(ТекущаяДата(),"ДФ='dd.MM.yyyy HH-mm-ss'");
	КоллекцияПечатныхФорм.Добавить(стрПечати);
	
	//Получить Список значений - его тоже можно передать во вложение, но мы так же выполним через "ДобавитьВложениеДляОтправки_Массив"
	спсВложение = СОГ_ЛогОшибок.ПолучитьСписокЗначенийВложений(КоллекцияПечатныхФорм, ТипФайлаТабличногоДокумента.XLSX);		
	
	Вложение = Неопределено;
	МенОбрОПС = Обработки["СОГ_ОтправкаПочтовыхСообщений"];
	//
	Если спсВложение.Количество() > 0 Тогда 
		Для Каждого ЗначСпс Из спсВложение Цикл 
			ИмяФайла = ЗначСпс.Представление;
			ДД = ЗначСпс.Значение;
			МенОбрОПС.ДобавитьВложениеДляОтправки_Массив(ДД, ИмяФайла, Вложение, Ложь);
		КонецЦикла;
	КонецЕсли;
	
	стрПараметраОтправки.Вложение = Вложение;
	
	
	ТаблицаЛогов = СОГ_ЛогОшибок.ПолучитьПустуюТаблицуЛогов();
	
	пОтказ = Ложь;
	СОГ_ЛогОшибок.ОтправкаНепрочитанныйЛогОшибок(ТЗ_Данные1, стрПараметраОтправки, ТаблицаЛогов, пОтказ);
	
	Если пОтказ = Истина Тогда 
		Отказ = Истина;
	КонецЕсли;
	
	//Сообщим о ошибках, если таковые встретились...
	Если ТаблицаЛогов.Количество() > 0 Тогда 
		Для Каждого СтрокаОшибки Из ТаблицаЛогов Цикл 
			СОГ_ЛогОшибокКлиентСервер.СообщитьОбОшибкеПользователю(СтрокаОшибки, "", Ложь);
		КонецЦикла;
	КонецЕсли;
	
КонецПроцедуры

 Генератор таблицы значения для тестовой отправки.

&НаСервереБезКонтекста
Функция СгенеритьНаборДаныхДляПримера_5_1(Количество)
	
	ТЗ_Данные = Новый ТаблицаЗначений;
	ТЗ_Данные.Колонки.Добавить("ИмяСобытия", Новый ОписаниеТипов("Строка"));  //Служебное поле, обязательное в любой таблице значений!!!
	//
	ТЗ_Данные.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Строка"), "Наименование поля");
	ТЗ_Данные.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата"), "Дата значения");
	ТЗ_Данные.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"), "Сумма сумм");
	ТЗ_Данные.Колонки.Добавить("Описание", Новый ОписаниеТипов("Строка"), "Строка описания");
	
	Для Сч = 1 По Количество Цикл
		СтрокаДанных = ТЗ_Данные.Добавить();
		СтрокаДанных.Наименование = "Наименование № "+Строка(Сч);
		СтрокаДанных.Дата = ТекущаяДата();
		
		Случайный = Новый ГенераторСлучайныхЧисел(Сч);
		Число_ = Случайный.СлучайноеЧисло(0,Сч);
		
		СтрокаДанных.Сумма = Сч*Число_;
		СтрокаДанных.Описание = ""+СтрокаДанных.Наименование+" от "+Строка(СтрокаДанных.Дата)+" = "+Строка(СтрокаДанных.Сумма);
	КонецЦикла;
	
	Возврат ТЗ_Данные;
КонецФункции

На картинках только первое два письма. Остальные письма однотипны.

Первое письмо:

Второе письмо:

Поле "АдресПолучателяСообщения" необходимо заполнить или указать получателя в табличном поле "ТЗ_Получателей".  Пример заполнения: Adress@mail.ru

&НаКлиенте
Процедура ОтправитьСообщение_8(Команда)
	
	Отказ = Ложь;
	СгенерироватьОтправкуСообщения_4(АдресПолучателяСообщения, ТЗ_Получателей, Отказ);
	
	Если Отказ <> Истина Тогда 
		ТекстСообщения = "Сообщения сгенерированы, выполните регламент отправки уведомлений.";
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
	КонецЕсли;
	
КонецПроцедуры

//Формирование сообщения на основе модуля "СОГ_ЛогОшибок", с несколькими табличными частями и отчетом в виде вложения
&НаСервереБезКонтекста
Процедура СгенерироватьОтправкуСообщения_4(АдресПолучателяСообщения, Знач ТЗ_Получателей_Формы, Отказ)
	
	ТЗ_Получателей = ТЗ_Получателей_Формы.Выгрузить();
	
	Если ТЗ_Получателей.Количество() = 0 И Не ПустаяСтрока(АдресПолучателяСообщения) Тогда 
		СтрокаДанных = ТЗ_Получателей.Добавить();
		СтрокаДанных.Пользователь = АдресПолучателяСообщения;
		СтрокаДанных.email = Истина;
	КонецЕсли;
	
	ТЗ_ПолучателиУведомлений = Обработки["СОГ_ОтправкаПочтовыхСообщений"].ПолучитьПолучателейУведомлений(ТЗ_Получателей);
	Если ТЗ_ПолучателиУведомлений = Неопределено или Не ЗначениеЗаполнено(ТЗ_ПолучателиУведомлений) Тогда 
		ТекстСообщения = "Не заданы получатели списка сотрудников, сообщение не сформировано";
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,,,,Отказ);
		Возврат;
	КонецЕсли;
	
	//Создадим большую таблицу значения.
	//	И поместим её копию в виде 10-и строк.
	ТЗ_Данные1 = СгенеритьНаборДаныхДляПримера_5_1(400);
	ТЗ_Данные2 = ТЗ_Данные1.СкопироватьКолонки();
	Для Сч = 1 По 10 Цикл 
		СтрокаДанных = ТЗ_Данные1[Сч-1];
		НоваяСтрока = ТЗ_Данные2.Добавить();
		ЗаполнитьЗначенияСвойств(НоваяСтрока,СтрокаДанных);
	КонецЦикла;
	
	
	//email
	МассивEmail = ТЗ_ПолучателиУведомлений.НайтиСтроки(Новый Структура("email",Истина));
	
	//Проверить... есть ли вообще адреса получатели...
	ЕстьАдрес = Ложь;
	Для Каждого АдресПочта Из МассивEmail Цикл 
		Если Не ПустаяСтрока(АдресПочта) Тогда
			ЕстьАдрес = Истина;
			Прервать;
		КонецЕсли;
	КонецЦикла;
	Если ЕстьАдрес <> Истина Тогда 
		ТекстСообщения = "Не заданы получатели сообщений по e-mail, сообщение не отправлено.";
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,,,,Отказ);
		Возврат;
	КонецЕсли;
	
	
	ИдентификаторОтправителя = "";
	
	ТЗ_ПолучателиУведомлений_Копия = ТЗ_ПолучателиУведомлений.Скопировать(МассивEmail);
	ПолучателиСообщений = ТЗ_ПолучателиУведомлений_Копия.ВыгрузитьКолонку("АдресПочты");
	
	ТекстПоясненияПисьму = "Это тестовое сообщение в качестве примера возможности модуля ""СОГ_ЛогОшибок"" и обработки ""СОГ_ОтправкаПочтовыхСообщений"".";
	
	стрПараметраОтправки = СОГ_ЛогОшибок.ПолучитьСтруктуруДляОтправкиПисем();
	стрПараметраОтправки.ТемаПисьма				  = "Пример сообщения № 4 минимум ("+Строка(ТЗ_Данные2.Количество())+" из "+Строка(ТЗ_Данные1.Количество())+") от "+Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy");
	стрПараметраОтправки.ОсновноеЗаголовок		  = "В примере создано записей: "+Строка(ТЗ_Данные1.Количество());
	стрПараметраОтправки.ТекстПоясненияПисьму_HTML = "";
	стрПараметраОтправки.ТекстПоясненияПисьму	  = ТекстПоясненияПисьму;
	стрПараметраОтправки.ОсновнаяНужнаяСтраница	  = "";
	стрПараметраОтправки.ПолучателиСообщений	  = ПолучателиСообщений;
	стрПараметраОтправки.ИдентификаторОтправителя = ИдентификаторОтправителя;
	стрПараметраОтправки.ГруппироватьПолучателей  = Истина; //Одним письмом, если сможет...
	//
	стрПараметраОтправки.ТолькоЭтотОтправитель	  = Ложь;
	//
	//стрПараметраОтправки.КоличествоСтрокВПисьме	  = 100; //Максимальное количество записей из таблицы значения, по умолчанию 100
	
	//Заголовок только для таблицы с 10-тью строками.
	стрПараметраОтправки.ЗаголовкиТаблицы = СОГ_ЛогОшибок.ПолучитьЗаголокиИзТаблицыЗначений(ТЗ_Данные2);
	
	МассивЗаголовка = Новый Массив;
	МассивЗаголовка.Добавить(стрПараметраОтправки.ТемаПисьма);
	МассивЗаголовка.Добавить(стрПараметраОтправки.ОсновноеЗаголовок);
	
	//Сформируем на основе таблицы значения отчет.
	//ПараметрыСтруктуры = "ТабличныйДокумент,СинонимМакета,ИмяМакета,";
	КоллекцияПечатныхФорм = Новый Массив;
	
	стрПечати = СОГ_ЛогОшибок.ПолучитьПустуюСтруктуруПечати();
	стрПечати.ТабличныйДокумент = СОГ_ЛогОшибок.СформироватьОтчетПоРезультату(ТЗ_Данные1,МассивЗаголовка,СОГ_ЛогОшибок.ПолучитьЗаголокиИзТаблицыЗначений(ТЗ_Данные1));
	стрПечати.СинонимМакета		= "Генератор_Данных_8_1_от_"+Формат(ТекущаяДата(),"ДФ='dd.MM.yyyy HH-mm-ss'");
	КоллекцияПечатныхФорм.Добавить(стрПечати);
	
	//Получить Список значений - его тоже можно передать во вложение, но мы так же выполним через "ДобавитьВложениеДляОтправки_Массив"
	спсВложение = СОГ_ЛогОшибок.ПолучитьСписокЗначенийВложений(КоллекцияПечатныхФорм, ТипФайлаТабличногоДокумента.XLSX);		
	
	//Поместим отчет во вложение
	Вложение = Неопределено;
	МенОбрОПС = Обработки["СОГ_ОтправкаПочтовыхСообщений"];
	//
	Если спсВложение.Количество() > 0 Тогда 
		Для Каждого ЗначСпс Из спсВложение Цикл 
			ИмяФайла = ЗначСпс.Представление;
			ДД = ЗначСпс.Значение;
			МенОбрОПС.ДобавитьВложениеДляОтправки_Массив(ДД, ИмяФайла, Вложение, Ложь);
		КонецЦикла;
	КонецЕсли;
	
	стрПараметраОтправки.Вложение = Вложение;
	
	
	ТаблицаЛогов = СОГ_ЛогОшибок.ПолучитьПустуюТаблицуЛогов();
	
	//В письмо выводим только таблицу с 10-тью строками.
	
	пОтказ = Ложь;
	СОГ_ЛогОшибок.ОтправкаНепрочитанныйЛогОшибок(ТЗ_Данные2, стрПараметраОтправки, ТаблицаЛогов, пОтказ);
	
	Если пОтказ = Истина Тогда 
		Отказ = Истина;
	КонецЕсли;
	
	//Сообщим о ошибках, если таковые встретились...
	Если ТаблицаЛогов.Количество() > 0 Тогда 
		Для Каждого СтрокаОшибки Из ТаблицаЛогов Цикл 
			СОГ_ЛогОшибокКлиентСервер.СообщитьОбОшибкеПользователю(СтрокаОшибки, "", Ложь);
		КонецЦикла;
	КонецЕсли;
	
КонецПроцедуры

 Генератор таблицы значения для тестовой отправки.

&НаСервереБезКонтекста
Функция СгенеритьНаборДаныхДляПримера_5_1(Количество)
	
	ТЗ_Данные = Новый ТаблицаЗначений;
	ТЗ_Данные.Колонки.Добавить("ИмяСобытия", Новый ОписаниеТипов("Строка"));  //Служебное поле, обязательное в любой таблице значений!!!
	//
	ТЗ_Данные.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Строка"), "Наименование поля");
	ТЗ_Данные.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата"), "Дата значения");
	ТЗ_Данные.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"), "Сумма сумм");
	ТЗ_Данные.Колонки.Добавить("Описание", Новый ОписаниеТипов("Строка"), "Строка описания");
	
	Для Сч = 1 По Количество Цикл
		СтрокаДанных = ТЗ_Данные.Добавить();
		СтрокаДанных.Наименование = "Наименование № "+Строка(Сч);
		СтрокаДанных.Дата = ТекущаяДата();
		
		Случайный = Новый ГенераторСлучайныхЧисел(Сч);
		Число_ = Случайный.СлучайноеЧисло(0,Сч);
		
		СтрокаДанных.Сумма = Сч*Число_;
		СтрокаДанных.Описание = ""+СтрокаДанных.Наименование+" от "+Строка(СтрокаДанных.Дата)+" = "+Строка(СтрокаДанных.Сумма);
	КонецЦикла;
	
	Возврат ТЗ_Данные;
КонецФункции

&НаСервереБезКонтекста
Функция ПолучитьПредставлениеПочтовогоЯщика(Знач Пользователь)
	
	Если Пользователь = Неопределено или Не ЗначениеЗаполнено(Пользователь) Тогда 
		Возврат "";
	КонецЕсли;
	
	Если ТипЗнч(Пользователь) = Тип("СправочникСсылка.Пользователи") Тогда 
		
		Возврат ПолучитьПочтовыйАдресПользователя(Пользователь);
		
	ИначеЕсли ТипЗнч(Пользователь) = Тип("СправочникСсылка.ГруппыПользователей") Тогда 
		
		Возврат ПолучитьПредставленияПочтовыхАдресовПользователей(Пользователь);
		
	Иначе 
		Возврат "";
	КонецЕсли;
	
КонецФункции

&НаСервереБезКонтекста
Функция ПолучитьПочтовыйАдресПользователя(Пользователь)
	
	ПочтовыйАдресДляПолученияОтветов = "";
	
	Запрос = Новый Запрос;
	
	Запрос.УстановитьПараметр("Пользователь", Пользователь);
	
	Запрос.УстановитьПараметр("Вид", Справочники.ВидыКонтактнойИнформации.EmailПользователя);
	Запрос.УстановитьПараметр("Тип", Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);
	
	Запрос.Текст = 
	"ВЫБРАТЬ ПЕРВЫЕ 1
	|	ПользователиКонтактнаяИнформация.Ссылка КАК Ссылка,
	|	ПользователиКонтактнаяИнформация.Тип КАК Тип,
	|	ПользователиКонтактнаяИнформация.Вид КАК Вид,
	|	ПользователиКонтактнаяИнформация.Значение КАК Значение,
	|	ПользователиКонтактнаяИнформация.Представление КАК Представление
	|ИЗ
	|	Справочник.Пользователи.КонтактнаяИнформация КАК ПользователиКонтактнаяИнформация
	|ГДЕ
	|	ПользователиКонтактнаяИнформация.Ссылка = &Пользователь
	|	И ПользователиКонтактнаяИнформация.Тип = &Тип
	|	И ПользователиКонтактнаяИнформация.Вид = &Вид
	|	И ПользователиКонтактнаяИнформация.Представление <> """"";
	
	РезЗапроса = Запрос.Выполнить();
	Если Не РезЗапроса.Пустой() Тогда 
		Выборка = РезЗапроса.Выбрать();
		Выборка.Следующий();
		
		ПочтовыйАдресДляПолученияОтветов = СокрЛП(Выборка.Представление);
	КонецЕсли;
	
	Возврат ПочтовыйАдресДляПолученияОтветов;
КонецФункции

&НаСервереБезКонтекста
Функция ПолучитьПредставленияПочтовыхАдресовПользователей(ГруппаПользователей)
	
	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("ГруппаПользователей", ГруппаПользователей);
	
	Запрос.УстановитьПараметр("Вид", Справочники["ВидыКонтактнойИнформации"].EmailПользователя);
	Запрос.УстановитьПараметр("Тип", Перечисления["ТипыКонтактнойИнформации"].АдресЭлектроннойПочты);
	
	ПустойУИД = Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000");
	
	Запрос.УстановитьПараметр("ПустойУИД", ПустойУИД);
	
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	СпрГруппыПользователей.Ссылка КАК Ссылка,
	|	ГруппыПользователейСостав.Пользователь КАК Пользователь,
	|	ЕСТЬNULL(ПользователиКонтактнаяИнформация.Представление, """") КАК Email,
	|	ЕСТЬNULL(СпрПользователи.ИдентификаторПользователяИБ, НЕОПРЕДЕЛЕНО) КАК ИдентификаторПользователяИБ
	|ИЗ
	|	Справочник.ГруппыПользователей КАК СпрГруппыПользователей
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ГруппыПользователей.Состав КАК ГруппыПользователейСостав
	|		ПО СпрГруппыПользователей.Ссылка = ГруппыПользователейСостав.Ссылка
	|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Пользователи.КонтактнаяИнформация КАК ПользователиКонтактнаяИнформация
	|		ПО (ГруппыПользователейСостав.Пользователь = ПользователиКонтактнаяИнформация.Ссылка)
	|			И (ПользователиКонтактнаяИнформация.Тип = &Тип)
	|			И (ПользователиКонтактнаяИнформация.Вид = &Вид)
	|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Пользователи КАК СпрПользователи
	|		ПО (ГруппыПользователейСостав.Пользователь = СпрПользователи.Ссылка)
	|			И (СпрПользователи.Недействителен <> ИСТИНА)
	|			И (СпрПользователи.ИдентификаторПользователяИБ <> &ПустойУИД)
	|ГДЕ
	|	СпрГруппыПользователей.Ссылка = &ГруппаПользователей
	|	И НЕ ГруппыПользователейСостав.Пользователь.Ссылка ЕСТЬ NULL
	|	И ГруппыПользователейСостав.Пользователь.Недействителен <> ИСТИНА
	|	И ГруппыПользователейСостав.Пользователь.ПометкаУдаления <> ИСТИНА";
	
	РезЗапроса = Запрос.Выполнить();
	Если РезЗапроса.Пустой() Тогда 
		Возврат "<Нет пользователей>";
	КонецЕсли;
	
	Всего_Почты = 0;
	Всего_Польз = 0;
	
	Выборка = РезЗапроса.Выбрать();
	Пока Выборка.Следующий() Цикл 
		
		Если Не ПустаяСтрока(Выборка.Email) Тогда 
			Всего_Почты = Всего_Почты + 1;
		КонецЕсли;
		
		ИДПольз = Выборка.ИдентификаторПользователяИБ;
		Если ИДПольз = Неопределено или ИДПольз = ПустойУИД Тогда 
			Продолжить;
		КонецЕсли;
		
		//ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(ИДПольз);
		//Если ПользовательИБ = Неопределено Тогда Продолжить; КонецЕсли;
		
		Если Пользователи.ВходВПрограммуРазрешен(ИДПольз) = Истина Тогда 
			Всего_Польз = Всего_Польз + 1;
		КонецЕсли;
		
	КонецЦикла;
	
	Возврат "e-mail: "+Строка(Всего_Почты)+" / пользователей: "+Строка(Всего_Польз);
КонецФункции