Как программно отправить сообщение на электронную почту в 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/

[Автор]

Сообщения