День добрый!
Подскажите, пожалуйста, как:
док-т "Счет" - доп. кнопка "Отправить на мыло" (это я могу) - по нажатию на эту кнопку нужно: получить печ. форму (заполненную) счета и отправить ее на мыло. Мыло - из контрагента, подключение там - это мне немножко понятно. Мне не понятно, как с печ. формой быть? По идее ее нужно заполнить, вывести на экран, в файл сохранять или можно как-то сделать сама печ. форма цеплялась к письму?

Спасибо.

(0) внешняя печатная форма с сохранением в файл и отсылкой по е-мэйл. Печать счета вызывается внешней обработкой с передачей соотв. параметров

См. ПочтовоеСообщение.Вложения

(2) Где? У меня ТиС.

(1)разве вызывается внешней обработкой?
а у меня печать счета встроена в конфу..
и отсылается отдельной процедурой, ну, типа так:
...
Таб.Записать("C:\счет_" + СокрЛП(НомерДок),1);
        ПечатьДок("C:\счет_" + СокрЛП(НомерДок) + ".xls");

(4) имеется ввиду, что ничего встраивать в конфу не надо будет. Собссно оно и не требуется.

Кстати, на корень диска С у юзера может не быть прав

(3) в СП

(3)глянь тут:
http://web.archive.org/web/20080531132912/http://www.sinor.ru/~my1c/knowhow/xls_mail.html

Спасибо всем :)))))))))

(7) Не открывается :(

(9)пробуй тут, найди Почта
http://web.archive.org/web/20080531132840/http://www.sinor.ru/~my1c/knowhow.html#MAIL

блин..
http://web.archive.org/web/20080531132840/http://www.sinor.ru/~my1c/knowhow.html

(7)(10)(11) это не то. Только путаешь девицу ))

(12) вопрос не в том КАК отправить, а КАК по кнопке напечатать-отправить и чтобы печатная форма на экране не появлялась

(13) Угу :))))

(13)убери оператор Таб.Показать();

а отправить:

Таблица.Записать(путь+"отчет.xls","XLS");
ЗагрузитьВнешнююКомпоненту("V7Plus.dll");
Почта=СоздатьОбъект("AddIn.V7Mail");
Почта.Подключиться();
Почта.НовоеСообщение();
Почта.ДобавитьАдрес("[email protected]");
Почта.ДобавитьФайл(путь+"отчет.xls");
Почта.Послать();
Почта.Отключиться();
<сообщил avb>

Еще раз - СПАСИБО!!!!!!

(15) А, блин, это ж 7.7... Mah bad -__-

а вот так - менюшка печати, с отправкой и без оной :)
http://img-fotki.yandex.ru/get/6500/22238773.1/0_73aca_7239d3d3_M.jpg

Слушайте, а отдельную кнопку на внешнюю форму никак не присобачить?
Печать - уже есть. Хочется отдельную кнопку :(

(19)где проблема-то?

При регистрации новой внешней формы - она садится на кнопку "Печать".

ааа... на внешнюю форму..  чуток сложнее.. извини, поспешил :)

(21)скопируй внешнюю форму с другим именем и почтой, пусть будет вторая, её и вызывай новой кнопкой

(19) Посмотреть как реализованы кнопки в отчетах. И рулить через .ОбластьПечати(), чтоб эта кнопка на печать не попадала.

+23 не забудь скопировать и переименовать ефд, и внести в него изменения

(24)это сложнее..

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

(26) Зато как выглядеть будет. + удобство, хочешь на печать пинай, хочешь по мылу шли

(23) Сделала. При регистрации внешней печ. формы - только кнопка печати. Может я чего не так делаю?
(28) Мне не нравится - у меня там и так с десяток печ. форм.

(29)напечатай здесь имя исходной печ.формы и содержание одноименного файла efd

(30) А efd как открыть? Сделать-то его сделала, но не открывала....

Ты не поняла. сгенери например отчет ОстаткиТМЦ. посмотри на 2 кнопки вверху в углу "Обновить" и "Настроить". Я предлагаю в счете сделать кнопку "Отправить" на манер этих 2х из отчета, и по клику двойному отправлять форму куму надо.

(30) Блокнотом он открывается. это TXT только с другим расширением

(31)не открывала - потому и нет строки.
открой в проводнике правой кнопкой мыши, в блокноте

(34) Открыла :))))
Объект= "Документ.ЗаявкаПокупателя"
Название=На мыло
Кнопка=Отправить

Имя внешней печ. формы (которую корежу) "Счет-EMail.etr"

(35)угу, имя для ефд поменяла? "Счет-EMail.efd" должно быть

(36) Угу.
Все - срабатывает. Только пока не сохраняет файл - тружусь.
СПАСИБО!

на здоровье :)
и ета.. советую прислушаться к Voronve, (24) и (32) - дело говорит :)

СПАСИБО. Попробую.

