1С 8.3 БСП ОтправитьПисьмо
Данные > 1С 8.3 БСП > Почтовые сообщения и e-mail
Перейти в раздел примеры кода 1С 8.3:
1С 8.3 БСП ОтправитьПисьмо. Выполняет отправку одного письма. Функция может вызвать исключение, которое требуется обработать.
Примера кода от rayastar
Результат = РаботаСПочтовымиСообщениями.ОтправитьПисьмо(УчетнаяЗапись, Письмо);
//
Функция ОтправитьПакетЧерезЭлектроннуюПочту(ПараметрыОтправки, КонтекстОперации)
Вложения = Новый Массив;
ФайлыДляОтправки = НайтиФайлы(АдресКаталогаОтправки, "*.zip");
Для Каждого Файл Из ФайлыДляОтправки Цикл
ОписаниеВложения = Новый Структура;
ОписаниеВложения.Вставить("Представление", Файл.Имя);
ОписаниеВложения.Вставить("АдресВоВременномХранилище",
ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(Файл.ПолноеИмя)));
Вложения.Добавить(ОписаниеВложения);
КонецЦикла;
ПараметрыОтправки = Новый Структура();
ПараметрыОтправки.Вставить("Кому", АдресКонтрагента);
ПараметрыОтправки.Вставить("Тема", Тема);
ПараметрыОтправки.Вставить("Тело", );
ПараметрыОтправки.Вставить("Вложения", Вложения);
Письмо = РаботаСПочтовымиСообщениями.ПодготовитьПисьмо(РеквизитыПакетаЭД.АдресРесурсаОрганизации, ПараметрыОтправки);
Попытка
РаботаСПочтовымиСообщениями.ОтправитьПисьмо(РеквизитыПакетаЭД.АдресРесурсаОрганизации, Письмо);
РезультатОтправки = Истина;
Исключение
ТекстОшибки = СтрШаблон(НСтр("ru = 'Не удалось отправить письмо по адресу %1'"), АдресКонтрагента);
КонецПопытки;
Возврат РезультатОтправки;
КонецФункции
//
Функция ОтправитьПакетЧерезЭлектроннуюПочту(ПараметрыОтправки, КонтекстОперации)
Вложения = Новый Массив;
ФайлыДляОтправки = НайтиФайлы(АдресКаталогаОтправки, "*.zip");
Для Каждого Файл Из ФайлыДляОтправки Цикл
ОписаниеВложения = Новый Структура;
ОписаниеВложения.Вставить("Представление", Файл.Имя);
ОписаниеВложения.Вставить("АдресВоВременномХранилище",
ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(Файл.ПолноеИмя)));
Вложения.Добавить(ОписаниеВложения);
КонецЦикла;
ПараметрыОтправки = Новый Структура();
ПараметрыОтправки.Вставить("Кому", АдресКонтрагента);
ПараметрыОтправки.Вставить("Тема", Тема);
ПараметрыОтправки.Вставить("Тело", );
ПараметрыОтправки.Вставить("Вложения", Вложения);
Письмо = РаботаСПочтовымиСообщениями.ПодготовитьПисьмо(РеквизитыПакетаЭД.АдресРесурсаОрганизации, ПараметрыОтправки);
Попытка
РаботаСПочтовымиСообщениями.ОтправитьПисьмо(РеквизитыПакетаЭД.АдресРесурсаОрганизации, Письмо);
РезультатОтправки = Истина;
Исключение
ТекстОшибки = СтрШаблон(НСтр("ru = 'Не удалось отправить письмо по адресу %1'"), АдресКонтрагента);
КонецПопытки;
Возврат РезультатОтправки;
КонецФункции
// Автор библиотеки: ООО "1С-Софт". Все права защищены © 2021
// Типовая конфигурация Библиотека стандартных подсистем (далее - БСП)
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник