CDO - отправка почты в 1С

CDO (Collaboration Data Objects) - это набор библиотек. Данный набор содержит различные библиотеки в том числе и для отправки почты. В 1С COM-объект "CDO.Message" позволяет отправлять почту.

В системе 1С существуют разные способы для отправки электронной почты. Во востроенном языке программирования 1С, существуют специальные встроенные объекты для работы с электронной почтой. Благодаря объектам (ИнтернетПочтовыйПрофиль, ИнтернетПочтовоеСообщение, ИнтернетПочта) возможно получение и отправление почтовых сообщений. Для отправки письма с использованием "CDO.Message" потребуется заполнить настройки сервера.

Отправить письмо

Функция ОтправитьПисьмо()
	
	ИмяФайла = "C:Test.xml";	
	Сервер = "smtp.mail.ru";
	Порт = "465";
	Получатель = "@";
	Отправитель = "@";
	Пароль = "";	
		
	Попытка
		CDO = Новый COMОбъект("CDO.Message");  
	Исключение
		Сообщить("Ошибка: объект CDO.Message не создан");
		Возврат Ложь;
	КонецПопытки;
		
	CDO.From = Отправитель;
	CDO.To = Получатель;
	CDO.Subject = "ТемаПисьма";
	CDO.textbody = "Текстовое письмо";
	CDO.BodyPart.Charset = "windows-1251";
	CDO.HTMLBody = "HTML-письмо"; 
	CDO.HTMLBodyPart.Charset = "windows-1251";
	CDO.AddAttachment(ИмяФайла);
	
	//По умолчанию 1-использовать каталог Pickup
	Item = "http://schemas.microsoft.com/cdo/configuration/sendusing";
	CDO.Configuration.Fields.Item(Item).Value = 2;
	
	//Адрес SMTP сервера
	Item = "http://schemas.microsoft.com/cdo/configuration/smtpserver";
	CDO.Configuration.Fields.Item(Item).Value = Сервер;
	
	//0-без утентификации
	//1-базовая аутентификация
	//2-аутентификация NTLM 	
	Item = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate";
	CDO.Configuration.Fields.Item(Item).Value = 1;
	
	//Использовать SSL
	Item = "http://schemas.microsoft.com/cdo/configuration/smtpusessl";	
	CDO.Configuration.Fields.Item(Item).Value = 1;
	
	//Имя пользователя SMTP сервера
	Item = "http://schemas.microsoft.com/cdo/configuration/sendusername";	
	CDO.Configuration.Fields.Item(Item).Value = Отправитель;
	
	//Пароль пользователя SMTP сервера
	Item = "http://schemas.microsoft.com/cdo/configuration/sendpassword";	
	CDO.Configuration.Fields.Item(Item).Value = Пароль;
	
	//Порт сервера
	Item = "http://schemas.microsoft.com/cdo/configuration/smtpserverport";	
	CDO.Configuration.Fields.Item(Item).Value = Порт;
	
	//Таймаут
	Item = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout";
	CDO.Configuration.Fields.Item(Item).Value = 60;	
	
	//Обновление настроек	
	CDO.Configuration.Fields.Update();
	
	Попытка
 		CDO.Send();
	Исключение
		Сообщить(ОписаниеОшибки());
	КонецПопытки;
		
КонецФункции