如何在Excel vba中获得Outlook约会的修改后的重复性？

Dim olApp As Outlook.Application
Dim olNamespace As Outlook.Namespace
Dim olFolder As Outlook.Folder

Set olApp = New Outlook.Application
Set olNamespace = olApp.GetNamespace("MAPI")
Set olFolder = olNamespace.GetDefaultFolder(olFolderCalendar)

Dim olItems As Outlook.Items
Dim olAppt As Outlook.AppointmentItem
Dim olApptModified As Outlook.AppointmentItem

Set olItems = olFolder.Items
Set olAppt = olItems.Find("[Subject] = '约会主题'") ' 替换为实际的约会主题

If Not olAppt Is Nothing Then
    ' 找到了约会项
    ' 获取修改后的重复性约会项
    Set olApptModified = olAppt.GetRecurrencePattern.ModifiedItem
    ' 在这里可以对修改后的重复性约会项进行操作
Else
    ' 未找到约会项
End If

If Not olApptModified Is Nothing Then
    ' 获取重复性规则
    Dim olRecurrencePattern As Outlook.RecurrencePattern
    Set olRecurrencePattern = olApptModified.GetRecurrencePattern
    
    ' 获取开始时间和结束时间
    Dim startTime As Date
    Dim endTime As Date
    startTime = olApptModified.Start
    endTime = olApptModified.End
End If

Set olApptModified = Nothing
Set olAppt = Nothing
Set olItems = Nothing
Set olFolder = Nothing
Set olNamespace = Nothing
Set olApp = Nothing