|
1С - outlook | ☑ | ||
---|---|---|---|---|
0
mrParadox
08.10.09
✎
16:39
|
Кто нибудь делал рассылку писем из 1С через outlook? поделитесь наработками!
|
|||
1
kasx
08.10.09
✎
16:40
|
Зачем через outlook?
|
|||
2
kasx
08.10.09
✎
16:41
|
(0)Не проще ли написать обработину для отправки почты прямо из 1С?
|
|||
3
almar
08.10.09
✎
16:41
|
Почта=Новый Почта;
Почта.Подключиться(); Сообщ=Новый ПочтовоеСообщение; Сообщ.Тема="Выгрузка из 1С"; Сообщ.Текст=""; ВыбФайл=Новый Файл("C:\1C_2_Tr.zip"); Если ВыбФайл.Существует() Тогда Данные=Новый ДвоичныеДанные("C:\1C_2_Tr.zip"); Сообщ.Вложения.Добавить(Данные,ВыбФайл.Имя); КонецЕсли; Сообщ.Получатели.Добавить(Кому); Почта.Послать(Сообщ,Истина); Почта.Отключиться(); |
|||
4
Mirid
08.10.09
✎
16:43
|
(3) а в фоновом задании как заставить работать почту?
|
|||
5
mrParadox
08.10.09
✎
16:45
|
Вообще мне надо сделать ежедневную рассылку писем с вложением
|
|||
6
mrParadox
08.10.09
✎
16:45
|
Объектом Почта я ни разу не пользовался
|
|||
7
kasx
08.10.09
✎
16:46
|
АдресСервераSMTP = СокрЛП(Константы.АдресСервераSMTP.Получить());//"smtp.mail.ru";
ПортSMTP = СокрЛП(Строка(Константы.ПортSMTP.Получить()));//25; ПользовательSMTP = СокрЛП(Константы.ПользовательSMTP.Получить());//""; ПарольSMTP = СокрЛП(Константы.ПарольSMTP.Получить()); ИПП = Новый ИнтернетПочтовыйПрофиль; ИПП.АдресСервераSMTP = АдресСервераSMTP; ИПП.ПортSMTP = ПортSMTP; ИПП.ПользовательSMTP = ПользовательSMTP; ИПП.ПарольSMTP = ПарольSMTP; ИПП.ВремяОжидания = 20; ИПП.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию; Письмо = Новый ИнтернетПочтовоеСообщение; Письмо.Отправитель.Адрес = СокрЛП(Константы.АдресАгента.Получить());//""; Письмо.Отправитель.Пользователь = СокрЛП(Константы.ПользовательSMTP.Получить());//""; Письмо.Получатели.Добавить(СокрЛП(Константы.ПочтаАдминистратора.Получить())); Если ЗначениеЗаполнено(Константы.ПочтаАдминистратораАльтернативная) Тогда Письмо.Копии.Добавить(СокрЛП(Константы.ПочтаАдминистратораАльтернативная.Получить())); КонецЕсли; Если НЕ Аттач = Неопределено Тогда Письмо.Вложения.Добавить(Аттач); КонецЕсли; Письмо.Тема=Строка(ТекстОшибки); Почта=Новый ИнтернетПочта; Почта.Подключиться(ИПП); Почта.Послать(Письмо); Почта.Отключиться(); |
|||
8
almar
08.10.09
✎
16:47
|
С вложением можно рассылать и ИнтернетПочтой, оутлуком я пользуюсь только для того, чтобы оставались письма в Отправленных для разборок с контрагентами. Я пользуюсь не фоновым заданием, а запуском 1С через шедулер.
|
|||
9
kasx
08.10.09
✎
16:47
|
как-то так...
|
|||
10
mrParadox
08.10.09
✎
16:50
|
Спасибо большое за помошь, буду пробовать :)
|
|||
11
Mirid
08.10.09
✎
16:50
|
(8) через шедулер не очень удобно. У нас реализован автообмен через регламентное задание. Хотелось прямо там отправлять отчет об обмене.
|
|||
12
mrParadox
08.10.09
✎
16:51
|
Кто нить в курсе у ИнтернетПочты нет проблем с отправкой из регламентного задания?
|
|||
13
almar
08.10.09
✎
16:52
|
(11) Не то слово, очень не удобно. Приходится держать включенным комп, на нем запущенную программу КликЕс, комп даже нельзя блокировать - кликЕс не срабатывает. Поэтому шли через ИнтернетПочту, нафиг тебе Оутлук
|
|||
14
Mirid
08.10.09
✎
17:01
|
(12) вот и мне интересно.
потому как ПочтовоеСообщение не работает на сервере |
|||
15
hmp2
04.11.09
✎
15:10
|
Как при посыле через Outlook не отправлять сразу, а вывести письмо?
Вложения присутствуют. |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |