如何设置共享默认文件夹的 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

错误信息是：

“运行时错误‘-2147221233 (8004010f)’：
尝试的操作失败。 找不到对象。”

调试工具突出显示了我试图将子文件夹设置为 Outlook 文件夹的行。

当我注释掉： .Folders("FolderName")宏运行良好。

为什么这段代码有时会失败？

Answer 1

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

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