IncludeRecurrences = Trueの入れ方を教えてください

Question

Outlookのカレンダーから今日の予定一覧を取得して
日報のメールにするマクロを下記のように組みました。
とりあえずは動くのですが、これだと過去に作成された
定期的な予定が取得されません。
おそらく
IncludeRecurrences = True
を入れるべきだと思うのですが、お恥ずかしながら
構文の組み立て方ががうまくいきません。
アドバイスをよろしくお願いいたします。 ]
Win10, Outlook2016です。

Private Sub Nippou()
DoEvents
Dim lst As Object
Dim msg As Object
Dim ns As NameSpace
Dim fld As Folder
Dim item As Object
Dim appo As AppointmentItem
Set lst = CreateObject("System.Collections.ArrayList")
Set msg = CreateObject("System.Collections.ArrayList")
Set ns = GetNamespace("MAPI")
Set fld = ns.GetDefaultFolder(olFolderCalendar)
For Each item In fld.Items
If item.Class = olAppointment Then
Set appo = item
If DateValue(appo.Start) = Date Then
lst.Add Format(appo.Start, "hh:mm ") & appo.Subject
End If
End If
Next
lst.Sort
msg.Add Join(lst.toarray, vbCrLf)

Dim Mail As Outlook.MailItem
Set Mail = Application.CreateItemFromTemplate("oftのファイルパス")
Mail.Body = Replace(Mail.Body, "<<今日の予定>>", Join(msg.toarray, vbCrLf))
Mail.Display
End Sub

Answer 1

Itemsクラスのプロパティーなので、
fld.Items.IncludeRecurrences = Trueですが、For Each item In fld.Itemsでの列挙に効くのかどうか不明。

私は、IncludeRecurrences プロパティ (Outlook) | Microsoft Docs のサンプルのように、Findで列挙してます。

Comments

[otn]

Excel VBAならともかく、リファレンス見ずにOutlook VBAを書くのは無謀だと思います。

[skel]

For Each item In fld.Itemsでの列挙に効くのかどうか不明。
→残念ながらこの挙動には効きませんでした。
リンク先のFindで定期的な予定を含めて項目の取得ができているのは確認できたので、
Findeでもう一回組みなおしてみます。アドバイスありがとうございます。