1CLenta.ru  

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

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

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С почта (отправить и получить письма)

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

1. curtep  30.11.2018 23:42  
Оригинальная экологично чистая и безопасная бельгийская косметическая продукция для процедуры моментального загара, сделанная в виде спрея и лосьона, позволяющие нанести загар за 15-20 минут

Бренд Curasano впервые появился на рынке Европы в 2008 году и сразу завоевал почетные места и бьюти пьедесталы от известных выставок, экспертов красоты и любовь клиентов. Центральной философией торгового бренда является «Забота о здоровье» Cura Sano (лат). Дерматологическая лаборатория Curasano в Бельгии создает автозагары для всех без исключения фототипов кожи, косметические средства для ежедневного ухода, для загара на солнце и в солярии, а также безопасные продукты для беременных и детей.

Абсолютно вся косметическая продукция Curasano соответствует самым высоким эталонами качества косметической индустрии Европейского Союза, а клинические тестирывания удостоверяют ее уникальность и абсолютную гипоаллергенность, свидетельством каких стал аттестат качества EcoCert. Выпускаемая продукция нетоксична, не содержит аллергенов и парабенов. Большее внимание лаборатории уделено регламентам косметического комфорта, а именно созданию невесомых и приятных коже каждого человека компонентов.

Если вы оказываете услуги моментального загара профессионально и вас заинтересовала лучшая европейская косметика для автозагара по оптовой цене, внимательно ознакомьтесь с нашим прайсом.



<a href=https://curasano.su/lotions>лосьоны для моментального загара</a>

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

 
 


Регистрация