Не получается у меня :((((((
В типовых - 2 кнопки. Мне нужна одна. И сразу действия выполняла.
А ни у кого нет примера? Пожалуйста......

(40)что за кнопки? поясни, не понимаю..

+41 "Обновить" и "Настройка" ?

Блин, ну сам же велел к Voronve прислушаться....
В типовых две кнопки - "Настройки" и "Обновить".
Мне надо одну, чтобы вызывала процедуру (сохранить и отправить).
НЕ ПОНИМАЮ.........

(43)во, теперь понятно :) мы-ж не видим, что ты там делаешь :)
хочешь пристроить такую кнопку к табличной форме счета?

(44) Угу..... А не получается......
Ну дайте, ПОЖАЛУЙСТА, примерчик, а?

Я уже погуглила..... Таких дураков, как я, видно нет.....

все давно сделано

(47) Где?

(45) примера отдельно нет
делай примерно, как сделано в ОстаткиТМЦ
сверху секцию "Кнопки", Скопируй в таблицу счета кнопку из ОстаткиТМЦ,
в модуль формы вставь оператор ОбработкаЯчейкиТаблицы(...) и там, определив что нажата кнопка почты, запусти отправку

+49 всё это - во внешней печ форме счета, можно в старой, а новую выкинуть

ОбработкаЯчейкиТаблицы(...) - это куда пихать: в расшифровку ячейки + в модуль (запись + отправка)?

(50) Это я уже поняла :))))))

список в расшифровку и обработкаячейки

(53) Какой, елки-моталки, список?

если использовать формекс или правильные функции, то можно не менять форму документа

я не из, и не адинеснег, чего с меня спрашивать

(55)какой там формекс :)
(54)ты с процедурой "ОбработкаЯчейкиТаблицы(..) работала раньше?

(57) Нет. Где рыть?

