Cпособы отправки письма из 1С
Итак, рассмотрю способы отправки письма из 1С. На самом деле навелосипедить можно и больше, но мне хватит 😉
1) На «прямую», без использования БСП:
|
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 56 57 58 |
Профиль = Новый ИнтернетПочтовыйПрофиль; Профиль.АдресСервераSMTP = "цукацукацука"; Профиль.ПортSMTP = 465; Профиль.POP3ПередSMTP = ложь; Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию; Профиль.ИспользоватьSSLSMTP = ложь; Профиль.ТолькоЗащищеннаяАутентификацияSMTP = ложь; Профиль.Пользователь = "vуцкацука1-Noreply@укацукацука.ru"; Профиль.Пароль = "Hцукацукаg"; Профиль.ПользовательSMTP = "vцукауцкаly@цукацука.ru"; Профиль.ПарольSMTP = "укацукацу"; //Профиль.Таймаут = 60; Почта = Новый ИнтернетПочта; Сообщить("Проверка cоединения.."); Попытка Почта.Подключиться(Профиль, ПротоколИнтернетПочты.POP3); Сообщить("POP3: соединение ОК"); Сообщить("SMTP: соединение ОК"); Исключение Сообщить(ОписаниеОшибки()); КонецПопытки; Попытка Почта.Подключиться(Профиль); Письмо = Новый ИнтернетПочтовоеСообщение; Письмо.Тема = Заголовок; // формируем адрес получателя Получатель = Письмо.Получатели.Добавить(Кому); Получатель.ОтображаемоеИмя = Кому; // добавляем к письму имя отправителя Письмо.ИмяОтправителя = "Сцукауцкания"; Письмо.Отправитель.ОтображаемоеИмя = "Сцукаувцукацукания"; сообщить(константы.СК_Почта_Отправитель.Получить()); Письмо.Отправитель.Адрес = "noreply@цукаука.ru"; // добавляем текст Текст = Письмо.Тексты.Добавить(Тело); Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст; Почта.Послать(Письмо, , ПротоколИнтернетПочты.SMTP); Сообщить("SMTP: посылка ОК"); Исключение Сообщить(ОписаниеОшибки()); КонецПопытки; |
2) Используя БСП «Свежих» версий. Не могу сказать точно с какой версий, года примерно с двадцатого:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
УчетнаяЗаписьПочты = РаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись(); попытка ПараметрыСообщения = Новый Структура; ПараметрыСообщения.Вставить("Кому", Кому); ПараметрыСообщения.Вставить("Тема", Заголовок); ПараметрыСообщения.Вставить("Тело", Тело); Письмо = РаботаСПочтовымиСообщениями.ПодготовитьПисьмо(УчетнаяЗаписьПочты, ПараметрыСообщения); РаботаСПочтовымиСообщениями.ОтправитьПисьмо(УчетнаяЗаписьПочты, Письмо); исключение сообщить("ой!"); Сообщить(ОписаниеОшибки()); конецпопытки; |
3) Используя БСП «старых версий»… Очень старых… Где-то года 2015 и ранее:
|
1 2 3 4 5 |
УчетнаяЗаписьПочты = РаботаСПочтовымиСообщениями.ПолучитьСистемнуюУчетнуюЗапись(); ПараметрыПисьма = Новый Структура("Кому, Тема, Тело,ТипТекста", email, "цуацукау", тело,"HTML"); РаботаСПочтовымиСообщениями.ОтправитьСообщение(УчетнаяЗаписьПочты, ПараметрыПисьма); |