Exchange 2010とルートフォルダ

Question

Exchange 2003では、次のコードを実行できます。

nfo.Name: Public Folders 
nfo.RootFolder.Name: IPM_SUBTREE 
nfo.Name: Mailbox - pperez pperez 
nfo.RootFolder.Name: Top of Information Store 

私は、Exchange 2010でそれを実行しようとしているが、私はエラーを取得しています、

しかし：私は取得VB6とMAPI CDO 1.2.1

Private Sub Command1_Click() 
    Dim objSession As MAPI.Session 
    Set objSession = CreateObject("MAPI.Session") 
    strProfileInfo = myExcServer & vbLf & myExcAlias 
    objSession.Logon ProfileInfo:=strProfileInfo 
    For Each nfo In objSession.InfoStores 
     Text1.Text = Text1.Text & "nfo.Name: " & nfo.Name & vbNewLine 
     Text1.Text = Text1.Text & "nfo.RootFolder.Name: " & nfo.RootFolder.Name & vbNewLine 
    Next 
    Set objMessage = Nothing 
    Set objInbox = Nothing 
    objSession.Logoff 
    Set objSession = Nothing 
End Sub 

を使用して

nfo.Name: Public Folders 
Run-time error '-2147221219 (8004011D)': 
[Collaboration Data Objects - [MAPI_E_FAILONEPROVIDER(8004011D)]] 

例外はちょうどルートフォルダ、nfo.RootFolder.Nameを基準にスローされています。

このプロパティは2010年にサポートされていませんか？

何かアドバイスは、 おかげで大歓迎です。

Answer 1

あなたのExchange 2010には実際にPFストアがありますか？ CDO 1.21がサーバーにアクセスしてPFストアが存在しないことを認識すると、ストアをループする前に既定のストアに最初にアクセスしてください（たとえば、受信トレイのフォルダー名を読み取る）。

Answer 2

@Dmitry Streblechenkoは正しかった、私はちょうどのPFを追加し、それが働きました。

New-PublicFolderDatabase "Public Folders" -Server $MyServer 
Mount-Database "Public Folders"