Отправка электронной почты с клиента

 &НаКлиенте

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

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

     Профиль.АдресСервераSMTP = "smtp.yandex.ru"; 

     Профиль.ПортSMTP = 587;

     Профиль.Пользователь = "info@test.ru";

     Профиль.Пароль = "12345";

     Профиль.АутентификацияSMTP     = СпособSMTPАутентификации.Login;

     Профиль.ПарольSMTP           = "12345";

     Профиль.ПользовательSMTP     = "info@test.ru"; 

    

     Почта = Новый ИнтернетПочта;

     Попытка

        Почта.Подключиться(Профиль);

        

     Исключение

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

        Возврат;

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

    

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

     Сообщение.Отправитель = "info@test.ru";

     Сообщение.Получатели.Добавить("info@ya.ru");

     Сообщение.Тема = "Выгрузка";

     Сообщение.Тексты.Добавить("Сабж",ТипТекстаПочтовогоСообщения.HTML);

     Сообщение.Вложения.Добавить("C:\1.xls");

     Почта.Послать(Сообщение);

     Почта.Отключиться();

  

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