GoncharovNN
9/7/2018 - 2:39 PM

Отправка письма

Отправка письма #БСП

ТекстПисьма = "";
 ТекстПисьма = Строка(Предмет) + Символы.ПС;
 ТекстПисьма = ТекстПисьма + Символы.ПС + "Ссылка на заявку: e1c://server/1c/Erp#"+ПолучитьНавигационнуюСсылку(Предмет.Ссылка);
 ТемаПисьма = ТекстПисьма + Символы.ПС + Текст;
 Адресат = Предмет.Ответственный;
 ПочтовыйАдресПолучателя = "";
 ПриПолученииАдресаЭлектроннойПочты(Адресат, ПочтовыйАдресПолучателя);
 Если ПустаяСтрока(ПочтовыйАдресПолучателя) Тогда
 ЗаписьЖурналаРегистрации(НСтр("ru = 'Бизнес-процессы.Уведомление'",
 ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), 
 УровеньЖурналаРегистрации.Информация,,,
 СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Уведомление не отправлено, так как не указан почтовый адрес у пользователя %1.'"), Строка(Адресат)));
 Возврат Ложь;
 КонецЕсли;
 
 ПараметрыПисьма = Новый Структура;
 ПараметрыПисьма.Вставить("Тема", Строка(Предмет));
 ПараметрыПисьма.Вставить("Копии", "iv@a.ru; ur@ya.ru;ich@ya.ru;ov@ya.ru");
 ПараметрыПисьма.Вставить("Тело", ТекстПисьма);
 ПараметрыПисьма.Вставить("Кому", ПочтовыйАдресПолучателя);
 ПараметрыПисьма.Вставить("ТипТекста", "HTML");
 
 МодульРаботаСПочтовымиСообщениями = ОбщегоНазначения.ОбщийМодуль("РаботаСПочтовымиСообщениями");
 Попытка 
 МодульРаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(
 МодульРаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись(), ПараметрыПисьма);
 Исключение
 ЗаписьЖурналаРегистрации(НСтр("ru = 'Бизнес-процессы.Уведомление о согласовании '",
 ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), 
 УровеньЖурналаРегистрации.Ошибка,,,
 СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Ошибка при отправке'"), 
 ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())));
 Возврат Ложь;
 КонецПопытки;