找出 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

您是指 GetDefaultFolder 方法的 OlDefaultFolders 枚举吗？

  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;