Уведомление на почту из 1С 8.2

Профиль = Новый ИнтернетПочтовыйПрофиль;
   Профиль.АдресСервераSMTP = "smtp.mail.ru";
   Профиль.ПользовательSMTP = "***@mail.ru";
   Профиль.ПарольSMTP = "***";
   Профиль.ИспользоватьSSLSMTP = Истина;
   Профиль.ПортSMTP = 465; 
   Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
 
   Письмо = Новый ИнтернетПочтовоеСообщение;
   Текст = Письмо.Тексты.Добавить("Привет!!!");
   Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
   Письмо.Тема = "Test"; 
   Письмо.Отправитель = "***@mail.ru";
   Письмо.ИмяОтправителя = "***";
   Письмо.Получатели.Добавить("****@mail.ru");
   
   Почта = Новый ИнтернетПочта;     
   Попытка
      Почта.Подключиться(Профиль);
      Сообщить("Подключено");
   Исключение
       Сообщить("Не удалось подключиться к серверу");
       Сообщить(ОписаниеОшибки());
   КонецПопытки;
   Попытка
      Почта.Послать(Письмо);
      Сообщить("Письмо отправлено");
   Исключение
       Сообщить("Не удалось отправить письмо");
       Сообщить(ОписаниеОшибки());
   КонецПопытки;
    
   Почта.Отключиться();
   Сообщить("Соединение завершено");