Excel VBAでOutlook予定表の「定期的な予定」を取得したい。

Question

前提・実現したいこと

Microsoft Office2013のExcel VBAで、Outlook予定表の「定期的な予定」をExcelに
読みだしたいのですが、うまくできません。

Outlook予定表の「定期的な予定」は、特定の日の予定のみ変更、削除などができると思いますが、
変更後のデータをVBAで取得できません。どのようにすれば取得できますでしょうか。

以下のソースコードで「定期的な予定」の取得を試みています。

myAppointments.IncludeRecurrences = True 
Set currentAppointment = myAppointments.Find("[Start] >= """ & _ 
 tdystart & """ and [Start] <= """ & tdyend & """") 

出てくる予定は、確かに「定期的な予定」を含んでいるのですが、出力結果とOutlook予定表の内容が一致しません。

　・一部の予定が出力されない
・過去に削除済みの予定が出力される
・「定期的な予定」の一部を変更した予定が、変更前の日時で表示される

という状況です。解決策をご教示いただきたく、お願いします。

Answer 1

オブジェクトの指定が違うと思います。

outlook の予定を格納しているオブジェクトは、GetNamespace("MAPI")で生成します。
スケジュールは、GetDefaultFolderメソッドの引数で、olFolderCalendarを指定してスケジュールを取得します。

日付を指定しているようなコードを書いているので、下記のソースコードが参考になると思います。

Sub test1()
    Dim ns As Outlook.Namespace
    Dim mf As Object
    Dim ob As Object
    Dim strret As String
    Dim x As Long
    
    Set ns = Outlook.GetNamespace("MAPI")
    Set mf = ns.GetDefaultFolder(olFolderCalendar)
    
    x = 1
    For Each ob In mf.Items
        If ob.Start > (#7/1/2020# - 1) And ob.Start < (#7/7/2020# + 1) Then
            strret = Format(ob.Start, "yyyy/mm/dd") & Space(3) _
                      & Format(ob.Start, "hh:mm") & Space(3) & ob.Subject & vbCrLf
            ActiveCell.Offset(x, 1).Value = strret
            x = x + 1
        End If
    Next ob

End Sub

Comments

[rhaya]

ご回答ありがとうございました。
言葉足らずで申し訳ありません。

>outlook の予定を格納しているオブジェクトは、GetNamespace("MAPI")で生成します。
>スケジュールは、GetDefaultFolderメソッドの引数で、olFolderCalendarを指定してスケジュールを取得します。

こちらの指定は、サンプルに書かなかった部分で行っておりました。
端折ってしまって、大変失礼しました。

その上で、サンプルでいただいたコードで、「定期的な予定」以外のアイテムは取得できました。
しかし、「定期的な予定」として登録されているものは、正しく取得できませんでした。

一部の予定は正しく取得できます。
しかし「もともと月～金の１２時～１３時」で登録した予定を、一日だけ１４時～１５時に変えた場合に、もともとの開催時刻で取得されてしまったり、他者から送られてきた会議の招待で登録された定期的な予定が、出力されなかったりします。

OutlookライブラリのクラスAppointmentItemは、定期的な予定の場合、メンバーStartに、定期的な予定の最初の開始日時が入っているようですが、取得したいのはこの値ではなく、ある１日を指定した場合に、その定期的な予定がOutlook予定表からどのように登録されているか（表示されているか）です。

たとえば

・７／１から開始された月～金の１２時開始の予定で、7/6の予定を一日分VBA出力すると、この予定が含まれていること
・この定期的な予定が、通常１２時開始のところ、ひとつだけ１４時開始に手動変更されていても、変更後の予定を取得できること

になります。サンプルコードの場合も、私が開発した場合も、いずれも自身が登録し、手動変更をしていない予定は出力できたのですが、他者が登録した予定や手動変更した予定が、正しく出力できませんでした。

対応方法について教授いただけましたら幸甚です。
誠に恐縮ですが、何卒よろしくお願い申し上げます。

[kai_keitai]

なるほど。
しかし、私は Docs.Microsoft のサンプルコードで試しましたが、
私の場合、削除したアイテムは出ないし、変更前のデータも出ないし、
変更されて正規なデータしか出ませんね。
おそらく、希望に沿った結果が出ていると思います。

Outlookの設定かな？
ちょっと、私の実力値では解決が難しいかもです。
すいません。

https://docs.microsoft.com/ja-jp/office/vba/api/outlook.items.includerecurrences

[gandhi159]

GetRecurrencePatternメソッドを実行後に取得できるRecurrencePatternオブジェクトの中の
Exceptionsプロパティの中に
AppointmentItemがあるので、
これをFor Eachなどで回して
item.startなどを取得すると変更後の定期予定の内容が取得できます。