Добрый день. Хочу рассылать по мылу расчетные листки...так вот вопрос в том как аданную область табличного поля конвертировать в HTML, чтоб потом отправить по эл.Почте?

Записать() целиком ТабДок можно как хтмл, а вот область...

(0) печатай в пдф и посылай

(1) хорошо....как целиком?

(3) сказал же, Записать()

(2) у меня много сотрудников.........рассылка нужна потоком

а блин, не увидел, что область надо. Но если целиком - можно и потоком посылать. Два варианта у тебя уже есть.

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

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

сохраняй в pdf или xls и шли.

Ого..меня бухи убьют.......это сохранить на каждого, потом отправить каждому....ни че так автоматизация

(10) Сохрани, отправь, удали.

(10) применяй цикл

(11) сохрани как? могу я стандартным отчетом хоть сохранить разными файлами?

(13) тебе уже все написали.

(14) пока вообще ответа небыло.......каким образом я сохраню отдельно по сотрудникам, либо каким образом конверну?

(11) Сохрани, отправь, удали. - это что??? меня отправь, удали вообще не интересует.......я по сохрани прошу уточнить

(16) в СП по этому поводу есть?

(17) не знаю что такое СП......я недавно на сайте. ЛАдно появилась новая идейка.........сама посмотрю...спс

(15) фотку поставь и пол смени в личке. Программно формируй расчетные листки, сохраняй их также программно как в (4), отсылай также программно, ну и удаляй также программно.

(19) как распознал, шайтан?

(20) телепатия неожиданно проснулась

Текст письма генеришь на ходу.


CDO_СерверSMTP="smtp.mail.ru";
Аутентификация=1;
CDO_ПользовательSMTP="Логин";
CDO_ПарольSMTP="Пароль";
CDO_ПортSMTP=25;
Отправитель="Логин@mail.ru";
Письмо=Новый COMОбъект("CDO.Message");
Письмо.to="Дедушке@НаДеревню.com;
Письмо.from="Логин@mail.ru";
Письмо.Subject="Тема письма";
Письмо.TextBody="Автоматически сгенереный текст письма";
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value=2;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value=CDO_СерверSMTP;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value=Аутентификация;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").Value=CDO_ПользовательSMTP;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value=CDO_ПарольSMTP;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value=CDO_ПортSMTP;
Письмо.Configuration.Fields.Update();
Письмо.Send();



Региш почту на mail.ru и спамишь сотрудников :)

(22) Ага, потом ящик взламывают, и конфиденциальные данные сотрудников оказываются в интернете. Красота.

Вот кусок рабочего кода. Сотрудникам отправляются сообщения с вложениями по внутренней почте.

Отчет = Отчеты.РасчетныеЛисткиОрганизаций.Создать();    

Отбор = Отчет.КомпоновщикНастроек.Настройки.Отбор;
       
       Отбор.Элементы.Очистить();
       
       ОтборПоСотруднику = Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
       ОтборПоСотруднику.Использование  = Истина;
       ОтборПоСотруднику.ЛевоеЗначение  = Новый ПолеКомпоновкиДанных("Сотрудник");
       ОтборПоСотруднику.ВидСравнения   = ВидСравненияКомпоновкиДанных.Равно;

       // 3.2. Параметры
       ПараметрыДанных = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных;
       
       ЗначениеПараметра = ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("НачалоПериода"));
       ЗначениеПараметра.Использование = Истина;
       ЗначениеПараметра.Значение = НачалоМесяца(НачалоПериода);
       
       ЗначениеПараметра = ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("КонецПериода"));
       ЗначениеПараметра.Использование = Истина;
       ЗначениеПараметра.Значение = КонецМесяца(КонецПериода);
       
       ЗначениеПараметра = ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ВидРасчетногоЛистка"));
       ЗначениеПараметра.Использование = Истина;
       ЗначениеПараметра.Значение = мВидРасчетногоЛистка;    


       // 5.2. Создание сообщений во временном каталоге на сервере для отправки файлов
       Для Каждого Элемент Из СписокСотрудников Цикл
           
           ОбработкаПрерыванияПользователя();
           
           ФормаИндикации.КомментарийЗначения = "Идет формирование...";            
           
           ДокументКЗаписи = Новый ТабличныйДокумент;
           
           ОтборПоСотруднику.ПравоеЗначение = Элемент.Значение;

           Отчет.СформироватьОтчет(ДокументКЗаписи);
           ДокументКЗаписи.Записать(ИмяВременногоФайла, ТипФайлаТабличногоДокумента.xls);        


КонецЦикла;

(23) А не писать конфиденциальные данные или слать вложением запароленным

(23) Да, кстати, можно слать на внутреннее мыло через внутренний сервак.