비 영어가 아닌받은 편지함에 대한 참조

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