//-----------------------------------------------
Процедура глОбработкаЯчейкиТаблицы(Расшифровка,СтандартнаяОбработка,Таблица) Экспорт
// Обработка расшифровки стандартных отчетов. ДРК05
// Может использоваться и не только из таблиц (например списков и таблиц значений)
   Перем Отчет, ПрефСтр;
   Если ПустоеЗначение(Расшифровка)=1 Тогда Сигнал(); Возврат;    КонецЕсли;
   ТипЗн=ТипЗначенияСтр(Расшифровка);
   Попытка    // Попробуем получить общие параметры отчета из первой ячейки
       Обл=Таблица.Область(1,1,1,1);
       Общ=Обл.Расшифровка();
   Исключение Общ=Пусто;
   КонецПопытки;
   //-----------------------------------------------
   Если ТипЗн="Справочник" Тогда
       СтандартнаяОбработка=0;
       Мет=Метаданные.Справочник(Расшифровка.Вид());
       Если Мет.СпособРедактирования="ВСписке" Тогда Отчет=2;
       Иначе    // Есть форма и список - выкатим меню
           СпД=СоздатьОбъект("СписокЗначений");
           СпД.ДобавитьЗначение(1,"Открыть карточку элемента");
           СпД.ДобавитьЗначение(2,"Найти элемент в списке");
           Если Найти(Врег(Мет.Комментарий),"ПЕЧАТЬ")<>0 Тогда
               СпД.ДобавитьЗначение(3,"Печать элемента "+Расшифровка);
           КонецЕсли;
           Если СпД.ВыбратьЗначение(Отчет,,,,1)=0 Тогда Возврат; КонецЕсли;
       КонецЕсли;
       Если Отчет=1 Тогда                            // Открыть форму элемента
           ОткрытьФорму(Расшифровка);
       ИначеЕсли Отчет=2 Тогда                        // Открыть форму списка и найти там
           ОткрытьФорму("Справочник."+Расшифровка.Вид(),Отчет);
           Если ТипЗначения(Отчет)=100 Тогда    // Форма открылась
               Если ПустоеЗначение(Расшифровка.Владелец)=0 Тогда
                   Отчет.ИспользоватьВладельца(Расшифровка.Владелец);
               КонецЕсли;
               Отчет.АктивизироватьОбъект(Расшифровка);
           КонецЕсли;
       ИначеЕсли Отчет=3 Тогда                        // Открыть форму элемента с признаком печати
           ОткрытьФорму(Расшифровка,"Печать");
       КонецЕсли;
   //-----------------------------------------------
   ИначеЕсли ТипЗн="Документ" Тогда
       СтандартнаяОбработка=0;
       Мет=Метаданные.Документ(Расшифровка.Вид());
       СпД=СоздатьОбъект("СписокЗначений");
       СпД.ДобавитьЗначение("Открыть","Открыть документ");
       СпД.ДобавитьЗначение("Найти","Найти документ в журнале");
       Если Найти(ВРЕГ(Мет.Комментарий),"ПЕЧАТЬ")>0 Тогда
           СпД.ДобавитьЗначение("Печать","Напечатать документ");
           СпД.ДобавитьЗначение("Отправить","Отправить по электронной почте");
       КонецЕсли;
       Если Расшифровка.ДокументОснование.Выбран()=1 Тогда
           СпД.ДобавитьЗначение(0,"---------------------------------------------");
           СпД.ДобавитьЗначение("ОткрытьОснование","Открыть основание документа");
           СпД.ДобавитьЗначение("НайтиОснование","Найти основание в журнале");
       КонецЕсли;
       СпД.ДобавитьЗначение(0,"---------------------------------------------");
       СпД.ДобавитьЗначение("Дерево","Показать дерево связей");
       Если Расшифровка.Проведен()=1 Тогда
           СпД.ДобавитьЗначение("Движения","Показать движения документа");
       КонецЕсли;
       Если Расшифровка.ПометкаУдаления()=0 Тогда
           СпД.ДобавитьЗначение("Удалить","Удалить документ");
       КонецЕсли;
       // убрано из-за ошибки при вводе на основании документов со свойствами
       //Если Мет.ВводимыеНаОснованииДокументы.Количество()>0 Тогда
       //    СпД.ДобавитьЗначение(0,"---------------------------------------------");
       //    СпД.ДобавитьЗначение("ВводНаОсновании","Ввести на основании...");
       //КонецЕсли;
       Если СпД.ВыбратьЗначение(Отчет,,,,1)=0 Тогда Возврат;
       ИначеЕсли Отчет=0 Тогда     Возврат;            // Выбран разделитель - все равно, что нет выбора
       ИначеЕсли Отчет="Открыть" Тогда                // Открыть документ
            ОткрытьФорму(Расшифровка);
       ИначеЕсли Отчет="ОткрытьОснование" Тогда    // Открыть основание
           ОткрытьФорму(Расшифровка.ДокументОснование);
       ИначеЕсли Отчет="НайтиОснование" Тогда        // Найти основание в журнале
           глДокументДействие(Расшифровка.ДокументОснование,"Найти");
       ИначеЕсли Отчет="Удалить" Тогда        // Найти основание в журнале
           Если Вопрос("Вы уверины, что надо удалить
           |"+ Расшифровка.ТекущийДокумент(),1,5)=1 Тогда
               Док=СоздатьОбъект("Документ");
               Док.НайтиДокумент(Расшифровка.ТекущийДокумент());
               Док.Удалить(0);
           КонецЕсли;
           Возврат;
       Иначе глДокументДействие(Расшифровка,Отчет);// Все остальные действия соответствуют "глДокументДействие"
       КонецЕсли;
   //-----------------------------------------------
   ИначеЕсли ТипЗн="СписокЗначений" Тогда
        // Расшифровка отчета
       Если ПустоеЗначение(Расшифровка.Получить("ИмяОтчета"))=0 Тогда
           // Клик по левому верхнему углу с общими параметрами
           Меню=СоздатьОбъект("СписокЗначений");
           Если Право[3]=0 Тогда
               Меню.ДобавитьЗначение("SaveExcel","Сохранить в Excel");
               Меню.ДобавитьЗначение("Excel","Открыть в Excel");
               Меню.ДобавитьЗначение("Почта","Отправить по почте");
               Меню.ДобавитьЗначение("Отправить","Отправить по электронной почте");
           КонецЕсли;
           Меню.ДобавитьЗначение("Обновить","Обновить");
           Меню.ДобавитьЗначение("Настройка","Настройка");
           Меню.ДобавитьЗначение("Закрыть","Закрыть");
           Если Меню.ВыбратьЗначение(Отчет,"",,, 1)=0 Тогда Возврат; КонецЕсли;
           Если Отчет="Закрыть" Тогда    Таблица.Показать(,,-1); Таблица=Пусто;
           ИначеЕсли (Отчет="Обновить") или (Отчет="Настройка") Тогда
               Если Метаданные.Отчет(Расшифровка.Получить("ИмяОтчета")).Выбран()=0 Тогда
                   Возврат;
               КонецЕсли;
               Общ.Установить("ОбновитьНастроить", Отчет);
               Общ.Установить("Таблица", Таблица);
               глРасшифровка=Расшифровка;
               ОткрытьФорму("Отчет."+Расшифровка.Получить("ИмяОтчета")+"#", Общ);
               глРасшифровка=0;

           ИначеЕсли Отчет="Excel" Тогда
               Попытка
                   //Имя=КаталогВременныхФайлов()+"\"+СокрЛП(Расшифровка.Получить("ИмяОтчета"))+".xls";
                   ФС.УстТекКаталог(КаталогПользователя());
                   Каталог=КаталогПользователя();
                   Имя=СокрЛП(Расшифровка.Получить("ИмяОтчета"))+" "+ДатаГод(ТекущаяДата())+Прав("0"+ДатаМесяц(ТекущаяДата()),2)+Прав("0"+ДатаЧисло(ТекущаяДата()),2)+" "+СтрЗаменить(ТекущееВремя(),":","_")+".xls";
                   Если ФС.ВыбратьФайл(1,Имя,Каталог,"Сохранение...","Файлы Excel (*.xls)|*.xls","XLS")=1 Тогда
                       Имя=Каталог+"\"+Имя;
                       Если Прав(Врег(Имя),4)<>".XLS" Тогда
                           Имя=Имя+".xls";
                       КонецЕсли;
                       глТаблицаЗаписать(Таблица,Имя,1);
                       ЗапуститьПриложение(Имя);
                       Попытка
                           Шел=СоздатьОбъект("WScript.Shell");
                           Для к=1 По 3 Цикл
                               ВвестиСтроку("Ожидание...","Ожидание...",11,0,1);
                               Если Шел.AppActivate("Microsoft Excel - "+СокрЛП(Расшифровка.Получить("ИмяОтчета")))=1 Тогда
                                   Прервать;
                               КонецЕсли;
                           КонецЦикла;
                           
                       Исключение
                       КонецПопытки;
                   КонецЕсли;
               Исключение    Сообщить("Не могу обработать файл "+Имя,"!"); Сообщить(ОписаниеОшибки(),"!!!"); Сигнал();
               КонецПопытки;
           ИначеЕсли Отчет="SaveExcel" Тогда
               //Имя=КаталогВременныхФайлов()+"\"+СокрЛП(Расшифровка.Получить("ИмяОтчета"))+".xls";
               ФС.УстТекКаталог(КаталогПользователя());
               Каталог=КаталогПользователя();
               Имя=СокрЛП(Расшифровка.Получить("ИмяОтчета"))+" "+ДатаГод(ТекущаяДата())+Прав("0"+ДатаМесяц(ТекущаяДата()),2)+Прав("0"+ДатаЧисло(ТекущаяДата()),2)+" "+СтрЗаменить(ТекущееВремя(),":","_")+".xls";
               Если ФС.ВыбратьФайл(1,Имя,Каталог,"Сохранение...","Файлы Excel (*.xls)|*.xls","XLS")=1 Тогда
                   Имя=Каталог+"\"+Имя;
                   Если Прав(Врег(Имя),4)<>".XLS" Тогда
                       Имя=Имя+".xls";
                   КонецЕсли;
                   глТаблицаЗаписать(Таблица,Имя,1);
               КонецЕсли;
           ИначеЕсли Отчет="Отправить" Тогда
               глПортрет(Таблица,,,,,,Расшифровка.Получить("ИмяОтчета"),,1);
           ИначеЕсли Отчет="Почта" Тогда
               Попытка
                   ИмяК=СокрЛП(Расшифровка.Получить("ИмяОтчета"))+".mxl";
                   ИмяС=КаталогВременныхФайлов()+ИмяК;
                   глТаблицаЗаписать(Таблица,ИмяС,1);
               Исключение    Сообщить("Не могу обработать файл "+ИмяС,"!"); Сообщить(ОписаниеОшибки(),"!!!"); Сигнал(); Возврат;
               КонецПопытки;
               Если Метаданные.Отчет(Расшифровка.Получить("ИмяОтчета")).Выбран()=0 Тогда
                   Возврат;
               КонецЕсли;
               СпП=СоздатьОбъект("СписокЗначений");
               СпФ=СоздатьОбъект("СписокЗначений");
               СпФ.ДобавитьЗначение(ИмяС,ИмяК);
               СпП.Установить("Режим",1);
               СпП.Установить("Автор",глПользователь);
               СпП.Установить("Тип сообщения",Перечисление.ТипСообщения.Письмо);
               СпП.Установить("Тема сообщения","Отчет "+Метаданные.Отчет(Расшифровка.Получить("ИмяОтчета")).Синоним);
               СпП.Установить("Присоединение",СпФ);
               СпП.Установить("Удаление присоединений",1);
               ОткрытьФорму("Элемент.Почта",СпП);
           КонецЕсли;
           Возврат;

       ИначеЕсли ТипЗначенияСтр(Общ)="СписокЗначений" Тогда
           Если (ПустоеЗначение(Общ.Получить("ИмяОтчета"))=0) или (ПустоеЗначение(Общ.Получить("Отчет"))=0) Тогда
               Для Сч=1 По Расшифровка.РазмерСписка() Цикл
                   ТекЗнач=Расшифровка.ПолучитьЗначение(Сч,ПрефСтр);
                   Общ.Установить(ПрефСтр,ТекЗнач);
               КонецЦикла;
           КонецЕсли;
           глЗначение=Таблица;
           ОткрытьФорму("Отчет.РасшифровкаОтчетов#", Общ);
           Возврат;
       КонецЕсли;

       Док=Расшифровка.Получить("Документ");
       Если ТипЗначения(Док)<>0 Тогда
           глОбработкаЯчейкиТаблицы(Док,СтандартнаяОбработка,Таблица);
       Иначе
           Меню=Расшифровка.Получить("Меню");
           Если ТипЗначенияСтр(Меню)="СписокЗначений" Тогда
               Если Меню.ВыбратьЗначение(Отчет,"",,, 1)=0 Тогда Возврат; КонецЕсли;
           Иначе Отчет=Расшифровка.Получить("Отчет");
           КонецЕсли;
           глРасшифровка=Расшифровка;
           Попытка
               Если Метаданные.Отчет(Отчет).Выбран()=1 Тогда ОткрытьФорму("Отчет."+Отчет+"#");
               ИначеЕсли ФС.СуществуетФайл(Отчет)=1 Тогда    ОткрытьФорму("Отчет",, Отчет);
               КонецЕсли;
           Исключение Сообщить(ОписаниеОшибки());
           КонецПопытки;
           глРасшифровка=0;
       КонецЕсли;
   //-----------------------------------------------
   Иначе СтандартнаяОбработка=1; Возврат;        // Не справочник, Не Документ, Не Список - неведома зверушка
   КонецЕсли;
КонецПроцедуры  // глОбработкаЯчейкиТаблицы

(58)плохо.. описание языка есть? во втором томе есть пример на стр 832

(59) это лишнее.. не надо..
Процедура ОбработкаЯчейкиТаблицы(ЗначЯч,ФСО)
Если ТипЗначенияСтр(ЗначЯч)="СписокЗначений" Тогда
ФСО=0;
//Здесь операторы емэйла
КонецЕсли
КонецПроцедуры

вот примерно такое надо вставить в модуль внешней формы печати счета

А в ячейку с кнопкой что-то пихать надо?

(60) Книжку нашла :))))))

