Как программно отправить сообщение на электронную почту в 1С?

[Odineski]

скелет для программной отправки сообщения на электронную почту

[Odin — Одинэсник]

&НаКлиенте
Процедура ОтправитьПочту()

// Настройки почтового профиля
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = «smtp.mail.ru»; // адрес SMTP сервера
Профиль.ПортSMTP = 465; // порт SMTP (обычно 465 или 587)
Профиль.ПользовательSMTP = «ваш_логин@mail.ru»; // логин
Профиль.ПарольSMTP = «ваш_пароль»; // пароль
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
Профиль.ИспользоватьSSLSMTP = Истина; // использовать SSL

// Создаем почтовое сообщение
Письмо = Новый ИнтернетПочтовоеСообщение;
Письмо.Отправитель = «ваш_логин@mail.ru»;
Письмо.ИмяОтправителя = «Имя отправителя»;
Письмо.Тема = «Тема письма»;
Письмо.Получатели.Добавить(«адрес_получателя@mail.ru»);

// Добавляем текст письма (обычный текст)
Письмо.Тексты.Добавить(«Текст письма», ТипТекстаПочтовогоСообщения.ПростойТекст);

// Создаем объект для работы с почтой
Почта = Новый ИнтернетПочта;

Попытка
// Подключаемся к почтовому серверу
Почта.Подключиться(Профиль);

// Отправляем письмо
Почта.Послать(Письмо);

// Отключаемся
Почта.Отключиться();

Сообщить(«Письмо успешно отправлено»);
Исключение
Сообщить(«Ошибка при отправке письма: » + ОписаниеОшибки());
КонецПопытки;

КонецПроцедуры

Рекомендую посмотреть здесь: https://infostart.ru/1c/articles/715184/

[Автор]

Сообщения