如何通过VBA将其他邮箱账户关联到Outlook的Namespace对象

在MS Outlook中有两个邮箱账户，希望遍历指定账户收件箱的子文件夹，但现有代码无法将OutAccount变量与Namespace关联，导致遍历的是错误账户的文件夹，如何实现正确关联？

原代码 #

Dim OutMail As MailItem
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myNewFolder As Outlook.Folder

Dim OutAccount As Outlook.Account

Set OutMail = Application.CreateItem(olMailItem)

'The below code represents the prefered email account I would like to use
Set OutAccount = OutMail.Session.Accounts.Item(2)
 

Set myNameSpace = Application.GetNamespace("MAPI")

For Each acct In myNameSpace.Accounts
    MsgBox acct
Next acct

'But this variable is not accecessing the account referenced above
Set myFolder = myNameSpace.GetDefaultFolder(olFolderSentMail)


 
For Each mysubfolder In myFolder.Folders
    MsgBox mysubfolder.Name
Next mysubfolder

解决方案 #

原代码中myNameSpace.GetDefaultFolder始终返回当前默认账户的文件夹，和你指定的OutAccount无关。要获取目标账户的文件夹，需要通过账户对应的Store对象来操作：

1. 获取目标账户的DeliveryStore：每个Outlook账户都对应一个存储区（Store），通过OutAccount.DeliveryStore可以拿到该账户的存储对象。
2. 用Store.GetDefaultFolder获取该账户的默认文件夹：这个方法会返回当前Store（即目标账户）对应的默认文件夹，而非全局默认账户的。
3. 遍历子文件夹：基于获取到的目标文件夹遍历其子目录。

修改后的代码 #

Dim OutAccount As Outlook.Account
Dim targetStore As Outlook.Store
Dim targetFolder As Outlook.Folder
Dim mysubfolder As Outlook.Folder

' 获取目标账户（这里用索引2，你可以根据实际情况调整，或用账户名称匹配）
Set OutAccount = Application.Session.Accounts.Item(2)

' 获取目标账户对应的存储区
Set targetStore = OutAccount.DeliveryStore

' 获取该账户的收件箱（如果要已发送就用olFolderSentMail）
Set targetFolder = targetStore.GetDefaultFolder(olFolderInbox)

' 遍历收件箱的子文件夹
For Each mysubfolder In targetFolder.Folders
    MsgBox mysubfolder.Name
Next mysubfolder

关键说明 #

• 如果你不确定账户索引，可以通过账户名称来精准匹配，比如：

  For Each OutAccount In Application.Session.Accounts
      If OutAccount.DisplayName = "你的目标邮箱名称" Then
          Set targetStore = OutAccount.DeliveryStore
          Exit For
      End If
  Next
  

• DeliveryStore是账户对应的默认存储区，确保你获取的是该账户的根存储，不会混淆其他账户的文件夹。

内容的提问来源于stack exchange，提问作者C. Gary