Проблема получения повторяющихся встреч из перспективы, чтобы преуспеть в VBA

Question

Я работаю над макросом, чтобы превратить данные календаря Outlook в Excel. По большей части это работает, однако я не получаю повторяющихся встреч или встреч. Из этой документации Microsoft я знаю, что мне нужно добавить значение IncludeReferences. Это в моем коде, но я все еще не получаю эти повторяющиеся встречи. Любая помощь будет принята с благодарностью, спасибо!

Set olNS = olApp.GetNamespace("MAPI")
Set olFolder = olNS.GetDefaultFolder(9) 'olFolderCalendar
NextRow = 2

olFolder.Items.Sort "[Start]"
olFolder.Items.IncludeRecurrences = True

With Sheets("Sheet1") 
    .Range("C1:F1").Value = Array("Project", "Date", "Timespent", "Categories") '"Location", "Categories")
    For Each olApt In olFolder.Items
        --Do Stuff--
    Next olApt
End With

Answer 1

Вы звоните Sort и устанавливаете IncludeRecurrences на два разных экземпляра объекта Items, которые ничего не знают друг о друге. Храните Items объект в выделенной переменной.

Также имейте в виду, что IncludeRecurrences будет работать, только если вы ограничиваете диапазон дат - Sort не будет работать: думать о встречах без концадата.

См. https://docs.microsoft.com/en-us/office/vba/api/outlook.items.includerecurrences для примера.