我在 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")将为您提供每个邮箱的收件箱。
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