(62)скопируй кнопку из типового отчета ОстаткиТМЦ, там всё, что нужно есть
(63) поздравляю :) знакомься :)

(64) В типовом на кнопке "РасшифовкаОбновить"

(65)погоди малёк..

//в верхней строке модуля твоей внешней формы:
Перем ИсхТабл;

//в процедуре Печать() после оператора
ИсхТабл = СоздатьОбъект("Таблица");
//напечатай
   Расшифровка = СоздатьОбъект("СписокЗначений");
   Расшифровка.ДобавитьЗначение("Мыло");
   ИсхТабл.ВывестиСекцию("Кнопка");
   ИсхТабл.ОбластьПечати(3);

//в конце тела модула (после всех-всех Процедур) вставь
Процедура ОбработкаЯчейкиТаблицы(ЗначЯч,ФСО)
   Если ТипЗначенияСтр(ЗначЯч)="СписокЗначений" Тогда
       ФСО=0;
       //Здесь твои операторы емэйла
       
   КонецЕсли
КонецПроцедуры

счас выложу скрин свойств кнопки на табличной форме

вот скрин свойств кнопки
http://img-fotki.yandex.ru/get/6401/22238773.1/0_73acc_934763b7_XL.jpg

+67 когда будешь писать свои операторы емэйла, помни, что имя таблицы - ИсхТабл
вот её и преобразуй в файл для мыла

