Как отправить электронную почту в 1С 8.3, 8.2
Платформа 1С Предприятие имеет встроенный функционал отправки и приёма электронной почты. Использование SSL протокола, доступно в версии платформы, начиная с 8.3.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
//Функция ОтправитьПисьмо() Функция ОтправитьПисьмо(EmailОтправителя, ПарольОтправителя, Порт, АдресСервера, EmailПолучателя, ИмяПолучателя, ТекстСообщения, ЗаголовокСообщения, МассивФайловыхПутей) //ПОЧТОВЫЙ ПРОФИЛЬ Profil = Новый ИнтернетПочтовыйПрофиль; Profil.ИспользоватьSSLSMTP = Истина; Profil.АдресСервераSMTP = АдресСервера; Profil.ПортSMTP = Порт; Profil.Пользователь = EmailОтправителя; Profil.Пароль = ПарольОтправителя; Profil.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию; Profil.ПарольSMTP = ПарольОтправителя; Profil.ПользовательSMTP = EmailОтправителя; //ПОЧТОВОЕ СООБЩЕНИЕ Сообщение = Новый ИнтернетПочтовоеСообщение; Сообщение.Отправитель = EmailОтправителя; Сообщение.Тема = ЗаголовокСообщения; Сообщение.Организация = "The company"; Адрес = Сообщение.Получатели.Добавить(EmailПолучателя); Адрес.ОтображаемоеИмя = ИмяПолучателя; Для каждого ПутьКФайлу Из МассивФайловыхПутей Цикл Сообщение.Вложения.Добавить(ПутьКФайлу); КонецЦикла; // ПОЧТОВЫЙ СЕРВЕР Pochta = Новый ИнтернетПочта(); //Подключение к серверу Попытка Pochta.Подключиться(Профиль); Исключение Сообщить("Ошибка при подключении к серверу: " + ОписаниеОшибки()); Возврат Ложь; КонецПопытки; //Отправка письма Попытка Pochta.Послать(Сообщение); Исключение Pochta.Отключиться(); Сообщить("Ошибка при отправке письма: " + ОписаниеОшибки()); Возврат Ложь; КонецПопытки; Pochta.Отключиться(); Возврат Истина; КонецФункции |
Как получить электронную почту в 1С 8.3, 8.2
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
//Функция ПолучитьПисьма() Функция ПолучитьПисьма() //ПОЧТОВЫЙ ПРОФИЛЬ Profil = Новый ИнтернетПочтовыйПрофиль; Profil.Пользователь = "xxx@xxxx.xx"; Profil.Пароль = "xxxxxx"; Profil.АдресСервераPOP3 = "pop3.mail.ru"; Profil.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная; MassivPisem = Новый массив(); //ПОЛУЧЕНИЕ ПИСЕМ Попытка Pochta = Новый ИнтернетПочта; Pochta.Подключиться(Профиль); MassivPisem = Pochta.Выбрать(Ложь); Исключение Сообщить("Ошибка получения почты " + ОписаниеОшибки()); КонецПопытки; Возврат MassivPisem; КонецФункции |