&НаСервере

Процедура ОтправитьПочтовоеСообщениеСервер()

    АдресПолучателя = "info@mail.ru";

            АдресОтвета ="";

            ТемаПисьма ="Инцидент - Ошибка при загрузке данных";

            ТекстПисьма = "Произошла ошибка при загрузке файла оплат"; 

            МодульРаботаСПочтовымиСообщениями = ОбщегоНазначения.ОбщийМодуль("РаботаСПочтовымиСообщениями");

            УчетнаяЗапись = МодульРаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись();

            ПараметрыПисьма = Новый Структура;

            ПараметрыПисьма.Вставить("Кому", АдресПолучателя);

            ПараметрыПисьма.Вставить("УчетнаяЗапись", УчетнаяЗапись);                                                              

            ПараметрыПисьма.Вставить("АдресОтвета", АдресОтвета);

            ПараметрыПисьма.Вставить("Тема", ТемаПисьма);          

            ПараметрыПисьма.Вставить("Тело", ТекстПисьма);

            ПараметрыПисьма.Вставить("ТипТекста", "ПростойТекст");

            РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(УчетнаяЗапись, ПараметрыПисьма);

Конецпроцедуры

&НаКлиенте

Процедура ОтправитьEMail(Команда)                                

            Попытка         

                        ОтправитьПочтовоеСообщениеСервер();

            Исключение  

                        Сообщить("Не удалось отправить письма по причине " + ОписаниеОшибки());

            КонецПопытки;    

КонецПроцедуры