VBScript で Outlook 会議室 の予約状況を取得したい。

Question

複数の会議室の予約状況を確認し、空いている会議室を予約するVBScriptを作りたいです。
以下のようなVBScriptで、他人の予定は確認できるのですが、会議室の予約状況を確認できません。

Dim objOutlookApp
Set objOutlookApp = WScript.CreateObject("Outlook.Application")

Dim objRecipient
' 会議室を指定
Set objRecipient = objOutlookApp.Session.CreateRecipient("[e-mail]")
' 人を指定（コメントアウト）
'Set objRecipient = objOutlookApp.Session.CreateRecipient("[e-mail]")

Dim objAppointmentItems
Set objAppointmentItems = objOutlookApp.Session.GetSharedDefaultFolder(objRecipient, 9).Items '9 = olFolderCalendar

' 会議室を指定すると、ここでエラーが発生する。
objAppointmentItems.Sort("[Start]")
objAppointmentItems.IncludeRecurrences = True

Dim objAppointmentItem
Set objAppointmentItem = objAppointmentItems.Find("[Start] < ""03/10/2020 06:00 PM"" AND [End] >= ""03/10/2020 08:00 AM""")

While Not objAppointmentItem Is Nothing
    ' 人を指定すると、その人の予定をメッセージボックスに表示できる。
    MsgBox  """" & objAppointmentItem.Subject & _
            """,""" & objAppointmentItem.Location & _
            """,""" & objAppointmentItem.Start & _
            """,""" & objAppointmentItem.End & _
            """,""" & objAppointmentItem.Categories & _
            """,""" & objAppointmentItem.Organizer & _
            """,""" & objAppointmentItem.RequiredAttendees & _
            """,""" & objAppointmentItem.OptionalAttendees & _
            """"

    Set objAppointmentItem = objAppointmentItems.FindNext
Wend

会議室を指定した場合、objAppointmentItems.Sort("[Start]")で以下のメッセージが表示されます。

Windows Script Host
エラー: "Start" は不明なプロパティです。
コード: 80020009

人と指定した場合はAppointmentItemオブジェクト、会議室を指定した場合はMeetingItemオブジェクトが帰ってきていて、MeetingItemオブジェクトにはStartプロパティがないためにこのエラーになっているのではないか、というところまでわかっているのですが、そこで詰まっています。

PowerShellやVBAでも良いので、会議室の予約状況を確認する方法があればご教授いただけないでしょうか。
どうぞよろしくお願いいたします。

Comments

[nanami12]

http://macronoblog.com/2019/08/04/vbacode-1-%E4%BC%9A%E8%AD%B0%E5%AE%A4%E4%BA%88%E7%B4%84%E8%A1%A8/ が参考になりませんか？

[tanacck]

ありがとうございます。確認しましたが、Outlookの会議室予約の参考にはならなそうでした。

[nanami12]

予約ができる。それすなわち予約可能と
おもったのですが

[tanacck]

すでに予約が入っている時間帯に予約しようとすると、Exchangeサーバーは"辞退"というメールを返してきます。予約できる場合は、"承諾"というメールを返してきます。
たしかに帰ってきたメールで判断することも不可能ではないと思いますが、スクリプトで非同期に受信メールを監視するのは難しいと考えています。

Answer 1

私は動作環境ないのですが

１．
２．
３．

１と２はexcelに各ユーザーの予定を落として処理しておられるようです。
ユーザーリストがいるようなので
３を利用してリストが作れそう（部署別の部屋があるのでしたら部署とかで絞ったり）

Comments

[tanacck]

情報ありがとうございます。試してみたのですが、私の環境のExchangeサーバーアドレスがわかっておらず、実現可能かの検証ができておりません。もう少し検証させてください。