vba - 从 Outlook 获取收件箱

Question

我在 Outlook 2010 中配置了两个 Exchange 帐户，但是我无法找到如何访问第二个帐户的收件箱。 Session.GetDefaultFolder() 始终返回第一个。

即使枚举 Session.Accounts，找到正确的帐户并调用 Session.Account(found one).Store.GetDefaultFolder() 返回错误的收件箱(来自默认交换)帐户，而不是辅助帐户)。

Answer 1

这是否向您显示所有可用的收件箱？

Sub LoopThroughInboxes

Dim ol As Outlook.Application
Dim ns As Outlook.NameSpace
Dim i As Long

Set ol = Outlook.Application
Set ns = ol.GetNamespace("MAPI")

For i = 1 To ns.Folders.Count
 Debug.Print ns.Folders(i).Name
Next i

如果是这样，那么 ns.Folders(i).Folders("Inbox") 将为您提供每个邮箱的收件箱。