Имя: Пароль:
1C
Админ
v7: 1с и MS Outlook связь между ними
,
0 VoVaaa
 
17.05.12
06:25
народ кто может помочь я связал 1с и MS qutlook у меня считывает данные из 1с в MS qutlook.теперь мне нужно наоборот чтобы из MS qutlook считывалось в 1с...........
Процедура Календарь_Создать()
    //приложение
    Попытка
         Оле=CreateObject("Outlook.Application");
    Исключение
         Предупреждение("Не удалось создать запись в календаре событий в MS Outlook!");
         Возврат;
    КонецПопытки;
    //задача      
    Спр = СоздатьОбъект("Справочник.Календарь");
   // Задаем выборку без групп
   Спр.ВыборГруппы(0);
   // Открываем выборку
   Спр.ВыбратьЭлементы();  
   
    Пока (Спр.ПолучитьЭлемент() > 0) Цикл
    Задача=Оле.CreateItem(1);
    Задача.Subject=спр.НазваниеВстречи;    
    Задача.Start=Спр.НачДата;
    Задача.End=Спр.КонДата;;
    Задача.Body="Описание встречи";
    Задача.Location="Место встречи проверка";
    Задача.ReminderMinutesBeforeStart=30;
    Задача.BusyStatus=0;
    Задача.MeetingStatus=0;
    Задача.Sensitivity=2;
    Задача.Save();  
    //ПолнКод = Спр.Код.ПолныйКод();
     КонецЦикла;
КонецПроцедуры
1 miki
 
17.05.12
06:28
и где тут
>>из MS qutlook считывалось в 1с
?
2 manyak
 
17.05.12
06:56
>>из MS qutlook считывалось в 1с
считывается ИЗ а не В, что те надобно?:

1) из 1с программно загнать данные в аутлук
2) в 1с программно получить данные из аутлук
3) в аутлуке программно получить данные из 1с
4) из аутлука программно загнать данные в 1с
3 manyak
 
17.05.12
06:58
4 VoVaaa
 
17.05.12
17:06
из MS qutlook считывалось в 1с
5 VoVaaa
 
17.05.12
17:09
у меня при запуске процедуры данные считываются из 1с в  MS qutlook.мне надо наоборот
6 novichok_v_1c
 
17.05.12
17:19
если тебе нужно почту прикрепить в 1с то можно использовать в ЗУП обработку"Электронная почта". отлично работает)
7 manyak
 
17.05.12
17:26
Задача=Оле.кодvbaвыборанужноготебеэлемента;
спр.НазваниеВстречи=Задача.Subject;
Спр.НачДата=Задача.Start;
и т.д.
8 manyak
 
17.05.12
17:33
Задача=Оле.Reminders.Item(1)
9 VoVaaa
 
17.05.12
21:36
спасибо проверю если получится огромное спасибо выручил!!
10 VoVaaa
 
18.05.12
19:24
я это сделал и у меня множество синтаксических ошибок
11 VoVaaa
 
19.05.12
20:53
народ ьпомогите плиз
12 ЧеловекДуши
 
21.05.12
12:42
Нам твоих ошибок не видать и что ты сделал :)
Ты хоть код приведи.
13 VoVaaa
 
21.05.12
19:19
Процедура Календарь_Создать()
    //приложение
    Попытка
         Оле=CreateObject("Outlook.Application");
    Исключение
         Предупреждение("Не удалось создать запись в календаре событий в MS Outlook!");
         Возврат;
    КонецПопытки;
    //задача      
    Спр = СоздатьОбъект("Справочник.Календарь");
   // Задаем выборку без групп
   Спр.ВыборГруппы(0);
   // Открываем выборку
   Спр.ВыбратьЭлементы();  
   
    Пока (Спр.ПолучитьЭлемент() > 0) Цикл
 Задача=Оле.Reminders.Item(1);
 спр.НазваниеВстречи=Задача.Subject;    
 Спр.НачДата=Задача.Start;
 Спр.КонДата=Задача.End;;
 Задача.Body="Описание встречи";
 Задача.Location="Место встречи проверка";
 Задача.ReminderMinutesBeforeStart=30;
 Задача.BusyStatus=0;
 Задача.MeetingStatus=0;
 Задача.Sensitivity=0;
  Задача.Save();  
   // ПолнКод = Спр.Код.ПолныйКод();
     КонецЦикла;
КонецПроцедуры
14 VoVaaa
 
21.05.12
19:20
в самом начале есть код который связывает 1с и qutlook
15 VoVaaa
 
21.05.12
19:21
данные из 1с импортируются в qutlook  а мне надо наоборот
16 Voronve
 
21.05.12
19:28
не qutlook а outlook
17 Злой Бобр
 
21.05.12
19:47
(15) Ну продолжу пытку. Что наоборот? Может сначала научиться мысли упорядочивать а потом быдлокодить? Код из (0) просто офигительный. Запусти его несколько раз - увидишь интересный результат.
18 Armando
 
21.05.12
20:51
мне вот это понравилось:
"спасибо проверю если получится огромное спасибо выручил!!"
19 VoVaaa
 
22.05.12
23:27
вы смотрю все умные а помочь по существу всем слаб грамотеи епти....
20 VoVaaa
 
22.05.12
23:27
слабо*
21 Эльниньо
 
22.05.12
23:45
(20) из 1с импортируются в qutlook...
Слабо (посыпаю голову пепелом)