0
VoVaaa
21.05.12
✎
12:36
|
народ кто может помочь я связал 1с и MS qutlook у меня считывает данные из 1с в MS qutlook.теперь мне нужно наоборот чтобы из MS qutlook считывалось в 1с...........
+ Code
Процедура Календарь_Создать()
//приложение
Попытка
Оле=CreateObject("Outlook.Application");
Исключение
Предупреждение("Не удалось создать запись в календаре событий в MS Outlook!");
Возврат;
КонецПопытки;
//задача
Спр = СоздатьОбъект("Справочник.Календарь");
// Задаем выборку без групп
Спр.ВыборГруппы(0);
// Открываем выборку
Спр.ВыбратьЭлементы();
Пока (Спр.ПолучитьЭлемент() > 0) Цикл
Задача=Оле.CreateItem(1);
Задача.Subject=спр.НазваниеВстречи;
Задача.Start=Спр.НачДата;
Задача.End=Спр.КонДата;;
Задача.Body="Описание встречи";
Задача.Location="Место встречи проверка";
Задача.ReminderMinutesBeforeStart=30;
Задача.BusyStatus=0;
Задача.MeetingStatus=0;
Задача.Sensitivity=2;
Задача.Save();
//ПолнКод = Спр.Код.ПолныйКод();
КонецЦикла;
КонецПроцедуры
|
|