1CLenta.ru  

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

Программирование системы     02.09.2016 09:41     2307

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();
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;

КонецФункции


Похожие статьи:
1С почта (отправить и получить письма)

Комментарии (0)

Для того чтобы добавить сообщение, необходимо Войти или Зарегистрироваться

 
 


Регистрация