Приходят либо пустие письма, либо в тексте написано ТабличныйДокумент. Нужно как-нибудь отправить табличный документ на почту в теле письма, а не вложением. Замучился я, спасайте....

```1c
    &НаКлиенте
    Процедура Отправить(Команда)
    ТабДок = Новый ТабличныйДокумент;
    ПоказатьНаСервере(ТабДок);

    Табдок.Показать("Отчет");
    ПолноеИмяФайла = "\\LAPTOP-K82R8AM7\Users\PC-214\Desktop\Вася" + "\1.html";
    Табдок.Записать(ПолноеИмяФайла, ТипФайлаТабличногоДокумента.html);
    ОтправкаУведомлений(ТабДок, ПолноеИмяФайла) ;
    Сообщить(ПолноеИмяФайла);

    КонецПроцедуры

    //&НаСервере
    //Функция ПолучитьМакетНаСервере()
    // Возврат РеквизитФормыВЗначение("Отчет").ПолучитьМакет("Макет");
    //КонецФункции

    &НаСервере
    Процедура ПоказатьНаСервере(ТабДок)

    Обработка = РеквизитФормыВЗначение("Объект");
    Макет = Обработка.ПолучитьМакет("Макет");
    // СуммаДокумента = РеквизитФормыВзначение(Объект.сумма);

    //Заполнение маккета текстом приветсвия, кольво и сумма
    Макет.Параметры.СуммаМакета = СуммаДокумента ;
    Макет.Параметры.ДатаНачало = Период.ДатаНачала ;
    Макет.Параметры.ДатаКонец = Период.ДатаОкончания ;
    Макет.Параметры.ДатаКонец = Период.ДатаОкончания ;
    Макет.Параметры.КоличествоЗаказов = КоличествоЗаказов ;

    //Макет.Параметры.КольвоЗаказов = ТабДок.Количество() ;
    //Макет.Параметры.СуммаИтого = ТабДок.Итог("СуммаДокумента") ;

    Сообщить( КоличествоЗаказов);
    //
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    | ЗаказКлиента.Номер КАК Номер,
    | ЗаказКлиента.Дата КАК Дата,
    | ЗаказКлиента.Контрагент.Наименование КАК КонтрагентНаименование,
    | ЗаказКлиента.СуммаДокумента КАК СуммаДокумента,
    | ЗаказКлиента.Менеджер.Наименование КАК МенеджерНаименование
    |ИЗ
    | Документ.ЗаказКлиента КАК ЗаказКлиента
    |ГДЕ
    | ЗаказКлиента.СуммаДокумента >= &СуммаДокумента
    | И ЗаказКлиента.Дата > &ДатаНач
    | И ЗаказКлиента.Дата > &Датакон";

    Запрос.УстановитьПараметр("ДатаНач", Период.ДатаНачала);
    Запрос.УстановитьПараметр("ДатаКон", Период.ДатаОкончания);
    Запрос.УстановитьПараметр("СуммаДокумента", СуммаДокумента);
    РезультатЗапроса = Запрос.Выполнить();

    ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
    ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
    ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
    ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
    ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");

    ТабДок.Очистить();
    ТабДок.Вывести(ОбластьЗаголовок);
    ТабДок.Вывести(ОбластьШапкаТаблицы);
    ТабДок.НачатьАвтогруппировкуСтрок();

    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
    КоличествоЗаказов = КоличествоЗаказов +1 ;
    ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
    ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетальныеЗаписи.Уровень());
    КонецЦикла;

    Сообщить( КоличествоЗаказов);
    ТабДок.ЗакончитьАвтогруппировкуСтрок();
    ТабДок.Вывести(ОбластьПодвалТаблицы);
    ТабДок.Вывести(ОбластьПодвал);

    //

    //ТекстПисьма = ТабДок;
    КонецПроцедуры

    Процедура ОтправкаУведомлений(ПолноеИмяФайла, ТабДок)
    ИПП = Новый ИнтернетПочтовыйПрофиль;
    ИПП.АдресСервераSMTP = "smtp.yandex.ru";
    ИПП.ПарольSMTP = "AsdfasssUtn";
    ИПП.ПользовательSMTP = "reportMyCompanyName*yandex.ru";
    ИПП.ПортSMTP = 25;

    Сообщение = Новый ИнтернетПочтовоеСообщение;
    Сообщение.Кодировка = "UTF-8";
    Сообщение.Получатели.Добавить("reportMyCompanyName*yandex.ru");

    Сообщение.Отправитель.Адрес = "reportMyCompanyName*yandex.ru";

    Сообщение.Тема = "Регл.задание: Отчет";
    Попытка
    Сообщение.Вложения.Добавить(ПолноеИмяФайла,"Отчет");
    Исключение

    ТекстПисьма = ПолноеИмяФайла;
    //ТекстПисьма.
    //ТекстПисьма = ТекстПисьма + "Не удалось добавить вложение! " + ОписаниеОшибки() + Символы.ПС;
    КонецПопытки;
    Сообщение.Тексты.Добавить(ТекстПисьма);

    Почта = Новый ИнтернетПочта;
    Почта.Подключиться(ИПП);
    Почта.Послать(Сообщение);
    Почта.Отключиться();
    КонецПроцедуры
```
---
```1c
    ИмяВрФайла = ПолучитьИмяВременногоФайла("html");
    ТабДок.Записать(ИмяВрФайла, ТипФайлаТабличногоДокумента.HTML5);
    Файл = Новый ЧтениеТекста(ИмяВрФайла);
    Текст = Файл.Прочитать();

    Письмо.Тексты.Добавить(Текст, ТипТекстаПочтовогоСообщения.HTML);
    Письмо.ОбработатьТексты();
```
---
пиши код на аштмл.
Винда не знает что такое табличный документ. Если опыта ноль делай через файл.
Если охота научиться, то на ИС полно примеров.
---
уже 21й год 21го века можно начинать использовать потоки