СПАСИБО!!!!!!!

Не-е-е, сегодня явно не мой день.......
Сделала, как ты написал:
Перем ПечФакс;
Перем Докум;
Перем ИсхТабл;

//******************************************************************************
Процедура Печать(Докум, Устройство = 0, КолвоКопий = 1)

   Перем НачПовт, КонПовт;

   ИсхТабл = СоздатьОбъект("Таблица");
   НачПовт = 0; КонПовт = 0;
   
   Расшифровка = СоздатьОбъект("СписокЗначений");
   Расшифровка.ДобавитьЗначение("Мыло");
   ИсхТабл.ВывестиСекцию("Кнопка");
   ИсхТабл.ОбластьПечати(3);
   
............

Процедура ОбработкаЯчейкиТаблицы(ЗначениеЯчейки, ФлагСтандартнойОбработки)

   Если ТипЗначения(ЗначениеЯчейки) = "СписокЗначений" Тогда
       ФлагСтандартнойОбработки = 0;
       ИмяФайла    = "Счет " + СокрЛП(глНомерНаПечать(Докум)) + " от " + СокрЛП(НРег(Формат(Докум.ДатаДок, "Д ДДММММГГГГ")));
       КаталогДляЗаписи    = Строка(КаталогИБ() + "Счета\" + ИмяФайла + "xls");      
       ИсхТабл.Записать(ИмяФайла, "XLS");
   КонецЕсли;
   
КонецПроцедуры    

При нажатии на кнопку выдает: "Значение не представляет агрегатный объект (Выбран)". Чего-то я совсем ничего не понимаю.......

В записать - забыла КаталогДляЗаписи+ИмяФайла.
Все равно ругается на Выбран - кто выбран, кем выбран, куда выбран.....

(72)правильно ругается.. я лоханулся, модуль формы отчета-то не открыт!
счас исправлюсь..

(73) Где не открыт?

(74) в Предприятии, при печати из внешней формы модуль отрабатывает и становится закрытым, недоступным.

счас исправления напечатаю

//во-первых, исправь оператор в модуле внешней печ.формы на такой:
   Расшифровка.ДобавитьЗначение("Мыло","Мыло");

//во-вторых, как ни неприятно это мне, но придется курочить глобальный модуль..
//больше способа я не предумал
//итак, в гм добавь в следующую процедуру эти операторы:
Процедура глОбработкаРасшифровки(Расшифровка, СтандартнаяОбработка, Таблица) Экспорт
   
   Перем Отчет;
   //новые операторы отсюда
   Если Расшифровка.Получить("Мыло")="Мыло" Тогда
       //здесь или вставь операторы отправки на емэйл
       // или вызов новой процедуры с операторами емэйл
       Возврат;
   КонецЕсли;
   //и до-сюда
//далее - оставить без изменения, это типовая часть, не трогать!
   Док = Расшифровка.Получить("Документ");

*не предумал = не придумал.. граммммотей...

Все равно - тебе ОГРОМНОЕ спасибо! Был бы рядом - чмокнула бы!
:))))))))))

Масянька, гони нафиг всех этих недотеп.
Реально есть всего одно решение (я так думаю), которое НЕ ЗАВИСИТ ОТ КОНФИГУРАЦИИ и не зависит ни от какой печатной формы, и не требует никаких изменений КОДА КОНФИГУРАЦИИ. Все что надо - повесить кнопку на панель (можно и без этого, но тогда придется делать на два-три кнюпа больше)
.
это - перехват ЛЮБЫХ печформ формексом (как что-то похожее появитяс в снеговике - я тут же залумаюсь о миграции).
.
так что смотри и радуйся http://infostart.ru/public/14180/
.
лично от меня отдельные респекты Альфу(формекс), Епрсту(советы), и Олегу УжасБухгалтера(Йоксель)

(55) абрахамс явно втеме ;-)

(79) Ага. Для ТС самые простые действия в 7.7 просто убийственно непонятны, а ты ей FormEx подсовываешь

отправка мыла из 1с 77 категорично запрещена из-за сильной вероятности вируса v7.doc.vir.uss.s.2.cc

(79) Ты почему так поздно пришел? :)))))))))
СПАСИБО!!!!!!!

Я победила - кнопка не внешней печ. форме - РАБОТАЕТ!
(81) А вас, Штирлиц, я попрошу не выпендриваться.

(84) да, но это работает только на специальным образом подготовленных программистом печтаных формах. а (79) работает просто везде.

(81) скопировать файла и повесить кнопку - ТС сможет.. ;-)

(79) чё-то не вкурю:

"(скачать и использовать можно бесплатно, т.е. ДАРОМ)"

и тут же - купить за 3 тыра.

так бесплатно, или как? или на скачке - шаровары?

)87) даром, то есть безвозмездно, рабочая, но упрощенная версия - кому-то хватает и ее.

