Имя: Пароль:
1C
 
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 не отправлять сразу, а вывести письмо?
Вложения присутствуют.