Код отправки

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

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

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

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