Отправка сообщений на email

Функция ВыполнитьРассылку(ДатаРассылки) Экспорт

	СписокПолучивших = "";

	Если ЭтотОбъект.Договоры.Количество() = 0 Тогда
		Возврат СписокПолучивших;
	КонецЕсли;

	
    Конст = Константа.ЗаголовокСистемы.Получить();
	ЗаголовокПрограммы = "Комплексная " + ?(ЗначениеЗаполнено(Конст),Конст,"Общая");
	
	
	
	НужныеСтроки = ЭтотОбъект.Договоры.НайтиСтроки(Новый Структура("ОК",Истина));
	
	МассивМенеджеров = ЭтотОбъект.Договоры.Выгрузить(НужныеСтроки,"Ответственный");
	МассивМенеджеров.Свернуть("Ответственный");

	
	Для каждого Менеджер Из МассивМенеджеров Цикл

		Если Менеджер.Пустая()  Тогда
			Продолжить;
		КонецЕсли;

		ТекстСписка = "";
		ТекстПисьма = "";
		Адрес = "";

		Счетчик = 1;
		МассДоговоры = ЭтотОбъект.Договоры.НайтиСтроки(Новый Структура("Менеджер, ОК",Ответственный,Истина));
		
		Для каждого СтрТЧ Из МассДоговоры Цикл
			ТекстСписка = ТекстСписка + Формат(Счетчик,"ЧГ=0") + СтрТЧ.СпрСсылка + Символы.ПС;			
			Адрес = СтрТЧ.Адрес;
			Счетчик = Счетчик + 1;
		КонецЦикла;

		Если не ЗначениеЗаполнено(Адрес) Тогда
			Продолжить;
		КонецЕсли;
		
		ТекстПисьма = ТекстПисьмаВФорматеHTML(Менеджер, ДатаРассылки, ТекстСписка, ЗаголовокПрограммы);

		Если СозданиеИОтправкаПисьма(Адрес, ТекстПисьма) Тогда
			СписокПолучивших = СписокПолучивших + Менеджер + Символы.ПС;
		КонецЕсли;

	КонецЦикла;

	Возврат СписокПолучивших;

КонецФункции