excel - 如何设置共享默认文件夹的 Outlook 子文件夹？

Question

我正在尝试从共享 Outlook 收件箱的子文件夹中提取信息。
当我将文件夹设置为共享收件箱 (olFolderInbox) 时，代码运行良好，但是，当我将其设置为子文件夹时，代码有时会失败。我确保子文件夹名称是正确的。
这是我的代码:

Dim OutlookNameSpace As Outlook.Namespace
Dim OutlookFolder As Outlook.Folder
Dim OutlookMail As Outlook.MailItem
Dim ObjOwner As Outlook.Recipient

Set OutlookNameSpace = Outlook.Application.GetNamespace("MAPI")
Set ObjOwner = OutlookNameSpace.CreateRecipient("EmailName@email.ca")
ObjOwner.Resolve

If ObjOwner.Resolved Then

  Set OutlookFolder = OutlookNameSpace.GetSharedDefaultFolder _ 
    (ObjOwner, olFolderInbox).Folders("FolderName")

End If

错误信息是:

"Run-time error '-2147221233 (8004010f)':
The attempted operation failed. An object could not be found."

调试工具突出显示我尝试将子文件夹设置为 Outlook 文件夹的行。
当我注释掉: .Folders("FolderName")宏运行良好。
为什么这段代码有时会失败？

Answer 1

请记住，如果代理默认文件夹被缓存(在主邮箱的 OST 文件中)，则子文件夹将不存在。

尝试关闭代理文件夹的缓存 - 取消选中 Exchange 帐户属性对话框的“高级”选项卡上的“下载共享文件夹”复选框。