Как программно отправить письмо из 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();
			ПредупреждениеТекст = "Письмо(а) успешно отправилось!";
			ПисьмоОтправилосьУспешно = Истина;
		Исключение
			ПредупреждениеТекст = "Письмо не отправлено!!!";
			Сообщить(ОписаниеОшибки());
			ПисьмоОтправилосьУспешно = Ложь;
		КонецПопытки;
    КонецЦикла;
	Предупреждение(ПредупреждениеТекст);