```1c
    ТабДокКопия = Новый ТабличныйДокумент;
    .... сформировать отчет получить таб док

    ПотокФайла = Новый ПотокВПамяти();
    ТабДокКопия.Записать(ПотокФайла, ТипФайлаТабличногоДокумента.PDF);

    ЧтениеПотока = Новый ЧтениеДанных(ПотокФайла);
    РезультатЧтения = ЧтениеПотока.Прочитать();
    ДвоичныеДанныеФайлов = Новый Структура("ИмяФайла, ДД", "
    + "Отчет" + Формат(ТекДата, "ДФ=ddMMyyyy") + ".pdf", ПотокФайла.ЗакрытьИПолучитьДвоичныеДанные());
```

... отправить письмо

```1c
    Сообщение.Вложения.Добавить(ДвоичныеДанныеФайлов.ДД, ДвоичныеДанныеФайлов.ИмяФайла);
```
---
```1c
    ИмяВрФайла = ПолучитьИмяВременногоФайла("html");
    ТабДок.Записать(ИмяВрФайла, ТипФайлаТабличногоДокумента.HTML5);
    Файл = Новый ЧтениеТекста(ИмяВрФайла);
    Текст = Файл.Прочитать();

    Письмо.Тексты.Добавить(Текст, ТипТекстаПочтовогоСообщения.HTML);
    Письмо.ОбработатьТексты();
```
---
```1c
    ПутьHTML = "\\LAPTOP-K82R8AM7\Users\PC-214\Desktop\Вася" + "\1.html";

    ТабДок.Записать(ПутьHTML, ТипФайлаТабличногоДокумента.HTML);
    HtmlДок = Новый ЧтениеТекста;
    HtmlДок.Открыть(ПутьHTML);
    ТекстHtmlДока = HtmlДок.Прочитать();
    Текст = Сообщение.Тексты.Добавить(ТекстHtmlДока,ТипТекстаПочтовогоСообщения.HTML);
```

Сделал по вашей схеме, получилось , спасибо.
---
Никак не пойму, откуда взялся этот путьHTML и для чего он нужен?
Для чего этот путь к файлу?
---
не забываем

