Отправка писем по почте

@Рита20 · Регистрация: 09.12.2013

Author24 — интернет-сервис помощи студентам

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

@1c-k · 11.06.2015, 10:22

Привет! Как грят франчи сколько часов и по какой цене вы готовы?��

@Рита20 · 11.06.2015, 10:27 **[ТС]**

нее) денег у меня нет)

@Phil · 11.06.2015, 10:31

Рита20, альтруизм), в этой ветке форума помогают доделать имеющиеся наработки или дать совет как сделать ...

@1c-k · 11.06.2015, 10:34

Рита20, бггг. Вот! Про альтруизм чуть выше сказано. А вы предлагает потратить чье-то время в ваших корыстных целях) так не бывает.

@Рита20 · 11.06.2015, 10:37 **[ТС]**

ну я же Вас не заставляю)

@1c-k · 11.06.2015, 10:38

Правильно, но в принципе)

@Рита20 · 11.06.2015, 10:40 **[ТС]**

не могу сделать чтобы по пометке выбирались, есть обработка где отправляется 1 письмо, а мне нужно чтобы несколько

@Phil · 11.06.2015, 10:44

Рита20, что за пометка? приложите обработку, так дело может быстрее пойдёт

@1c-k · 11.06.2015, 10:56

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

@Рита20 · 11.06.2015, 13:34 **[ТС]**

1C

&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
    
    ПараметрыФормы = Новый Структура;
    ПараметрыФормы.Вставить("ИмяФормыДокумента" , ПараметрыВыполненияКоманды.Источник.ИмяФормы);
    ПараметрыФормы.Вставить("ОбъектыОтправки"   , ПараметрКоманды); 
    ОткрытьФорму("ОбщаяФорма.ОтправкаДокументовПоЭлектроннойПочте", ПараметрыФормы);
    
КонецПроцедуры

////Здесь нужно отобрать "ОбъектыОтправки" по метке, я новичок в этом деле, пока синтаксис плохо знаю

@1c-k · 11.06.2015, 13:41

Рита20, список как называется, где на форме стоят галки? Скрин формы киньте.

@Рита20 · 11.06.2015, 13:45 **[ТС]**

@1c-k · 11.06.2015, 13:49

Вот где галки стоят, как на форме называется список?
Надо что-то типа такого:

1C

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

@Рита20 · 11.06.2015, 13:54 **[ТС]**

@1c-k · 11.06.2015, 14:00

Рита20, я выше написал

@Рита20 · 15.06.2015, 09:43 **[ТС]**

Не получается сделать так как предложено выше...

Не знаю куда вписать проверку на пометку, кому не сложно прошу помочь новичку

1. При нажатии общей команды ОтправитьПоЭлектроннойПочте выполняется код:

1C

&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)   
    ПараметрыФормы = Новый Структура;
    ПараметрыФормы.Вставить("ИмяФормыДокумента" , ПараметрыВыполненияКоманды.Источник.ИмяФормы);
    ПараметрыФормы.Вставить("ОбъектыОтправки"   , ПараметрКоманды); 
    ОткрытьФорму("ОбщаяФорма.ОтправкаДокументовПоЭлектроннойПочте", ПараметрыФормы);    
КонецПроцедуры

2. Далее выполняется следующий код:

1C

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    Если Параметры.Свойство("АвтоТест") Тогда
        Возврат;
    КонецЕсли;
 
    Если НЕ ЗначениеЗаполнено(Параметры.ОбъектыОтправки) ИЛИ НЕ ЗначениеЗаполнено(Параметры.ИмяФормыДокумента) Тогда
        ВызватьИсключение НСтр("ru='Непосредственное открытие этой формы не предусмотрено.'");
    КонецЕсли;
    
    ОбъектыОтправки.ЗагрузитьЗначения(Параметры.ОбъектыОтправки);
    ОбъектОтправки = ОбъектыОтправки[0].Значение;
    ИмяМенеджераОтправки = ОбъектОтправки.Метаданные().ПолноеИмя();    
    ИмяФормыДокумента = Параметры.ИмяФормыДокумента; 
    АдресКомандОтправки = ОтправкаПочтовыхСообщений.АдресКомандОтправки(ИмяФормыДокумента, ИмяМенеджераОтправки, УникальныйИдентификатор);
 
    КомандыОтправки = ПолучитьИзВременногоХранилища(АдресКомандОтправки);
    
    Для Каждого КомандаОтправки Из КомандыОтправки Цикл
        Список.Добавить(КомандаОтправки.ИмяКоманды, КомандаОтправки.Представление);
    КонецЦикла;
    
    Для Каждого ФорматСохранения Из УправлениеПечатью.НастройкиФорматовСохраненияТабличногоДокумента() Цикл
        ФорматыСохранения.Добавить(ФорматСохранения.ТипФайлаТабличногоДокумента, Строка(ФорматСохранения.Ссылка), ,
            ФорматСохранения.Картинка);
    КонецЦикла;
    
    НастройкаСпискаФорм = ХранилищеОбщихНастроек.Загрузить("КомандыОтправки" + ИмяМенеджераОтправки);
    Если НастройкаСпискаФорм <> Неопределено Тогда
        Для Каждого ВыбранныйКоманда Из НастройкаСпискаФорм Цикл 
            Команда = Список.НайтиПоЗначению(ВыбранныйКоманда.Значение);
            Если Команда <> Неопределено
                И Команда.Представление = ВыбранныйКоманда.Представление Тогда
                Команда.Пометка = ВыбранныйКоманда.Пометка;
            КонецЕсли;
        КонецЦикла;
    КонецЕсли;
    
    Если Список.Количество() = 1 Тогда
        СценарийОтправкиОднойПечатнойФормы = Истина;
        Список[0].Пометка = Истина;
        ТекущаяСтраница = "СтраницаВыборФормата";
    Иначе
        СценарийОтправкиОднойПечатнойФормы = Ложь;
        ТекущаяСтраница = "СтраницаВыборПечатнойФормы";
    КонецЕсли;
    
    УправлениеФормой(ЭтотОбъект);
    
