Имя: Пароль:
1C
1С v8
Создание нового письма в MS Outlook и показ этого письма пользователю
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
Если закомментировать строку с добавлением получателя (в надежде, что письмо попадёт в Черновики), то письмо не создаётся.

   // Сообщение.Получатели.Добавить("ящик@сервер");
2 Fish
 
гуру
19.10.15
15:02
(0) В Документообороте реализовано такое. Вроде как часть БСП, хотя могу ошибаться.
3 Vladal
 
19.10.15
15:04
(2) Увы, сейчас БСП недоступна.
4 Vladal
 
19.10.15
15:04
В типовой УТП смотрел - нет такого. Сразу отправка.
5 Vladal
 
19.10.15
15:08
Получилось!

    Почта = Новый COMОбъект("Outlook.Application");
    Письмо = Почта.CreateItem(0);// создаем сообщение
    
    Письмо.Subject = "Акт приёма";
    Письмо.To = "";
    Письмо.Attachments.Add(ИмяФайла);
    
    Попытка
        Письмо.Display();
    Исключение
    КонецПопытки;
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.