Объект исключения (Outlook)
Представляет сведения об одном экземпляре объекта AppointmentItem , который является исключением из повторяющегося ряда.
В отличие от большинства других объектов Microsoft Outlook, объект Exception является объектом только для чтения. Это означает, что нельзя создать объект Exception , а объект создается при изменении свойства AppointmentItem . Например, при изменении свойства Start одного элемента AppointmentItem вы создали исключение в AppointmentItem.RecurrencePattern.Exceptions.
Примечание
Объект Exceptions находится в объекте RecurrencePattern, а не в самом объекте AppointmentItem .
При работе с элементами повторяющихся встреч необходимо удалить все ранее существовавшие ссылки, получить новые ссылки на элемент повторяющейся встречи перед вызовом или изменением этого элемента и удалить эти ссылки сразу же по окончании внесения изменений и их сохранения. Эта практика применяется к повторяющимся объекту AppointmentItem и любому объектуException или RecurrencePattern . Чтобы освободить ссылку в Visual Basic для приложений (VBA) или Visual Basic, задайте для этого существующего объекта значение Nothing. В C# следует явно освободить память для этого объекта. Пример кода см. в разделе объекта AppointmentItem .
Обратите внимание, что даже после высвобождения ссылки и попытки получения новой ссылки, если по-прежнему существует активная ссылка на любой из вышеупомянутых объектов, удерживаемая другой надстройкой или приложением Outlook, новая ссылка будет указывать на устаревшую копию объекта. В связи с этим важно высвобождать ссылки немедленно после завершения текущей встречи.
В следующем примере Visual Basic для приложений (VBA) первый объект Exception извлекается из объекта коллекции Exceptions, связанного с объектом RecurrencePattern.
Sub GetException()
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myItems As Outlook.Items
Dim myApptItem As Outlook.AppointmentItem
Dim myRecurrencePattern As Outlook.RecurrencePattern
Dim myException As Outlook.Exception
Set myNameSpace = Application.GetNameSpace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderCalendar)
Set myItems = myFolder.Items
Set myApptItem = myItems("Daily Meeting")
Set myRecurrencePattern = myApptItem.GetRecurrencePattern
Set myException = myRecurrencePattern.Exceptions.Item(1)
End Sub
Справочник по объектной модели Outlook
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.