В данной статье представлен экземпляр кода на язке 1С и добавлена небольшая обработка, позволяющая отправить электронное сообщение средствами 1С, есть возможность прикрепления файлов в тело письма.
В первую очередь, будет полезна начинающим разработчикам, для примера реализации отправки сообщений.
Основная функция обработки, показывающая, какие действия необходимо выполнить для отправки электронного сообщения из 1С, средствами платформы:
Функция ОтправитьСообщение( пАдресПолучателя, пТемаСообщения, пТекстСообщения, пВложение, пАдресОтправителя, пСерверSMTP, пПортSMTP, пПользовательSMTP, пПарольSMTP) //Отправка сообщения Попытка //Создадим профиль подключения Профиль = Новый ИнтернетПочтовыйПрофиль; Профиль.АдресСервераSMTP = пСерверSMTP; Профиль.ПортSMTP = пПортSMTP; Профиль.ПользовательSMTP = пПользовательSMTP; Профиль.ПарольSMTP = пПарольSMTP; Профиль.ВремяОжидания = 180; Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login; //Создадим сообщение для отправки Сообщение = Новый ИнтернетПочтовоеСообщение; Сообщение.Получатели.Добавить(пАдресПолучателя); Сообщение.Отправитель.Адрес = пАдресОтправителя; Сообщение.Тема = пТемаСообщения; Сообщение.Тексты.Добавить(пТекстСообщения); Если ЗначениеЗаполнено(пВложение) Тогда Сообщение.Вложения.Добавить(пВложение); КонецЕсли; //Отправка сообщения Почта = Новый ИнтернетПочта; Почта.Подключиться(Профиль); Почта.Послать(Сообщение); Почта.Отключиться(); Возврат Истина; Исключение Сообщить(ОписаниеОшибки()); Возврат Ложь; КонецПопытки; КонецФункции
Обработка, позволяющая отправлять сообщения:
Добрый день, не работает ссылка на скачивание файла обработки, получится поправить?
Странно, у меня без проблем скачивается.
Большое спасибо. Я даже не знал, что 1с так умеет.
Подскажите — как с такой обработки посылать почту в обычный gmail ?