Отправка сообщений на электронную почту из 1С

Logo_1c_8_RazradotkaВ данной статье представлен экземпляр кода на язке 1С и добавлена небольшая обработка, позволяющая отправить электронное сообщение средствами 1С, есть возможность прикрепления файлов в тело письма.

В первую очередь, будет полезна начинающим разработчикам, для примера реализации отправки сообщений.

 

 

 

Основная функция обработки, показывающая, какие действия необходимо выполнить для отправки электронного сообщения из 1С, средствами платформы:

Функция ОтправитьСообщение(
    пАдресПолучателя, пТемаСообщения, пТекстСообщения, пВложение,
    пАдресОтправителя, пСерверSMTP, пПортSMTP, 
    пПользовательSMTP, пПарольSMTP)

    //Отправка сообщения
    Попытка

        //Создадим профиль подключения
        Профиль = Новый ИнтернетПочтовыйПрофиль;
        Профиль.АдресСервераSMTP   = пСерверSMTP;
        Профиль.ПортSMTP           = пПортSMTP;
        Профиль.ПользовательSMTP   = пПользовательSMTP;
        Профиль.ПарольSMTP         = пПарольSMTP;
        Профиль.ВремяОжидания      = 180;
        Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;

        //Создадим сообщение для отправки
        Сообщение = Новый ИнтернетПочтовоеСообщение;
        Сообщение.Получатели.Добавить(пАдресПолучателя);
        Сообщение.Отправитель.Адрес = пАдресОтправителя;
        Сообщение.Тема = пТемаСообщения;
        Сообщение.Тексты.Добавить(пТекстСообщения);
        Если ЗначениеЗаполнено(пВложение) Тогда
            Сообщение.Вложения.Добавить(пВложение);
        КонецЕсли;

        //Отправка сообщения
        Почта = Новый ИнтернетПочта;
        Почта.Подключиться(Профиль);
        Почта.Послать(Сообщение);
        Почта.Отключиться();

        Возврат Истина;

    Исключение

        Сообщить(ОписаниеОшибки());
        Возврат Ложь;

    КонецПопытки;

КонецФункции

Обработка, позволяющая отправлять сообщения:

Скачать обработку

otpravka-soobshhenij-iz-1s-001

Еще один метод отправки сообщений из 1С.

Помогла ли вам данная статья?
Да, спасибо, помогла.
Немного помогла.
Совсем не помогла.
Не то, что я искал(а)
Смотреть результаты
infostart event 2017
Запись опубликована в рубрике Разработка в 1С с метками . Добавьте в закладки постоянную ссылку.


Добавить комментарий

Ваш e-mail не будет опубликован.