КонецПроцедуры

@Рита20 · 15.06.2015, 09:53 **[ТС]**

Должны выбраться 3 документа, а выбирается только выделенный :

После выбора отображается выбор формата сообщения

@1c-k · 15.06.2015, 11:35

Рита20, привет)
Смотри пометка у тебя на форме = ДанныеФормыКоллекция.
Значит надо передать нужные данные.

1C

&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) 
    ПараметрыФормы = Новый Структура;
    ПараметрыФормы.Вставить("ИмяФормыДокумента" , ПараметрыВыполненияКоманды.Источник.ИмяФормы);
    ПараметрыФормы.Вставить("ОбъектыОтправки"   , ПараметрКоманды); 
    ПараметрыФормы.Вставить("Список", Список);
ОткрытьФорму("ОбщаяФорма.ОтправкаДокументовПоЭлектроннойПочте", ПараметрыФормы);    
КонецПроцедуры

И когда открывается форма - обрабатываем значения, для этого:

1C

Процедура ПриСозданииНаСервере()
Если Параметры.Свойство("Список") тогда
    Для Каждого Строка Из Список Цикл
        Если Строка.Пометка Тогда
           //Действия
        КонецЕсли;
    КонецЦикла;

@Рита20 · 15.06.2015, 12:03 **[ТС]**

А Список это что за переменная? (ругается)
И какие действия вставить? Те, что во втором коде написаны?

@1c-k 340 / 315 / 43 Регистрация: 20.08.2014 Сообщений: 1,242 Записей в блоге: 1
	11.06.2015, 14:00	16
	Рита20, я выше написал 1

@Рита20 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 34
	15.06.2015, 09:53 [ТС]	18
	Должны выбраться 3 документа, а выбирается только выделенный : После выбора отображается выбор формата сообщения 0

@Рита20 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 34
		1
	1C 8.x Отправка писем по почте 11.06.2015, 09:58. Показов 3007. Ответов 20 Метки нет (Все метки) Всем привет) кто может помочь сделать отправку нескольких актов сверки по маил почте каждого выбранного контрагента(маил контрагента указан в его контактных данных), выбор акта осуществляется по меткам. Спасибо заранее!!!) 0

@1c-k 340 / 315 / 43 Регистрация: 20.08.2014 Сообщений: 1,242 Записей в блоге: 1
	11.06.2015, 10:22	2
	Привет! Как грят франчи сколько часов и по какой цене вы готовы?�� 0

@Рита20 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 34
	11.06.2015, 10:27 [ТС]	3
	нее) денег у меня нет) 0

@Phil 434 / 305 / 92 Регистрация: 28.05.2014 Сообщений: 1,247
	11.06.2015, 10:31	4
	Рита20, альтруизм), в этой ветке форума помогают доделать имеющиеся наработки или дать совет как сделать ... 0

@1c-k 340 / 315 / 43 Регистрация: 20.08.2014 Сообщений: 1,242 Записей в блоге: 1
	11.06.2015, 10:34	5
	Рита20, бггг. Вот! Про альтруизм чуть выше сказано. А вы предлагает потратить чье-то время в ваших корыстных целях) так не бывает. 0

@Рита20 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 34
	11.06.2015, 10:37 [ТС]	6
	ну я же Вас не заставляю) 0

@1c-k 340 / 315 / 43 Регистрация: 20.08.2014 Сообщений: 1,242 Записей в блоге: 1
	11.06.2015, 10:38	7
	Правильно, но в принципе) 0

@Рита20 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 34
	11.06.2015, 10:40 [ТС]	8
	не могу сделать чтобы по пометке выбирались, есть обработка где отправляется 1 письмо, а мне нужно чтобы несколько 0

@Phil 434 / 305 / 92 Регистрация: 28.05.2014 Сообщений: 1,247
	11.06.2015, 10:44	9
	Рита20, что за пометка? приложите обработку, так дело может быстрее пойдёт 0

@1c-k 340 / 315 / 43 Регистрация: 20.08.2014 Сообщений: 1,242 Записей в блоге: 1
	11.06.2015, 10:56	10
	Так пометка она в таблице значений. Делаем цикл и проверяемых пометку, если стоит шлем письмо. 0

@1c-k 340 / 315 / 43 Регистрация: 20.08.2014 Сообщений: 1,242 Записей в блоге: 1
	11.06.2015, 13:41	12
	Рита20, список как называется, где на форме стоят галки? Скрин формы киньте. 0

@Рита20 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 34
	11.06.2015, 13:45 [ТС]	13
	0

@Рита20 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 34
	11.06.2015, 13:54 [ТС]	15
	0

@Рита20 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 34
	15.06.2015, 12:03 [ТС]	20
	А Список это что за переменная? (ругается) И какие действия вставить? Те, что во втором коде написаны? 0

Отправка писем по почте

Решение