excel - 如何指向替代 .pst 的文件夹？

Question

我找不到完全用 Excel VBA 操作的代码来指向一个不是 Outlook 中默认收件箱的收件箱。
想象一下第二个收件箱，其中有一个用于特殊电子邮件的备用电子邮件地址。
看来Set Inbox = Ns.GetDefaultFolder(olFolderInbox)是在适当的代码中改变的自然位置。一些使用 parent.folder 的建议但这似乎不起作用。
假设备用收件箱的名称为“新订单”
我试过Set Inbox = Ns.GetDefaultFolder(6).Parent.Folders("New Orders")

Answer 1

那不行。你基本上在做的是寻找另一个与 Inbox 具有相同层次结构的文件夹。文件夹(在同一帐户或电子邮件中)，但不是另一个帐户中的另一个文件夹。

...with an alternative email address for special emails...

尝试在上述情况下使用它(我使用了早期绑定(bind)):

Dim oOL As Outlook.Application
Dim oAcc As Outlook.Account
Dim oStore As Outlook.Store
Dim oFolder As Outlook.Folder

Set oOL = GetObject(, "Outlook.Application")

For Each oAcc In oOL.Session.Accounts
  If oAcc.UserName = "User.Name" Then 
  '// Note: you can use other properties, I used this for demo //
    Set oStore = oAcc.DeliveryStore
    Set oFolder = oStore.GetDefaultFolder(olFolderInbox)
    Set oFolder = oFolder.Parent.Folders("New Oders")
  End If
Next

首先，您可以尝试运行 For Loop检查您是否真的有 2 个帐户。验证后，您可以继续使用它。 HTH。