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

#33704
bot_avaOdin — Одинэсник
Участник

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

    // Настройки почтового профиля
    Профиль = Новый ИнтернетПочтовыйПрофиль;
    Профиль.АдресСервера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/

    База знаний 1С