Удалить исключения из серии

Question

У меня есть серия в Outlook за несколькими исключениями. Я хотел бы удалить все исключения из этой серии. Кто-нибудь знает, есть ли способ сделать это? Так как список исключений для чтения только я попытался очистив картину рецидивов и повторного применение всех значений SANS списка исключений, как это:

Dim tRType As OlRecurrenceType 
Dim tRPSD As Date 
Dim tRPED As Date 
Dim tST As Date 
Dim tET As Date 
Dim tOcc As Integer 
Dim tInterval As Integer 

tRType = oAppointmentItem.GetRecurrencePattern.RecurrenceType 
tRPSD = oAppointmentItem.GetRecurrencePattern.PatternStartDate 
tRPED = oAppointmentItem.GetRecurrencePattern.PatternEndDate 
tST = oAppointmentItem.GetRecurrencePattern.startTime 
tET = oAppointmentItem.GetRecurrencePattern.endTime 
tOcc = oAppointmentItem.GetRecurrencePattern.Occurrences 
tInterval = oAppointmentItem.GetRecurrencePattern.Interval 

oAppointmentItem.ClearRecurrencePattern 
' This save throws an error. 
'oAppointmentItem.Save 

' Make this call to flip to reccurring... 
oAppointmentItem.GetRecurrencePattern 
oAppointmentItem.GetRecurrencePattern.RecurrenceType = tRType 
oAppointmentItem.GetRecurrencePattern.PatternStartDate = tRPSD 
oAppointmentItem.GetRecurrencePattern.PatternEndDate = tRPED 
oAppointmentItem.GetRecurrencePattern.startTime = tST 
oAppointmentItem.GetRecurrencePattern.endTime = tET 
oAppointmentItem.GetRecurrencePattern.Occurrences = tOcc 
oAppointmentItem.GetRecurrencePattern.Interval = tInterval 

До сих пор я не имею никакой удачи с этим подходом. После вызова ClearRecurrencePattern все данные не могут быть обновлены (или не будут сохраняться в любом случае), поэтому я попытался сохранить, но это не сработает. Должен быть лучший способ, и я просто пропущу его.

Я также думал о том, чтобы сделать полную копию пункта назначения, а затем удалить/повторно добавить, но я хотел бы избежать этого, если это вообще возможно.

Answer 1

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

Dim tEndDate As Date 
Dim currentEndDate As Date 
Dim dateInterval As Double 
currentEndDate = oAppointmentItem.GetRecurrencePattern.PatternEndDate 
tEndDate = oAppointmentItem.GetRecurrencePattern.PatternEndDate 
' Add a year to the end date so we can force the exceptions to remove. 
DateAdd "yyyy", 1, tEndDate 
oAppointmentItem.GetRecurrencePattern.PatternEndDate = tEndDate 
oAppointmentItem.GetRecurrencePattern.PatternEndDate = currentEndDate