Отправка писем из 1С
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
ПараметрыПочты = новый ИнтернетПочтовыйПрофиль; ПараметрыПочты.АдресСервераSMTP = "mail.erfwerfwe.ru"; ПараметрыПочты.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию; ПараметрыПочты.ПользовательSMTP = "wrefwerf@erfwerf.ru"; ПараметрыПочты.ПарольSMTP="ewrfwrqwe"; Письмо=новый ИнтернетПочтовоеСообщение; Письмо.Тема="Уведомление о задолженности"; Письмо.ИмяОтправителя="Пупкин и компания"; Письмо.Отправитель="erfwerf@erfw.ru"; Письмо.Получатели.Добавить("erfqwerf@mail.ru"); Письмо.Тексты.Добавить("Содержимое"); Письмо.Вложения.Добавить(файл); Подключение=новый ИнтернетПочта; Попытка Подключение.Подключиться(ПараметрыПочты); Подключение.Послать(Письмо); Сообщить ("Письмо отправлено успешно."); Исключение Сообщить ("Письмо не отправлено." + ОписаниеОшибки()); КонецПопытки; |