Стоит задача оформлять тело сообщения в HTML, собственно с задачей справился, но частично. Письмо уходит с нужным оформлением но только 1 раз поскольку само оформление сохраненное в файл HTML остается, по непонятным мне причинам, занятым 1 С. Его нельзя удалить, изменить пока открыт сеанс 1 С, после закрытия 1 С (само закрытие формы обработки - не помагает) - файл освобождается.
Приведу кусок кода оформления тела:
лпИмяФайлHTML = "";
лпКодировка = КодировкаТелаПисьма.ПолучитьЗначение(КодировкаТелаПисьма.ТекущаяСтрока());
Если СтильТелаПисьма.ТекущаяСтрока() = 1 Тогда
лпСписТеги = СоздатьОбъект("СписокЗначений");
лпСписТеги.ДобавитьЗначение("<html><head>");
лпСписТеги.ДобавитьЗначение("<meta content=""text/html; charset="+лпКодировка+""" http-equiv=""content-type"">");
лпСписТеги.ДобавитьЗначение("<title> Post message </title>");
лпСписТеги.ДобавитьЗначение("</head> <body> <h2>");
лпСодержаниеТела = "";
Для лпНомСтр = 1 По лпКвоСтрок Цикл
лпСтрока = СокрЛП(СтрПолучитьСтроку(Тело,лпНомСтр));
лпСодержаниеТела = ?(ПустаяСтрока(лпСодержаниеТела) =1,лпСтрока,лпСодержаниеТела+"<br>"+лпСтрока);
КонецЦикла;
лпСписТеги.ДобавитьЗначение(лпСодержаниеТела);
лпСписТеги.ДобавитьЗначение("<br><p></p></h2>");
лпФайлКартинки = СокрЛП(ФайлКартинки);
Если ФС.СуществуетФайл(лпФайлКартинки) = 1 Тогда
лпСписТеги.ДобавитьЗначение("<h3><img src="+лпФайлКартинки+" width=""265"" height=""32""><br></h3>");
КонецЕсли;
лпСписТеги.ДобавитьЗначение("</body></html>");
лпФайлHTML = СоздатьОбъект("Текст");
Для лпСч = 1 По лпСписТеги.РазмерСписка() Цикл
лпФайлHTML.ДобавитьСтроку(лпСписТеги.ПолучитьЗначение(лпСч));
КонецЦикла;
Попытка
лпИмяФайлHTML = СокрЛП(Каталог)+"\index.html";
лпФайлHTML.Записать(лпИмяФайлHTML);
loCdoMessage.CreateMHTMLBody(лпИмяФайлHTML);
Исключение
loCdoMessage.TextBody = СокрЛП(Тело);/// Не удалось в HTML - то хоть как-то
КонецПопытки;
Иначе
loCdoMessage.TextBody = СокрЛП(Тело);
КонецЕсли;
Попытка
Состояние("Выполняется отправка сообщения...");
loCdoMessage.Send();
Исключение
Сообщить("> Ошибка: "+ОписаниеОшибки());
КонецПопытки;
Если ПустаяСтрока(лпИмяФайлHTML) = 0 Тогда
ФС.УдалитьФайл(лпИмяФайлHTML);
///А ВОТ СДЕСЬ У МЕНЯ ПРОБЛЕМКА///
Если ФС.СуществуетФайл(лпИмяФайлHTML) = 1 Тогда
Предупреждение("Ошибка: не удалось удалить файл "+лпИмяФайлHTML);
КонецЕсли;
КонецЕсли;Вот собственно и просьба, помогите решить как заставить 1 С "отцепиться" от моего лпИмяФайлHTML и удалить его ?
жаль что ради такой ерунды потрачено уйму времени...