我在 Outlook 2010 中配置了两个 Exchange 帐户,但是我无法找到如何访问第二个帐户的收件箱。 Session.GetDefaultFolder()
始终返回第一个。
即使枚举 Session.Accounts,找到正确的帐户并调用 Session.Account(found one).Store.GetDefaultFolder()
返回错误的收件箱(来自默认交换)帐户,而不是辅助帐户)。
最佳答案
这是否向您显示所有可用的收件箱?
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")
将为您提供每个邮箱的收件箱。
关于vba - 从 Outlook 获取收件箱,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6849068/