Отправка электронной почты в 1С:Предприятие 8

Отправка электронной почты в 1С:Предприятие 8Недавно выполнял работу по созданию механизма автоматического выставления и рассылки счетов клиентам компании. В определенный период времени у моих заказчиков стало очень много клиентов. И если раньше менеджеры и бухгалтеры вручную создавали Счета на оплату покупателю, потом Реализацию товаров и услуг со Счетами-фактурами, потом делали печатный формы этих документов и отправляли клиентам, то теперь это стало занимать слишком много времени.

Поскольку компания занимается оказанием периодических услуг (каждому клиенту была установлена своя абонентская плата), было принято решение процесс автоматизировать. Для этого нужна была обработка, которая сама создавала бы нужные документы, сохраняла на диск их печатные формы в формате pdf, а потом отправляла бы их по электронной почте. Подробное описание всего проекта будет приведено отдельно в новом разделе Готовые работы, а в этой статье рассмотрим только один момент — механизм отправки e-mail в 1С.

Прежде всего нам понадобится smtp-сервер для отправки писем. Параметры сервера записываем в переменную с типом ИнтернетПочтовыйПрофиль.

ПараметрыПочты = новый ИнтернетПочтовыйПрофиль;
ПараметрыПочты.АдресСервераSMTP = "smtp.server.com";
ПараметрыПочты.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
ПараметрыПочты.ПользовательSMTP = "user";
ПараметрыПочты.ПарольSMTP="pass";

После этого создаем само письмо. Необходимо задать имена и адреса отправителя и получателя, тему письма, текст. Можно добавить вложения.

Письмо=новый ИнтернетПочтовоеСообщение;
Письмо.Тема="Уведомление о задолженности";
Письмо.ИмяОтправителя="ООО Рога и копыта";
Письмо.Отправитель="bill@roga.ru";
Письмо.Получатели.Добавить("director@firma.ru");
Письмо.Тексты.Добавить("Текст письма");
Письмо.Вложения.Добавить("адрес файла вложения на жестком диске");

И в конце концов отправляем сформированное письмо.

Подключение=новый ИнтернетПочта;
Попытка
Подключение.Подключиться(ПараметрыПочты);
Подключение.Послать(Письмо);
Сообщить ("Письмо отправлено успешно.");
Исключение
Сообщить ("Письмо не отправлено." + ОписаниеОшибки());
КонецПопытки;

Поделиться в соц. сетях

Опубликовать в Google Buzz
Опубликовать в Google Plus
Опубликовать в LiveJournal
Опубликовать в Мой Мир
Опубликовать в Одноклассники

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

два × пять =