Как отправить печатную форму с картинками в XLS через Outlook в 1С без искажений

// Получаем область с картинкой из макета
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
Рисунок = ОбластьПодвал.Рисунки.Найти("Логотип");

Если Рисунок <> Неопределено Тогда
    // Задаем режим вывода
    Рисунок.ВыводитьНаПечать = Истина;
    // Устанавливаем режим растягивания для сохранения качества
    Рисунок.РазмерКартинки = РазмерКартинки.Растянуть;
    
    // Альтернативно можно позиционировать рисунок по ячейкам области
    // Рисунок.Расположить(ОбластьПодвал.Область("R1C1:R5C4"));
КонецЕсли;

// 1. Формируем уникальные имена для временных файлов
ИмяВременногоКаталога = КаталогВременныхФайлов();
ВременныйФайлHTML = ИмяВременногоКаталога + "temp_act_" + Формат(ТекущаяДата(), "ДФ=yyyyMMddHHmmss") + ".html";
ИтоговыйФайлXLS = ИмяВременногоКаталога + "Акт_Сверки.xls";

// 2. Записываем ТабличныйДокумент в формате HTML
ТабДок.Записать(ВременныйФайлHTML, ТипФайлаТабличногоДокумента.HTML);

// 3. Конвертируем HTML в XLS с помощью MS Excel через COM
Попытка
    ExcelПриложение = Новый COMОбъект("Excel.Application");
    ExcelПриложение.DisplayAlerts = Ложь; // Отключаем диалоговые окна
    
    // Открываем сохраненный HTML-файл
    Книга = ExcelПриложение.Workbooks.Open(ВременныйФайлHTML);
    
    // Сохраняем книгу в формате Excel 97-2003 (код формата 56)
    // Параметр 56 соответствует константе xlExcel8
    Книга.SaveAs(ИтоговыйФайлXLS, 56);
    
    // Закрываем книгу и приложение
    Книга.Close(Ложь);
    ExcelПриложение.Quit();
    
    Сообщить("Конвертация файла успешно завершена.");
Исключение
    Сообщить("Ошибка при работе с Excel: " + ОписаниеОшибки());
    // В случае сбоя попытаемся высвободить COM-объект
    Если ExcelПриложение <> Неопределено Тогда
        ExcelПриложение.Quit();
    КонецЕсли;
КонецПопытки;

// Назначаем файлу расширение XLS, но записываем его как HTML
ФайлВложения = КаталогВременныхФайлов() + "акт.xls";
ТабДок.Записать(ФайлВложения, ТипФайлаТабличногоДокумента.HTML);

// Теперь этот файл можно прикреплять к письму Outlook.
// Единственный нюанс: при открытии файла Excel может выдать предупреждение 
// о несоответствии расширения файла его реальному формату. 
// Пользователю достаточно нажать "Да", чтобы открыть документ.

// Создаем объект Интернет-почты и сообщение
ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;
ПочтовоеСообщение.Тема = "Акт сверки взаиморасчетов";
ПочтовоеСообщение.Получатели.Добавить("client@email.com");

// Формируем уникальный идентификатор для картинки
УникальныйИдентификаторКартинки = Новый УникальныйИдентификатор;
ИдентификаторКартинкиСтрокой = Строка(УникальныйИдентификаторКартинки);

// Получаем картинку из макета (двоичные данные)
КартинкаЛоготип = ПолучитьМакет("ЛоготипИзображение"); // Двоичный макет с картинкой PNG/JPG

// Добавляем картинку во вложения письма и связываем через Идентификатор
Вложение = ПочтовоеСообщение.Вложения.Добавить(КартинкаЛоготип, "logo.png");
Вложение.Идентификатор = ИдентификаторКартинкиСтрокой;

// Формируем HTML-текст письма, ссылаясь на картинку через "cid:"
ТекстHTML = "<html>" +
            "<body>" +
            "<h3>Добрый день!</h3>" +
            "<p>Высылаем вам акт сверки.</p>" +
            "<p><img src=""cid:" + ИдентификаторКартинкиСтрокой + """ alt=""Логотип фирмы""></p>" +
            "<p>С уважением, Администрация.</p>" +
            "</body>" +
            "</html>";

ПочтовоеСообщение.Тексты.Добавить(ТекстHTML, ТипТекстаПочтовогоСообщения.HTML);

// Отправка через ИнтернетПочту...
// ИнтернетПочта = Новый ИнтернетПочта;
// ИнтернетПочта.Подключиться(Профиль);
// ИнтернетПочта.Послать(ПочтовоеСообщение);

// 1. Формируем печатную форму (ТабличныйДокумент)
ТабДок = СформироватьПечатнуюФормуАкта(); // Ваша функция генерации документа

// 2. Определяем пути к файлам
ВременнаяПапка = КаталогВременныхФайлов();
ФайлHTML = ВременнаяПапка + "temp_print_form.html";
ФайлXLS = ВременнаяПапка + "Акт_Заказа_" + СокрЛП(ЭтотОбъект.НомерЗаказа) + ".xls";

// Записываем временный HTML
ТабДок.Записать(ФайлHTML, ТипФайлаТабличногоДокумента.HTML);

// 3. Конвертируем в честный XLS через Excel Application
Попытка
    ExcelApp = Новый COMОбъект("Excel.Application");
    ExcelApp.DisplayAlerts = Ложь;
    КнигаExcel = ExcelApp.Workbooks.Open(ФайлHTML);
    КнигаExcel.SaveAs(ФайлXLS, 56); // Формат Excel 97-2003
    КнигаExcel.Close(Ложь);
    ExcelApp.Quit();
Исключение
    Сообщить("Не удалось выполнить точную конвертацию в XLS. Отправляем исходную копию.", СтатусСообщения.Внимание);
    // В случае сбоя используем более простой механизм записи (или переименования)
    ТабДок.Записать(ФайлXLS, ТипФайлаТабличногоДокумента.XLS);
КонецПопытки;

// 4. Инициализируем Outlook и отправляем письмо
Попытка
    Outlook = Новый COMОбъект("Outlook.Application");
    Письмо = Outlook.CreateItem(0); // 0 = mailItem
    
    Письмо.Subject = "Акт заказа № " + ЭтотОбъект.НомерЗаказа + " от " + Формат(ЭтотОбъект.Дата, "ДФ=dd.MM.yyyy");
    
    // Заполняем получателей
    Для Каждого СтрокаАдреса Из ТаблицаПолучателей Цикл
        Если СтрокаАдреса.Использовать Тогда
            Письмо.Recipients.Add(СтрокаАдреса.Email);
        КонецЕсли;
    КонецЦикла;
    
    // Прикрепляем сконвертированный XLS-файл с красивыми картинками
    Письмо.Attachments.Add(ФайлXLS);
    
    // Текст письма
    Письмо.Body = "Здравствуйте! Во вложении к письму находится сформированный акт заказа.";
    
    // Выводим окно письма пользователю на экран для проверки перед отправкой
    Письмо.Display();
    
    // Или отправляем сразу программно
    // Письмо.Send();
    
Исключение
    Сообщить("Произошла ошибка при интеграции с Outlook: " + ОписаниеОшибки(), СтатусСообщения.Важное);
КонецПопытки;

// 5. Очищаем временные файлы
Попытка
    УдалитьФайлы(ФайлHTML);
    // Файл XLS удалять сразу нельзя, если используется метод Display(), 
    // так как Outlook должен успеть прочитать его с диска. 
    // Удаление лучше производить при закрытии формы или в фоновом режиме.
Исключение
    // Игнорируем ошибки удаления временных файлов
КонецПопытки;