Как программно отправить письмо из 1С

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

    Почта.Отключиться();
    Сообщить("Соединение завершено");

Профиль = Новый ИнтернетПочтовыйПрофиль;
    Профиль.АдресСервераSMTP = "smtp.mail.ru"; 
    Профиль.ИспользоватьSSLSMTP = Истина;
    Профиль.ПортSMTP = 465;
    Профиль.ТолькоЗащищеннаяАутентификацияSMTP = Истина;
    Профиль.ПользовательSMTP     = "***@mail.ru"; 
    Профиль.ПарольSMTP           = "****";
    Возврат Профиль;

        Профиль = Новый ИнтернетПочтовыйПрофиль;
        Профиль = ДляОтправкиПочтыСервер.ПолучитьПрофиль();
        Почта = Новый ИнтернетПочта;
        Попытка
            Почта.Подключиться(Профиль);        
            Сообщение = Новый ИнтернетПочтовоеСообщение;
            //обязательно правильно указывать отправителя, пользователь SMPT профиля
            Сообщение.Отправитель = "****@mail.ru";
            Сообщение.Получатели.Добавить("*****@mail.ru");
            Сообщение.Тема = "тема";
            ТекстВПисьмо = "текст";
        Сообщение.Тексты.Добавить(ТекстВПисьмо,ТипТекстаПочтовогоСообщения.HTML);
            //Сообщение.Вложения.Добавить(АдресФайлаВложения, НаименованиеВложения);
            Почта.Послать(Сообщение);    
        Исключение
            Сообщить("Ошибка подключения к серверу! Проверьте подключение к интернет!");
        КонецПопытки;    
        Почта.Отключиться();

    loConfig =  Новый COMОбъект("CDO.Configuration");
    loCdoMessage = Новый COMОбъект("CDO.Message");
    ОправительПочты = Константы.ПочтаНашАдрес.Получить(); // Ваш емейл
    СерверСМТП = Константы.СерверSMTP.Получить();   //смтп сервер
    ПортПочтыИсх = СокрЛП(Константы.ПортПочтыИсх.Получить());  //"465"


    ПользовательПочты = Константы.ПочтаПользователь.Получить(); // Ваш емейл
    ПарольПочты = Константы.ПочтаПароль.Получить(); // пароль вашей почты
    ПолучательСтрока = СокрЛП(Контрагент.Емайл); // емейл клиента
    ПолучательСтрока = СтрЗаменить(ПолучательСтрока, " ", ""); // уберем пробелы 
    МассивПолучателей = Новый Массив;
    ДлинаИскомаяЕмейл = СтрДлина(ПолучательСтрока);

    СчПолучатели = СтрЧислоВхождений(ПолучательСтрока,",");
    Сч1 = 0;
    Если СчПолучатели > 0 Тогда
        Для Сч1 = 0 По СчПолучатели Цикл
            Если Найти(ПолучательСтрока,",") <>0 Тогда
                ДлинаНайденнаяЗаявка = Найти(ПолучательСтрока,"," )-1;
            Иначе    
                ДлинаНайденнаяЗаявка = СтрДлина(ПолучательСтрока);
            КонецЕсли; 
            ДлинаОставшейЗаявки = ДлинаИскомаяЕмейл-(ДлинаНайденнаяЗаявка+1);
            НайденнаяЗаявка = Лев(ПолучательСтрока,ДлинаНайденнаяЗаявка); 
            
            МассивПолучателей.Добавить(НайденнаяЗаявка);
            
            ПолучательСтрока = Прав(ПолучательСтрока,ДлинаОставшейЗаявки);
            ДлинаИскомаяЕмейл = СтрДлина(ПолучательСтрока);

        КонецЦикла;
    Иначе
        СчПолучатели = 1;
        МассивПолучателей.Добавить(ПолучательСтрока);
    КонецЕсли;

    Если МассивПолучателей.Количество()<0  Тогда
    
        Предупреждение("У данного контрагента не заполнен Емейл, счет не отправился!");
        Возврат;    
    
    КонецЕсли;

    ПутьСервер = "\\Server\счета\"+"Счет_N" + СокрЛП(ЭтотОбъект.Номер)+ ?(ПустаяСтрока(ЭтотОбъект.ВходящийНомер),"","_"+СокрЛП(ЭтотОбъект.ВходящийНомер))+".xls";

    ВнешняяОбработка = Справочники.ВнешниеОбработки.НайтиПоКоду("000000001");
    ДвоичныеДанные = ВнешняяОбработка.ХранилищеВнешнейОбработки.Получить();
    ТабДокумент = Неопределено;
    ИмяФайла = ПолучитьИмяВременногоФайла("epf");
    Попытка
        ДвоичныеДанные.Записать(ИмяФайла);
        Обработка = ВнешниеОбработки.Создать(ИмяФайла);
        Обработка.СсылкаНаОбъект = ЭтотОбъект.Ссылка;
       
        ТабДокумент = Обработка.Печать(ПараметП);
        ТабДокумент.Записать(ПутьСервер,ТипФайлаТабличногоДокумента.XLS);
        УдалитьФайлы(ИмяФайла);
    Исключение
        Сообщить("Не удалось сформировать внешнюю печатную форму!", СтатусСообщения.Обычное);
        Сообщить(ОписаниеОшибки(), СтатусСообщения.Обычное);
    КонецПопытки;
    
    loCdoMessage.Configuration = loConfig;
    loCdoMessage.From    = "ООО Рога и Копыта";
    //loCdoMessage.To      = Получатель;
    //loCdoMessage.cc=Копия;
    //loCdoMessage.bcc=СкрКопия;

    loCdoMessage.Subject = "ВАША тема письма";


    


    ТекстСообщения = "";

    HTMLBody = "<ht ml>
    |<head>
    |<met a content=""text/html; charset=Windows-1251"" http-equiv=""content-type"">
    |<title> Тестовое сообщение </title>
    |</head>
    |<body>
    |<p>=========================================================­============</p>
    |<p>подпись</p>
    //|<h3>" + ТекстСообщения + "</h3>
    |<p></p>
    |</body>
    |</html>";

    //|" + ТекстСообщения + " для варианта без стилей

    loCdoMessage.BodyPart.Charset = "windows-1251";
    loCdoMessage.HTMLBody = HTMLBody;
    
    loCdoMessage.AddAttachment(ПутьСервер);
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").            Value = 2;
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").           Value = СерверСМТП;
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").       Value = ПортПочтыИсх;//"465";
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").     Value = 1;
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").         Value = ПользовательПочты;
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").         Value = ПарольПочты;
    //loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").           Value = 1;  // это кто эзает 465 порт, гугл, яндекс, мейл
    //loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").           Value = 0;  // 
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").           Value = Константы.ssl.Получить();  //1
    loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;
    ПисьмоОтправилосьУспешно = Ложь;
    Для каждого СтрокаМассива Из МассивПолучателей Цикл
        loCdoMessage.To      = СтрокаМассива;

        loConfig.Fields.Update();
        Попытка
            loCdoMessage.Send();
            ПредупреждениеТекст = "Письмо(а) успешно отправилось!";
            ПисьмоОтправилосьУспешно = Истина;
        Исключение
            ПредупреждениеТекст = "Письмо не отправлено!!!";
            Сообщить(ОписаниеОшибки());
            ПисьмоОтправилосьУспешно = Ложь;
        КонецПопытки;
    КонецЦикла;
    Предупреждение(ПредупреждениеТекст);