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