```1c
    УдалитьФайлы(ИмяВрФайла)
```
---
Спасибо, Азамат. Теперь ты отвечаешь на мои вопросы в интернете)
---
```1c
    Процедура ОтправитьДокументПоЭлектроннойПочте(ТабличныйДокумент, ПредставлениеДокумента = ", АдресПолучателя, УчетнаяЗапись) Экспорт

    ИмяФайлаВложения = СтрЗаменить(ПредставлениеДокумента, ".", " ");
    ТемаСообщения = ПредставлениеДокумента;

    Если Не ЗначениеЗаполнено(АдресПолучателя) тогда
    #Если Клиент Тогда
    Предупреждение("Не заполнен получатель - адрес электронной почты");
    #КонецЕсли
    Возврат;
    КонецЕсли;

    СтруктураНовогоПисьма = Новый Структура;

    СтруктураНовогоПисьма.Вставить("ВидТекста", "HTML");

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

    //нсгги
    //ошибка HTML с картинками не отправляется по электронной почте
    //https://partners.v8.1c.ru/forum/topic/1590906
    ТабличныйДокументБезРисунков = Новый ТабличныйДокумент;
    ТабличныйДокументБезРисунков.Вывести(ТабличныйДокумент);
    ТабличныйДокументБезРисунков.Рисунки.Очистить();
    ТабличныйДокументБезРисунков.Записать(ФайлВФорматеHTML, ТипФайлаТабличногоДокумента.HTML);
    //нсгги

    ТекстПисьма = Новый ТекстовыйДокумент;
    ТекстПисьма.Прочитать(ФайлВФорматеHTML);

    ХТМЛТекст = ТекстПисьма.ПолучитьТекст();

    НовыйHTMLДокумент = Новый COMОбъект("HtmlFile");
    НовыйHTMLДокумент.open("text/html");
    НовыйHTMLДокумент.write(ХТМЛТекст);
    НовыйHTMLДокумент.close();

    ТегТела = НовыйHTMLДокумент.all.tags("BODY");
    Для а = 0 По ТегТела.length - 1 Цикл
    ТегТела.item(а).innerHTML = "
    |<P>
    |<HR>
    |</P>
    |<P></P>" + ТегТела.item(а).innerHTML;
    КонецЦикла;

    ТекстСообщенияДляОтправки = ";
    Для а = 0 По НовыйHTMLДокумент.all.length - 1 Цикл
    Если НовыйHTMLДокумент.all.item(а).tagName = "HTML" Тогда
    ТекстСообщенияДляОтправки = НовыйHTMLДокумент.all.item(а).innerHTML;
    КонецЕсли;
    КонецЦикла;

    СтруктураНовогоПисьма.Вставить("Тело", ТекстСообщенияДляОтправки);

    СтруктураНовогоПисьма.Вставить("Тема", ТемаСообщения);

    СписокФайловВложений = Новый СписокЗначений;

    Если НЕ ЗначениеЗаполнено(ИмяФайлаВложения) Тогда
    ИмяФайлаВложения = ТемаСообщения;
    Иначе
    ИмяФайлаВложения = ИмяФайлаВложения;
    КонецЕсли;

    ФайлВФорматеXLS = ПолучитьИмяВременногоФайла();
    ТабличныйДокумент.Записать(ФайлВФорматеXLS, ТипФайлаТабличногоДокумента.XLS);
    СписокФайловВложений.Добавить(Новый Структура("Хранилище, ИмяФайла, Наименование", ПолучитьДвоичныеДанные(ФайлВФорматеXLS), (ИмяФайлаВложения + ".XLS"), ИмяФайлаВложения));

    Если СписокФайловВложений.Количество() > 0 Тогда
    СтруктураНовогоПисьма.Вставить("СписокФайловВложений", СписокФайловВложений);
    КонецЕсли;

    //////////////////////////////////////////

    ПолучениеОтправкаПисем(СтруктураНовогоПисьма, АдресПолучателя, УчетнаяЗапись);

    КонецПроцедуры
```