0
Vladal
19.10.15
✎
14:56
|
Есть MS Outlook 2010 и платформа 1С:Предприятие 8.3 (8.3.6.2332), обычные формы.
Необходимо выгрузить отчет и сохранить как вложение в письме.
В обработке я написал код, который сразу отправляет письмо указанному получателю, но пользвателю надо его просто показать в аутлуке, не отправляя.
Процедура ДействияФормыОтправитьВАутлук(Кнопка)
ИмяФайла = КаталогВременныхФайлов() + "Акт приёма.xls";
ВременныйФайл = Новый Файл(ИмяФайла);
Если ВременныйФайл.Существует() Тогда
Попытка
УдалитьФайлы(ИмяФайла);
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
КонецЕсли;
ПечатныйДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.XLS);
Почта = Новый Почта;
Почта.Подключиться();
Сообщение = Новый ПочтовоеСообщение;
Сообщение.Тема = "Акт прёма";
Если ВременныйФайл.Существует() Тогда
Данные = Новый ДвоичныеДанные(ИмяФайла);
Сообщение.Вложения.Добавить(Данные, ИмяФайла);
КонецЕсли;
Сообщение.Получатели.Добавить("ящик@сервер");
Почта.Послать(Сообщение, Ложь);
Почта.Отключиться();
КонецПроцедуры
Подскажите пример кода, как решить эту задачу?
Явно, другим путём, например, VBA или WSH или Outl;ook.Application.
|
|
1
Vladal
19.10.15
✎
14:58
|
Если закомментировать строку с добавлением получателя (в надежде, что письмо попадёт в Черновики), то письмо не создаётся.
// Сообщение.Получатели.Добавить("ящик@сервер");
|
|