Отправка письма электронной почтой с использование БСП:
Процедура ОтправитьПисьмо(ТекстПисьма)
УчетнаяЗапись = РаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись();
Если РаботаСПочтовымиСообщениями.УчетнаяЗаписьНастроена(УчетнаяЗапись, Истина) Тогда // если настроена возможность отправки писем
ПараметрыПисьма = Новый Структура();
ПараметрыПисьма.Вставить("Кому", "aa@mail.ru");
ПараметрыПисьма.Вставить("Тема", "Отчет от " + Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy"));
ПараметрыПисьма.Вставить("Тело", ТекстПисьма); //уже сформирован в формате HTML
ПараметрыПисьма.Вставить("ТипТекста",Перечисления.ТипыТекстовЭлектронныхПисем.HTML);
Письмо = РаботаСПочтовымиСообщениями.ПодготовитьПисьмо(УчетнаяЗапись, ПараметрыПисьма);
РаботаСПочтовымиСообщениями.ОтправитьПисьмо(УчетнаяЗапись, Письмо);
КонецЕсли;
КонецПроцедуры
Текст письма был сформирован в виде таблицы с помощью функции ТаблицаЗначенийВТаблицуХТМЛ() скаченной с infostart
Параметры = Новый Структура;
Параметры.Вставить("ПунктПорядкуИспользуется",ИСТИНА);
Параметры.Вставить("ШиринаТаблицы","1200");
Параметры.Вставить("Заголовок2","Узел");
Параметры.Вставить("Заголовок3","Операция");
Параметры.Вставить("Заголовок4","Текст ошибки");
ТекстПисьма = "<html><body>" + ТаблицаЗначенийВТаблицуХТМЛ(ТаблицаЗначений, Параметры)+ "</body> </html>";
|