Помощь при написании обработки отправка по электронной почте
Помогите начинающему программисту. Пишу обработку групповой отправки сообщения по электронной почте средствами 1с. должно по каждой строке таблицы формироваться письмо и отправляться по электронке. возникла проблема при написании кода для формировании и отправки письма. не могу сообразить как коректно написать функцию СформироватьПараметрыПисьма(). Ругается на то что поле объекта не обнаружено.
&НаКлиенте
Процедура Отправить(Команда)
Если УчетнаяЗапись.Пустая() Тогда
Сообщить("Не указана учетная запись");
Возврат;
КонецЕсли;
Для Каждого СтрокаТаблицы из СчетаНаОплату Цикл
Если СтрокаТаблицы.АдресЭП = "" Тогда
Сообщить("Не указан адрес электронной почты у контрагента " + СтрокаТаблицы.Контрагент);
Возврат;
КонецЕсли;
ПараметрыПисьма = СформироватьПараметрыПисьма();
Попытка
ОтправитьПочтовоеСообщениеСервер(ПараметрыПисьма);
Исключение
Сообщить("Не удалось отправить письма по причине " + ОписаниеОшибки());
КонецПопытки;
КонецЦикла;
КонецПроцедуры
&НаСервере
Функция СформироватьПараметрыПисьма()
ПараметрыПисьма = Новый Структура;
ТемаПисьма = "Документы от " + СчетаНаОплатуОрганизация + " для " + СчетаНаОплатуКонтрагент;
ТелоПисьма = "К письму приложен Счет на оплату № " + СчетаНаОплатуНомер + " от " + СчетаНаОплатуДата + " на сумму " + Формат(СчетаНаОплатуСуммаДокумента, "ЧДЦ=2; ЧН=0");
ПараметрыПисьма.Вставить("Кому", СчетаНаОплатуАдресЭП);
ПараметрыПисьма.Вставить("УчетнаяЗапись", УчетнаяЗапись.АдресЭлектроннойПочты);
ПараметрыПисьма.Вставить("Тема", ТемаПисьма);
ПараметрыПисьма.Вставить("Тело", ТелоПисьма);
// ПараметрыПисьма.Вставить("Вложения", Вложения);
ПараметрыПисьма.Вставить("ТипТекста", ТипТекстаПочтовогоСообщения.HTML);
Возврат ПараметрыПисьма;
КонецФункции
&НаСервере
Процедура ОтправитьПочтовоеСообщениеСервер(ПараметрыПисьма)
РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(УчетнаяЗапись.АдресЭлектроннойПочты, ПараметрыПисьма);
Конецпроцедуры
ПоказатьПрикрепленные файлы:
По теме из базы знаний
- Массовая рассылка писем с HTML. Отправить письмо или почту через 1С с картинками, изображениями, таблицами и прочим
- Автоматизируй это!
- Автоматический запуск бизнес-процессов по входящим письмам с электронной почты в 1С Документооборот.
- Визуализация электронной подписи на исходящих документах в соответствии с ГОСТ Р 7.0.97-2016. Финальная версия
- Отправка электронных писем из 1С
Ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
(1)
1.
2.
как то так :)
1.
ПараметрыПисьма = СформироватьПараметрыПисьма();
ПараметрыПисьма = СформироватьПараметрыПисьма(СтрокаТаблицы);
2.
Функция СформироватьПараметрыПисьма(вхСтрока)
ПараметрыПисьма = Новый Структура;
ТемаПисьма = "Документы от " + вхСтрока.Организация + " для " + вхСтрока.Контрагент;
ТелоПисьма = "К письму приложен Счет на оплату № " + вхСтрока.Номер + " от " + вхСтрока.Дата + " на сумму " + Формат(вхСтрока.СуммаДокумента, "ЧДЦ=2; ЧН=0");
ПараметрыПисьма.Вставить("Кому", вхСтрока.АдресЭП);
ПараметрыПисьма.Вставить("УчетнаяЗапись", УчетнаяЗапись.АдресЭлектроннойПочты);
ПараметрыПисьма.Вставить("Тема", ТемаПисьма);
ПараметрыПисьма.Вставить("Тело", ТелоПисьма);
// ПараметрыПисьма.Вставить("Вложения", Вложения);
ПараметрыПисьма.Вставить("ТипТекста", ТипТекстаПочтовогоСообщения.HTML);
Возврат ПараметрыПисьма;
КонецФункции
Показатькак то так :)
Вакансии
Аналитик 1С / Бизнес-аналитик
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)