Вопрос : Добавлять входы календара внешнего вида от сервера

Я интересую если будет дорога как создавать группу распределения и добавлять потребителей, то назначения календара внешнего вида создания для группы, которые идут к каждому календару внешнего вида потребителей?

Alternatively, дорога сделать это сразу от сервера к каждому календару потребителей?

From сервер 2003/2008 к внешнему виду 2007 clients.

Thanks class=

Ответ : Добавлять входы календара внешнего вида от сервера

Это должно только добавить одно назначение в день.

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:

olAppointmentItem Const = 1 Const olFolderCalendar = 9 Тусклое olkApp, olkSes, olkFld, olkApt Установите olkApp = CreateObject («Outlook.Application») Установите olkSes = olkApp.GetNamespace («MAPI») olkSes.Logon olkApp.DefaultProfileName Установите olkFld = olkSes.GetDefaultFolder (olFolderCalendar) Установите olkApt = olkFld.Items.Find («[вопрос] = «ленты изменения резервные» и [старт] = «» & форма (дата & «3:00 PM», «ddddd h: nn AMPM») &»» ") Если TypeName (olkApt) = «ничего» после этого Установите olkApt = olkApp.CreateItem (olAppointmentItem) С olkApt «Измените вопрос как пожелано» . Вопрос = «ленты изменения резервные» «Измените стартовое временя как пожелано» . Старт = дата & «3:00 PM» «Измените продолжительность как пожелано (в минутах)» . Продолжительность = 30 «Измените время памятки как пожелано» .ReminderMinutesBeforeStart = 10 .ReminderSet = True . Сохраньте Закончитесь с Закончитесь если Установите olkApt = ничего Установите olkFld = ничего olkSes.Logoff Установите olkSes = ничего Установите olkApp = ничего