База знаний Одина — Одинэсника Форумы ODIN — Форум по 1С Предприятию Как программно отправить сообщение на электронную почту в 1С?

Просмотр 1 ветки ответов
  • Автор
    Сообщения
    • #33703
      Телеграм группа https://t.me/odineskiOdineski
      Участник

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

    • #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 ветки ответов
  • Для ответа в этой теме необходимо авторизоваться.