(84) Кэт, пАлишь не по-детски!!

Вот я и доползла до отправки.....
Написала, как в (15). Но - открывается Bat. А можно его не открывать?

Хорош про "российскую судебно-следственную систему" разговаривать!
Давайте, уже пинайте меня....
Скачала ROM-Mail: мене не понятно, что нужно указывать в - СерверОтправки, ПортОтправки?

(91) почтовый сервер, через который отправляешь. и порт сервера (дл отправки обычно 25)

а комплекте что с роммэйлом, что с диалмэйлом вполне себе сеть и als, и примеры

(92) Вот спасибо. Теперь мене понятно :)))))
(93) Там цифирьки стоят и не написано, откуда энти цифирьки.
Спасибо.

А нифига у меня сегодня не получается.......

Попытка
      Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll") = 0 Тогда
   Предупреждение("Не удалось загрузить компоненту ROM-Mail.dll.");
   Возврат;
     КонецЕсли;
Исключение
   Возврат;
КонецПопытки;
       
Почта=СоздатьОбъект("AddIn.AddInMail");
Почта.СерверОтправки=СокрЛП(".....");
Почта.ПортОтправки=СокрЛП(25);
Почта.Логин=СокрЛП(".......");
Почта.Пароль=СокрЛП(".....");
Почта.АутентификацияПриОтправке=1;
Если Почта.Подключиться("Отправка")=0 Тогда
   Предупреждение("Не удалось подключиться к серверу!");
Возврат;
КонецЕсли;

Почта.Важность = 0;
Почта.Кодировка = "windows-1251";
Почта.ТипПисьма = 2;
Почта.АдресОтправителя = ".......";
Почта.АдресПолучателя = Адрес;
Почта.ИмяОтправителя = "Анна";
Почта.Тема = "";
Почта.Тело = "";
//Почта.Вложения = КаталогДляЗаписи;
Если Почта.Отправить()=1 Тогда
   Предупреждение("Сообщение отправлено!");
Иначе
   Предупреждение("Не удалось отправить сообщение!");
КонецЕсли;
   Почта.Отключиться();


Где ошибка? Выводит "Не удалось отправить.....".

(95) ну..ну.. изобретай...

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

(97) Не поняла.....

(97) Ты, что обиделся? Я скачала твою разработку. Интересно. Но - ты сам писал? Вот и мне хочется самой разобраться.

опять соточко?!

(98) в майлру для того, чтобы письмо успешно ушло через смтп-сервермайлру недостаточно указать парметры подключения и адрес "кому".

(99) чтобы я обиделся - меня ударить надо, или там  руку сломать.. а так - на детей и убогих не обижаются ;-)

(99) нет, исходный костяк не сам писал. взял у avb рабочий варинт простой как две копейки, прикрутил туда передачу параметров и отправил. Потом накрутил сверху функционал нужный.

(103): и обфускатором прошёлся?.. ;)
(ссылочку на авб-овский вариант не кинешь, брат-дворник?)

(103) А мне тяжело в твоем коде разобраться.... А прикручивать не понимая - НЕНАВИЖУ. А если не сочтешь за труд - кинь простой как 2 копейки рабочий вариант, пожалуйста.
(101) А что еще надо? В примере так написато. Или как обычно: в примере рассматривается примитив.

(105) майлру требует авторизации

(106) Каким образом ее прописать?

представления не имею о роммайле и диалмайле

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

(107) ну-ну... изобретатйте ;-)

(105) а кто сказал что будет легко? ;-)

http://avb1c.narod.ru/

спасибо, Абрахамс.

у Масяньки хороший ник, в аккурат для неё :)

(112) Спасибо!
(114) Штирлиц! Это наезд или комплимент?

А где все гении?
Ничего не получается. И CDO попробовала. Опять ругается только на отправку - не отправлено и фсё!
Может какие-то подводные камни есть: ТиС, 932, платформа 027, Win 7.

(116) по РОМ-мэйлу - задай вопрос автору, я не знаю как он под вин7 работает.
диалмэйл вроде работает.
на какой почтовик шлешь?

Код ошибки транспорта: 0х80040217. Отлик сервера: not aviable

(117) Сейчас пробую на свой land.ru. Потом надо будет на nvrsk.ru

(116) надо загрузить ВК "от имени администратора". Или же загрузчиком ВК.

(119) Каким макаром?

вот кусок функции для работы ч/з ROM-mail

Флаг=0;
Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
   Описание="Отправка почты::: Не удалось загрузить почтовую компоненту ROM-Mail.dll";
           Возврат Рез;
КонецЕсли;
ВК=СоздатьОбъект("AddIn.AddInMail");
ВК.ОставлятьНаСервере            =Число(Отправитель.ОставлятьПисьма);        
ВК.СерверОтправки=СокрЛП(Отправитель.ServerSMTP);
ВК.АутентификацияПриОтправке    =Число(Отправитель.ФлагПодлинности);
ВК.Логин=СокрЛП(Отправитель.Имя);
ВК.Пароль=СокрЛП(Отправитель.Пароль);        

Состояние("Подключение к серверу");
Если ВК.Подключиться("Отправка")=0 Тогда
   Описание="Отправка почты::: Не удалось подключиться к серверу!";
   Возврат Рез;
КонецЕсли;
   
