Код отправки

Отчет = Отчеты.ПросрочкаВыполненияЗаявок.Создать();
	ТабДокумент = Новый ТабличныйДокумент;
	Отчет.СкомпоноватьРезультат(ТабДокумент);
	
	ИмяФайла =  КаталогВременныхФайлов() + "ПросрочкаВыполненияЗаявок.html";
	
	ТабДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.HTML);
	
	УчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.АвтоматическаяРассылка;
	
	Почта = Новый ИнтернетПочта;
	Профиль = Новый ИнтернетПочтовыйПрофиль;

	Профиль.АдресСервераSMTP = Учетнаязапись.SMTPСервер;
	Профиль.ПортSMTP = Учетнаязапись.ПортSMTP;
	Профиль.ПользовательSMTP = Учетнаязапись.ЛогинSMTP;
	Профиль.ПарольSMTP = Учетнаязапись.ПарольSMTP;
	Профиль.ИспользоватьSSLSMTP = Истина;
	Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
	
	//Профиль.ТолькоЗащищеннаяАутентификацияSMTP = Ложь;
	
	Попытка
		Почта.Подключиться(Профиль);
	Исключение
		Сообщить(ОписаниеОшибки());
		Возврат;
	КонецПопытки;
	
	Текст = Новый ТекстовыйДокумент;
	Текст.Прочитать(ИмяФайла);
	
	ТекстСообщения = Текст.ПолучитьТекст();

	Письмо = Новый ИнтернетПочтовоеСообщение;
	Письмо.Тексты.Добавить(ТекстСообщения, ТипТекстаПочтовогоСообщения.HTML);
	Письмо.ОбработатьТексты();
	Письмо.Тема = "Просрочка выполнения заявок на " + Формат(НачалоДня(Текущаядата()) - 1, "ДФ=dd.MM.yyyy");
	Письмо.Отправитель = Учетнаязапись.ЛогинSMTP;
	Письмо.ИмяОтправителя = "Автоматическая рассылка 1С";
	
	МассивАдресов = ПолучитьМассивЭлектронныхАдресов(перечисления.ТипыРассылки.ПросрочкаВыполненияЗаявок); 
	
	Для каждого Адрес Из МассивАдресов Цикл
		Письмо.Получатели.Добавить(Адрес);	
	КонецЦикла;
	
	//Письмо.Получатели.Добавить("Программист ");
	
	Попытка
		Почта.Послать(Письмо);
	Исключение
		Сообщить(ОписаниеОшибки());
		Возврат;
	КонецПопытки;

	Почта.Отключиться();
	
	Почта = Неопределено;
	Письмо = Неопределено;