Электронное письмо можно отсылать программно прямо из 1с. Для этого понадобятся:
- почта
- логин и пароль от почты, с которой будет отправляться письмо
- адреса серверов почты
- адрес получателя
- подключение к интернету
- тема и текст сообщения, которые можно формировать динамически в зависимости от Ваших потребностей
Сам текст почты лучше отправлять в виде html кода( Текст.ТипТекста = ТипТекстаПочтовогоСообщения.HTML), тогда получится оформить письмо как нужно Вам.
Если отправлять просто текстом то ( Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;)
Код для отправки e-mail из 1c.
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 | Профиль = Новый ИнтернетПочтовыйПрофиль; Профиль.АдресСервераSMTP = "smtp.yandex.ru"; // Профиль.АдресСервераPOP3 = "pop.yandex.ru"; Профиль.ПортPOP3 = 110; Профиль.ПортSMTP = 25; Профиль.Пользователь = "info@domen.ru"; Профиль.Пароль = "Parol"; Профиль.ПользовательSMTP = "info@domen.ru"; Профиль.ПарольSMTP = "Parol"; Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию; Почта = Новый ИнтернетПочта; Письмо = Новый ИнтернетПочтовоеСообщение; Попытка Текст = Письмо.Тексты.Добавить("<p style='font: bold 110% serif; '>" +ТекстПисьма +"</p>"); Текст.ТипТекста = ТипТекстаПочтовогоСообщения.HTML; Текст = Письмо.Тексты.Добавить("<p>" +ТекстПисьма2 +"</p>"); Текст.ТипТекста = ТипТекстаПочтовогоСообщения.HTML; Письмо.Тема = "Вам письмо... "; Письмо.Отправитель = "info@domen.ru"; Письмо.ИмяОтправителя = "Организация: info@domen.ru "; Письмо.Получатели.Добавить("mail@mail.ru"); Почта.Подключиться(Профиль); Почта.Послать(Письмо); Исключение Сообщить("Письмо не отправлено"); Сообщить(ОписаниеОшибки()); КонецПопытки; //Закрываем письмо Почта.Отключиться(); //Закрываем файл вложения, если есть.. Письмо.Вложения.Очистить(); |
Поделиться ссылкой:
Похожие записи
Отправка e-mail программно из 1с