Уничтожение файлов во временном каталоге
ВременныйКаталог = КаталогВременныхФайлов();
КонтрагентОбъект = стр.Ссылка.ПолучитьОбъект();
ИмяФайла = "temp.xls";
//
ПолноеИмяФайла = ВременныйКаталог + ИмяФайла;
//ПолноеИмяФайла = ДиалогВыбораКаталога.Каталог + ИмяФайла;
Тд.Записать(ПолноеИмяФайла, ТипФайлаТабличногоДокумента.XLS);
// создаем документ Электронное письмо
НовоеЭлПисьмо = Документы.ЭлектронноеПисьмо.СоздатьДокумент();
НовоеЭлПисьмо.СтатусПисьма = Перечисления.СтатусыПисем.Исходящее;
НовоеЭлПисьмо.Дата = ТекущаяДата();
НовоеЭлПисьмо.УчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.НайтиПоНаименованию("мояпочта*bk.ru",Истина);
НовоеЭлПисьмо.ОтправительПредставление = Справочники.УчетныеЗаписиЭлектроннойПочты.НайтиПоНаименованию("мояпочта*bk.ru",Истина);
НовоеЭлПисьмо.КопииПредставление = "мояпочта*bk.ru";
ГруппаПисемСсылка = Справочники.ГруппыПисемЭлектроннойПочты.НайтиПоНаименованию("Исходящие",Истина);
НовоеЭлПисьмо.ГруппаУчетнойЗаписи = ГруппаПисемСсылка;
НовоеЭлПисьмо.КомуПредставление = Стр.Представление;
НовоеЭлПисьмо.ЕстьВложения = Истина;
НовоеЭлПисьмо.Тема = КонтрагентОбъект.НаименованиеПолное + ", " + "с 01.01.2020 по " + ТекущаяДата();
НовоеЭлПисьмо.ВидТекстаПисьма = Перечисления.ВидыТекстовЭлектронныхПисем.HTML;
СтрокаТабЧасти = НовоеЭлПисьмо.КомуТЧ.Добавить();
СтрокаТабЧасти.АдресЭлектроннойПочты = Стр.Представление;
мРазделительАдресов = ",";
Разделитель = "";
НовоеЭлПисьмо.Кому = "";
НовоеЭлПисьмо.КомуПредставление = "";
Представление = "";
НовоеЭлПисьмо.Кому = НовоеЭлПисьмо.Кому + Разделитель +
СтрокаТабЧасти.АдресЭлектроннойПочты;
НовоеЭлПисьмо.КомуПредставление = НовоеЭлПисьмо.КомуПредставление + Разделитель +
СтрокаТабЧасти.АдресЭлектроннойПочты;
Разделитель = мРазделительАдресов;
НовоеЭлПисьмо.КодировкаПисьма = "utf-8"; //"windows-1251"
НовоеЭлПисьмо.Записать();
Спр = Справочники.ВложенияЭлектронныхПисем.СоздатьЭлемент();
Спр.Наименование = ПолноеИмяФайла;
Спр.Объект = НовоеЭлПисьмо.Ссылка;
Спр.ИмяФайла = КонтрагентОбъект.НаименованиеПолное + " с 01.01.2020 по " + Формат(ТекущаяДата(), "ДЛФ=Д") + ".xls";
Данные = Новый ДвоичныеДанные(ПолноеИмяФайла);
Спр.Хранилище = Новый ХранилищеЗначения(Данные);
Спр.Записать();
МенеджерЗаписи = РегистрыСведений.ПрисоединенныеФайлы.СоздатьМенеджерЗаписи();
МенеджерЗаписи.ПрисоединенныйФайл = Спр.Ссылка;
МенеджерЗаписи.ХранимыйФайл = Новый ХранилищеЗначения(Данные);
МенеджерЗаписи.Записать();
УдалитьФайлы(ПолноеИмяФайла);
ПоказатьПо теме из базы знаний
- Под капотом управляемых форм
- Видеокурс-самоучитель "1С:Документооборот 2.1 и 3.0" для самостоятельного внедрения
- Jenkins: конфигурируем сервер и подключаем к нему виртуальные машины. Цикл "Многопоточный CI для 1С c Packer, Vagrant и Jenkins", часть 4
- 1С:Архив
- Маленькие хитрости при работе с конфигуратором 1С
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот