ТиС, 965 ядро.
Клиент захотел получать электронную версию накладной. Формат утрясли, файлик формируется, оператор отправляет его в ручную по почте.
Необходимо реализовать отправку по нажатию кнопки в 1С (через CDO), но так, чтобы отправленный файл попадал в почтовик в папку "Отправленные".

В качестве почтовика Thunderbird 16
Делал кто ?

(0) что такое CDO?

> 965 ядро

о_О

> Формат утрясли

t-rjvvthc

*е-коммерс

нарыл у себя код , возможно он даже рабочий

ЗагрузитьВнешнююКомпоненту("V7Plus.dll");
М=СоздатьОбъект("AddIn.V7Mail");
М.Подключиться("MAPI",,);
М.НовоеСообщение();
М.ДобавитьАдрес("123@mail.ru");
М.ДобавитьФайл(имяфайла);
М.Заголовок="Куку";
М.Послать(0);

(2) Конфа 965 )
(3) DBF-ка обычная
(5) Код для 1С есть для отправки письма

Мне бы отправленное из 1С письмо сложить в почтовик. Как ?

(6) Зависит от почтовика...
Насколько я помню, MAPI не дружит с почтовыми папками. Так что оля или нечто подобное.

(7) Можно отправлять письмо так 1C->Thunderbird->Заказчик, решение очевидное и неправильное. Отправляя письмо в почтовик я не могу контролировать его отправку. Правильно будет 1С->Заказчик и положить ушедшее письмо в Thunderbird

(5) та вы батенька просто реинкарнация индианы джонса..

продолжайте раскопки и докладывайте, чего нового вы извлекли на свет божий из недр..

нобелевская премия ждет вас

//******************************************************************************
Процедура Отправить()
   Флаг=0;
   Попытка
       Флаг=ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll");
   Исключение
       Возврат;
   КонецПопытки;
   Если Флаг=0 Тогда
       Сообщить("Не удалось загрузить ROM-Mail.dll");
       Возврат;
   КонецЕсли;
   ВК=СоздатьОбъект("AddIn.AddInMail");
   ВК.СерверОтправки=СокрЛП(СерверОтправки);
   ВК.ПортОтправки = Порт;
   ВК.Логин=СокрЛП(Логин);
   ВК.Пароль=СокрЛП(Пароль);
   ВК.АутентификацияПриОтправке=1;
   ВК.СохранятьСоединение = 1;
   ВК.ПоказыватьПредупреждения=1;
   Если ВК.Подключиться("Отправка")=0 Тогда
       Предупреждение("Не удалось подключиться к серверу!");
       Возврат;
   КонецЕсли;        
   Для Скока = 1 По Адреса.РазмерСписка() Цикл
       Состояние("" + Скока + "/" + Адреса.РазмерСписка());
       ВК.АдресОтправителя=СокрЛП(АдресОтправителя);
       ВК.ИмяОтправителя=СокрЛП(ИмяОтправителя);
       ВК.ПодтверждениеПрочтения = 0;
       ВК.ПодтверждениеДоставки  = 0;
       ВК.Тема=СокрЛП(Тема);      
       ВК.Тело=Тело;
       Покласть = "";
       Для у = 1 По Файлы.РазмерСписка() Цикл
           Покласть = Покласть + Файлы.ПолучитьЗначение(у) + ";";
       КонецЦикла;
       Если Покласть <> "" Тогда
           ВК.Вложения = Покласть;
       КонецЕсли;
       ВК.Кодировка="windows-1251";
       ВК.ТипПисьма=2;
       ВК.АдресПолучателя = Адреса.ПолучитьЗначение(Скока);
       Адреса.Пометка(Скока, ВК.Отправить());
       Форма.Обновить();
   КонецЦикла;
   ВК.Отключиться();
КонецПроцедуры

(10) сПС. Процедура отправки из 1С письма есть. Рабочая. Мне бы скрипт который положит отправленное письмо в почтовик не отправляя его повторно )

(11) Мне бы отправленное из 1С письмо сложить в почтовик. Как ?

а если не секрет зачем?

(12) 1. Чтоб при разборках, буде такие случаться, было куда ткнуть мордой - вот ... отправлено ...
2. Если, с какого нить перепугу, заказчик ответит на письмо отправленое роботом оператор был в курсе о чем речь

(13) а отправлять нельзя что ли из почтовой программы?

(14) Сейчас и отправляют. В ручную. Девочка вроде ответственная, но никто не застрахован невнимательности, болезни, увольнения и т.п. Хотелось бы исключить человеческий фактор

(15) почему нельзя отправлять по кнопке из 1с не пойму? зачем пихать в папку отправленные а потом еще отправлять через что-то.

(7)

посылать копию себе - не вариант?

(15) а зачем отправлять "вручную"? отправлять при печати документа, или при смене статуса на финальный - не вариант?

(19) Все при деле: автор и девочка

(13) 1. тыкай в журнал регистрации

(18) Так и сделаю. + настройка фильтра в почтовике на перенос письма. спс.

(22) или себе, или на ящик тому, кто потом будет разбираться :-)

(23) Пока так сделаю. Посмотрим что на форуме громовой птицы ответят, может и умеет он как мне нужно

(11) Веди лог в обработке.
Нахрена папку "Отправленные" перегружать?