Как внести один e-mail списку контрагентов
По теме из базы знаний
- Некоторые особенности БП 3.0
- Загрузка номенклатуры c картинками (несколько потоков одновременно) и сопутствующими данными в базу и любые документы из yml, xls, xlsx, xlsm, ods, ots, csv для УТ 10.3, УТ 11 (все), БП 3, КА 2, ERP 2, УНФ 1.6/3.0, Розница 2/3.0
- Кастомизация "на лету"
- Регби. Управление по методике Agile:Scrum с элементами Канбан
- Загрузка чеков в 1С из ФНС в документы БП, УНФ, ERP, КА и УТ
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(2) пробовала по всякому.. не меняет. Обычным групповым изменением в списке контрагентов не получается, если через администрирование-служебные возможности там не email, а электронный адрес.. но и по нему пробовала, показывает что изменил, но в контрагенте не появляется, видимо поле электронный адрес не подходит.
(3)пробовала через служебные реквизиты, не получилось. Может что то не так делаю но там только электронный адрес, не email, показывает через изменение что изменил, но в карточке не появляется.. возможно ли там именно поле Email вытащить как то... видимо именно в несоответствии названия дело? Весь вечера вчера пыталась но тщетно. :(
Простейшая обработка. Тестировать только на копии базы.
&НаКлиенте
Процедура ПочтаДляВсех(Команда)
ПочтаДляВсехНаСервере();
КонецПроцедуры
&НаСервере
Процедура ПочтаДляВсехНаСервере()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
|ГДЕ
| Контрагенты.ЭтоГруппа = ЛОЖЬ";
Запрос.УстановитьПараметр("Тип", Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);
Результат = Запрос.Выполнить().Выгрузить();
Для Каждого Строка ИЗ Результат Цикл
ТЗКонтрагент = Строка.Ссылка;
НовыйАдрес = "new2021@mail.ru";
Вид = Справочники.ВидыКонтактнойИнформации.EmailКонтрагенты;
УправлениеКонтактнойИнформацией.ДобавитьКонтактнуюИнформацию(ТЗКонтрагент,НовыйАдрес,Вид,ТекущаяДата(),Истина);
Сообщить(ТЗКонтрагент);
КонецЦикла;
КонецПроцедуры
Показать
CMS 1С-Битрикс, как мне кажется, интуитивно понятная. Не нужно иметь высшего образования программиста, чтобы разобраться. Конечно, если уже лезть дальше, то лучше довериться профессионалу. Мы начали с начального тарифа, сейчас уже перешли на следующий.
1. Групповое изменение реквизитов.
2. Изменять: Контрагенты
3. Установить необходимый отбор.
4. Дополнительные параметры - Показывать служебные реквизиты - галочка.
5. Выполнить произвольный алгоритм
6. Вставить код:
"
ЭлПочта = "Email"; //вставить необходимый адрес
Вид = Справочники.ВидыКонтактнойИнформации.EmailКонтрагенты;
УправлениеКонтактнойИнформацией.ДобавитьКонтактнуюИнформацию(Объект,ЭлПочта,Вид,ТекущаяДата(),Истина);
Объект.Записать();
"
7. Выполнить.
2. Изменять: Контрагенты
3. Установить необходимый отбор.
4. Дополнительные параметры - Показывать служебные реквизиты - галочка.
5. Выполнить произвольный алгоритм
6. Вставить код:
"
ЭлПочта = "Email"; //вставить необходимый адрес
Вид = Справочники.ВидыКонтактнойИнформации.EmailКонтрагенты;
УправлениеКонтактнойИнформацией.ДобавитьКонтактнуюИнформацию(Объект,ЭлПочта,Вид,ТекущаяДата(),Истина);
Объект.Записать();
"
7. Выполнить.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот