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