非英語以外の受信トレイへの参照

Question

MS Outlookでデフォルト以外の受信トレイへの参照を設定しようとしています。私は、受信トレイが "受信トレイ" という名前が付けられたときにOKです

Dim objNS As Outlook.NameSpace 
Dim objFolder As Outlook.MAPIFolder 
Set objNS = GetNamespace("MAPI") 
Set objFolder = objNS.Folders("Procurement, Request") 
Set objFolder = objFolder.Folders("Inbox") 

をa code in SOを発見しました。

英語以外の言語で受信トレイに名前を付ける可能性があります。

あなたは

objNS.getdefaultfolder(6) 

しかし、どのような非デフォルトについてのことで、デフォルトの受信トレイを参照してもよいですか？

Answer 1

ストアインデックスまたは名前で受信トレイを取得できるはずです。

Option Explicit 

Sub Inbox_by_Store() 

Dim allStores As Stores 
Dim storeInbox As Folder 

Dim i As Long 

Set allStores = Session.Stores 

For i = 1 To allStores.count 

    Debug.Print i & " DisplayName - " & allStores(i).DisplayName 

    Set storeInbox = Nothing 
    On Error Resume Next 
    Set storeInbox = allStores(i).GetDefaultFolder(olFolderInbox) 
    On Error GoTo 0 

    If Not storeInbox Is Nothing Then 
     storeInbox.Display 
    End If 

Next 

ExitRoutine: 
    Set allStores = Nothing 
    Set storeInbox = Nothing 

End Sub