これがうまくいくかどうかはわかりませんが、 OutlookSpy で「すべての部屋」コンテナを見ると、PR_CONTAINER_FLAGS プロパティに文書化されていないビット 0x200 が含まれています。他のコンテナに同じビット セットが表示されません。次のようなものはあなたのために働きますか?
PR_CONTAINER_FLAGS = "http://schemas.microsoft.com/mapi/proptag/0x36000003"
set rooms = Nothing
set lists = Application.Session.AddressLists
for each list in lists
containerFlags = list.PropertyAccessor.GetProperty(PR_CONTAINER_FLAGS)
if (containerFlags And &H0200) <> 0 Then
set rooms = list
Exit For
End If
next
if (rooms Is Nothing) Then
MsgBox "Room container not found"
Else
MsgBox "Room container was found, its name is " & rooms.Name
for each room in rooms.AddressEntries
Debug.Print room.Name & " - " & room.Address
next
End If