Вывод индекса папки в Outlook VBA

Question

Я знаю, что я могу получить доступ к папке «Входящие» с помощью «FolderInbox». Когда я отлаживаю свой код, он показывает, что FolderInbox имеет индекс 6.

Как я могу получить доступ к другим папкам? Как я могу узнать его индекс? Папка, в которой я нуждаюсь, является функциональным почтовым ящиком.

Спасибо.

Часть моего кода:

Dim MyArray(10) As String 
Dim Msg As Object 
Dim item As Object 
Dim J As Variant 



Set olApp = GetObject(, "Outlook.Application") 

Set olNs = olApp.GetNamespace("MAPI") 
Set olFldr = olNs.GetDefaultFolder(olFolderInbox) 
Set olItms = olFldr.Items 

olItms.Sort "Received", False 

Answer 1

Вы имеете в виду OlDefaultFolders перечисление для метода GetDefaultFolder?

olFolderDeletedItems = 0x3; 
    olFolderOutbox = 0x4; 
    olFolderSentMail = 0x5; 
    olFolderInbox = 0x6; 
    olFolderCalendar = 0x9; 
    olFolderContacts = 0xA; 
    olFolderJournal = 0xB; 
    olFolderNotes = 0xC; 
    olFolderTasks = 0xD; 
    olFolderDrafts = 0x10; 
    olPublicFoldersAllPublicFolders = 0x12; 
    olFolderConflicts = 0x13; 
    olFolderSyncIssues = 0x14; 
    olFolderLocalFailures = 0x15; 
    olFolderServerFailures = 0x16; 
    olFolderJunk = 0x17; 
    olFolderRssFeeds = 0x19; 
    olFolderToDo = 0x1C; 
    olFolderManagedEmail = 0x1D; 
    olFolderSuggestedContacts = 0x1E;