В начало

Отправка отчета в Иксель по почте

 

            Есть сохраненный в формате Иксель отчет. Необходимо отправить его по электронной почте.

            Создаем внешнюю обработку для проверки отправки отчета по почте. Размещаем на форме отчета кнопку. Описываем действия для кнопки. Заполняем свои параметры почтового сервера, а также тему письма, текст письма и т.д.

 

Листинг. Процедуры в модуле формы внешней обработки

&НаСервере

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

            ПараметрыПочты = новый ИнтернетПочтовыйПрофиль;

            ПараметрыПочты.АдресСервераSMTP = "smtp.pochta.ru";

            ПараметрыПочты.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;

            ПараметрыПочты.ПользовательSMTP = "otpravitel@pochta.ru";

            ПараметрыПочты.ПарольSMTP="123";

           

            Письмо=новый ИнтернетПочтовоеСообщение;

            Письмо.Тема="Отчет4 - Тема письма";

            Письмо.ИмяОтправителя="Отчет4 - Имя отправителя";

            Письмо.Отправитель="otpravitel@pochta.ru ";

            Письмо.Получатели.Добавить("poluchatel@pochta.ru");   

           

            Письмо.Тексты.Добавить("Отчет4 - Содержимое письма");                     

            Письмо.Вложения.Добавить("D:\Temp\Отчет4.xls");

           

            Подключение=новый ИнтернетПочта;

            Попытка

                        Подключение.Подключиться(ПараметрыПочты);

                        Подключение.Послать(Письмо); 

            Исключение

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

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

 

&НаКлиенте

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

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

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

 

            Тестируем в пользовательском режиме.