ВК.АдресОтправителя=СокрЛП(Отправитель.ЭлПочта);
ВК.ИмяОтправителя=СокрЛП(Отправитель.Наименование);
ВК.АдресПолучателя=СокрЛП(АдресПолучателя);
ВК.Тема=СокрЛП(Тема);
ВК.Тело=СокрЛП(Тело);
ВК.Вложения=СокрЛП(ПолучитьФайлы(СпсФайлов));
Состояние("Отправка почты");
Если ВК.Отправить()=1 Тогда
   Рез=1; Описание="Отправка почты::: Почта отправлена!";
Иначе
   Рез=0; Описание="Отправка почты::: Не удалось отправить Почту!";
КонецЕсли;
   
ВК.Отключиться();
Возврат Рез;

(116) ну-ну... помедленеее, я конспектирую! ;-)

(121) + это работает с ящиками на mail.ru

Вот что-то мне подсказывает, что дело в mail.ru. А если ящик не на mail.ru - тогда никак?

(124) да пофих какой ящик

Ну скажите мне где ошибка


Функция Отправить(КаталогДляЗаписи)

   Адрес = СокрЛП(Докум.Контрагент.ЭлПочта);
   Попытка
       
       loConfig = CreateObject("CDO.Configuration");
       loCdoMessage = CreateObject("CDO.Message");
       
       loCdoMessage.Configuration = loConfig;
       loCdoMessage.From = "<[email protected]>";
       loCdoMessage.To = "<" + Адрес + ">";
       loCdoMessage.Subject = "";
       loCdoMessage.textbody = "";
       //loCdoMessage.AddAttachment(КаталогДляЗаписи);
       
       loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2;
       loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = "217.27.40.2";
       loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value = 25;
       loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value = 1;
       loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").Value = "[email protected]";
       loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value = "polina";
       loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value = 0;
       loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;
       loConfig.Fields.Update();
       loCdoMessage.Send();
       Сообщить("есть");
       Возврат 1;
   Исключение
       Сообщить("нет - " + ОписаниеОшибки());
       Возврат 0;
   КонецПопытки;

КонецФункции // Отправить

а где

loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = АдресПолучателя; ??

(127) Пропустила :(
Вставила.... Не удалось отправить сообщение на SMTP-сервер.....

А вот сегодня мой день!
Получилось!!!!!
Всем - респект и спасибо за помощь!!!!!!!

(129)рассказывай, где была ошибка, и как исправила :)

(129) з дня - это быстро!
с другой стороны - обходя грабли мы лишаемся бесценного опыта...

А фиг его знает....
Но - почему-то работает только с одним ящиком (то есть с него отправляет и получает на него же). Не могу добиться работы с другим ящиком.....

(131) Не издевайся....

Сделала новый ящик на mail. На него не хочет уходить :(

Я же правильно понимаю, что SMTP - это только для отправки (то есть это постоянно, одинаково), а вот адрес получателя - тут как раз адрес, на который отправляем письмо.

(134) проверяй еще раз что я выше написал. +на майл ру требуется авторизация для отправки 9сейчас наверное смпт без авторизации и не осталось..?)

(134) какой ответ дает сервер - какое сообщение?
(135) возьми со станички avb (упоминалось выше) - вариант отправки письма через CDO - уйдет или нет?

mailru/Помощь/Доступ из почтовых программ/
http://help.mail.ru/mail-help/mailer/popsmtp
Вы можете отправлять и получать письма не только через веб-интерфейс, но и используя почтовые программы

ля их настройки вам понадобится следующая информация:

   Ваш электронный адрес (имя почтового ящика/e-mail address) — это полное название вашего почтового ящика, включая логин, значок «@» собачки и домен (например, [email protected]).
   
   Сервер входящей почты IMAP-сервер — imap.mail.ru
        POP3-сервер — pop.mail.ru;
   
   Сервер исходящей почты (SMTP-сервер) — smtp.mail.ru;
   
   Имя пользователя — это полное название вашего почтового ящика, включая логин, значок «@» собачки и домен (например, [email protected]);

   Пароль — текущий пароль, который вы используете для входа в почтовый ящик;

   Порт —  IMAP — 143 (при использовании шифрования STARTTLS) и 993 (при использовании шифрования SSL/TLS)
         POP3 — 110 (без шифрования) и 995 (с шифрованием)
              SMTP — 25, 587 или 2525 (без шифрования) и 465 (с шифрованием).

В настройках почтовой программы необходимо указать,  что сервер исходящей почты (или сервер SMTP) требует авторизации.

"Домен" - mail.ru
Поскольку у меня почта [email protected], сервер исходящей будет Smtp.bk.ru

//---------------------------------

вот с такими настройками CDO вариант с мэйловой почтой у меня тоже отказывается работать :)

+138 непонятное дело..
код сработал на домашнем компе, а в офисе работать отказался..
может прокси мешает?

жаль, админы злые, боюсь спрашивать, но... надо :)

когда-то давно делал сабж тоже на 7.7 для теста использовал свое внешнее мыло, с которого уведомления на телефон смсились. И в общем как-то я проторговал момент, когда решил замутить нагрузочное тестирование и пустил в очередь на отправку документы за неделю. Четыре дня смски с телефона удалял...
ЗЫ Делал через dialmail, работало много лет

(140) :)
что в CDO подкупает - не нужно никакого почтовика на компе.. ни аутглюки ни прочие зебаты :)
код абсолютно автономно работает, лишь-бы инет был :)

(141) Пу ладно, отправить можно с помощью CDO, а как получить почту без почтовиков и т.п.? Я как-то задался этим вопросом и не получилось у меня найти ответ.

