Недавно выполнял работу по созданию механизма автоматического выставления и рассылки счетов клиентам компании. В определенный период времени у моих заказчиков стало очень много клиентов. И если раньше менеджеры и бухгалтеры вручную создавали Счета на оплату покупателю, потом Реализацию товаров и услуг со Счетами-фактурами, потом делали печатный формы этих документов и отправляли клиентам, то теперь это стало занимать слишком много времени.
Поскольку компания занимается оказанием периодических услуг (каждому клиенту была установлена своя абонентская плата), было принято решение процесс автоматизировать. Для этого нужна была обработка, которая сама создавала бы нужные документы, сохраняла на диск их печатные формы в формате pdf, а потом отправляла бы их по электронной почте. Подробное описание всего проекта будет приведено отдельно в новом разделе Готовые работы, а в этой статье рассмотрим только один момент — механизм отправки e-mail в 1С.
Прежде всего нам понадобится smtp-сервер для отправки писем. Параметры сервера записываем в переменную с типом ИнтернетПочтовыйПрофиль.
ПараметрыПочты.АдресСервераSMTP = "smtp.server.com";
ПараметрыПочты.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
ПараметрыПочты.ПользовательSMTP = "user";
ПараметрыПочты.ПарольSMTP="pass";
После этого создаем само письмо. Необходимо задать имена и адреса отправителя и получателя, тему письма, текст. Можно добавить вложения.
Письмо.Тема="Уведомление о задолженности";
Письмо.ИмяОтправителя="ООО Рога и копыта";
Письмо.Отправитель="bill@roga.ru";
Письмо.Получатели.Добавить("director@firma.ru");
Письмо.Тексты.Добавить("Текст письма");
Письмо.Вложения.Добавить("адрес файла вложения на жестком диске");
И в конце концов отправляем сформированное письмо.
Попытка
Подключение.Подключиться(ПараметрыПочты);
Подключение.Послать(Письмо);
Сообщить ("Письмо отправлено успешно.");
Исключение
Сообщить ("Письмо не отправлено." + ОписаниеОшибки());
КонецПопытки;