(142) Пу ладно = Ну ладно

))

(142)без почтового клиента, имхо - получить почту немыслимо.
ИМХО, однако: если все-таки есть MSOffice на компе (а без этого сейчасошный комп - не комп, кирпич :)) можно использовать вариант, предлагаемый в Помощи на мэйлру (138) - создать учетную запись в аутлуке, используя рекомендованные их настройки smtp и pop

может и не получиться.. на этой неделе буду пытаться проделать такую штуку у моего знакомого, выйдет/не выйдет - отпишусь..всё равно с урбд у меня вопросов больше, чем ответов.. а настроить урбд надо, на паре ноутов в ларьке :)

(144) подними ftp и не мучайся...

(144) почта прекрасно получается ром-мэйлом или диал-мэйлом.

(145)это для меня сложновато :) но подумаю..

(146)да я пытался в офисе поработать с ром-мэйлом, не вышло, и я на него забил-было..
спасибо, однако, вернусь к нему еще разок.. Видимо, это будет попроще решение

+147 подозреваю, в офисе прокси портит мне жизнь..
а дома ром-мэйл попробовать вчера не сообразил :(

(144) у меня установлен Опен-Офис. МС-Офис покупать не планирую вообще.

Кстати, при установленном МС-Офисе можно получать почту, не используя аутлук.

(146) Фишка в том, чтобы использовать только виндовые средства

(149) вам таки шашэчки, или ехать? :-)
Ром-мэйл работал с 2004, в  2010 или 2011 перешел на диалмэйл только из-за еобходимости работы с ftp (из-за EDI)

(150) да понятно это всё. У самого РОМ-Мэйл работает. Идея именно такая, чтобы не использовать сторонние компоненты :)

Дядьки! Дайте полчаса - по-моему я нашла.....

(152) где неделя, там и две...

(152) Чё-ли ветку внимательно перечитала? )))

ИЕС, ит из!!!!!!!!!!!!
Елки-моталки!!!!!!!!!!!!!

Вы тут все такие умные, а никто не дошарил, что от самого ящика (через который отправляется) что-то зависит.
В общем, простым, понятным языком: ящик у местного провайдера (или как он там называется). И вот через него не получается. Как мене объяснили: "Заморочки....".
Через ящик на бесплатной почте (вчера пробовала mail, сегодня gmail) - АРБАЙТЭН!!!

PS С---ой буду - не забуду этот паровоз!


Все - всем спасибо! И учитесь :(((((((

(144) Мне получать не надо, мне надо именно отправлять печ. форму по мылу.

(155) Шо это было, Кэт??

(157) И эти люди учать меня не ковырять в носу :))))))))))))))

Говорю же - ящик (через который до вчерашнего дня) пыталась отправить находится на почтовом сервере некого провайдера. Вот у этого провайдера (я бы его другим словом назвала) есть "какие-то заморочки". Толком они объяснить не могут. Все коды из вышеприведенных  - рабочие. Просто именно для этого провайдера нужны какие-то особые настройки (толком объяснить не могут).
Короче, для отправки почты из 7.7 помимо SMTP, порта, пользователя, пароля, и т. д., что-то зависит и от того, где ящик.

PS Х...нь - х...нью....

(155) тебе проехали по ушам

(158) т.е. обычные почтовики (аутлук, бат, прочие) почту через этого провайдера не могут отправить...? сомневаюсь! срочно снимайте лапшу с ушей и начинайте продавать!

(159) Ха-ха-ха.
Объясняй, тогда почему не работает через один единственный ящик.

(160)- не, речь-то о мучениях стыковки почтовиков с ВК 1с

(161) а что ответите на (160)...?

(162) ну пусть тогда не трындит...

(160) Могут, но когда их настраивали (в частности, Bat), приходил малчик из техподдержки и чего-то химичил, заработало. Потом в какой-то момент почта перестала уходить, а приходить - приходила. Опять пришла техподдержка, долго ковырялась, куда-то звонила и заработала.

(164) Ты мозги включи и подумай.

как вариант давай попробуем так - заведи на этом провайдере ящитк пустышку. учетные данные - сюда или на почту мне [email protected]? также на почту - ссылку с сервера провайдера, где нарисованы какие должны быть настройки у почтовиков. а я попробую...

(165) в бате настройки почты ничем не отличаются от настроек других почтовиков. могут быть тонкости в указании имени учетки (некоторые почтовики требуют полного имени), если какие-то старые совсем провайдеры - могут быть особенности записи имени учетки - не через собаку, а наприер через #
.
так что вообщем жду (167).. тока быстрее довай, а то на рабюоту ехать надо...

(168) Не дам - платный.

(167) И ссылок нет. Говорю же, когда этот ящик прописывали в Bat сделали стандартные настройки, а не арбайтэн, пока не вызвали техподдержку, которая и настроила. А все настройки (SMTP и прочее) я именно с Bat и брала.

Я подозреваю, что провайдер делает настройки у себя на серваке. Хотя... бес его знает....

мдя... как все запущено...

Да, это Замкадье.....

(172)иди ужо на работу :)

(172) Тебе - отдельный респект! :)))))

Масяня ващще не в теме. Слишком много слов для такого малого количества действий.

(176)"ты хто? дирехтор? да пошел ты в .опу, дирехтор, не до тебя сейчас!"©

(177) "Мдааа... романтический момент потерян" (с)  )))

Ой, подумаешь!
"Ну, вот так они и жили: спали врозь, а дети были." (С)