Outlook 使用 GetSharedDefaultFolder 在 SharedMailbox 中选择子文件夹 [英] Outlook Selecting a Subfolder in the SharedMailbox using GetSharedDefaultFolder

问题描述

我在尝试选择 SharedMailbox 中的子文件夹时遇到问题.
我已经阅读了许多关于 GetSharedDefaultFolder 的资源.
但是，努力将其正确组合在一起.
如果您能对此提供帮助，那就太好了.

I am having trouble trying to select a subfolder in SharedMailbox.
I have read a number of resources on GetSharedDefaultFolder.
However, struggling to put it together correctly.
Would be really great if you could help with this.

Sub ListOutlookEmailInfoInExcel()
  Dim olNS As Outlook.NameSpace
  Dim olTaskfolder As Outlook.MAPIFolder
  Dim olTask As Outlook.TaskItem
  Dim olItems As Outlook.Items

  Set o1NS = GetNamespace("MAPI")
  Set o1TaskFolder = o1NS.GetSharedDefaultFolder("Shared Folder 1", _
    olFolderInbox).Folders("admin")
  Set o1Items = o1TaskFolder.Items
End Sub

推荐答案

您首先按照此处所述解析所有者 http://www.slipstick.com/developer/working-vba-nondefault-outlook-folders/

You first resolve the owner as described here http://www.slipstick.com/developer/working-vba-nondefault-outlook-folders/

在解析收件人时，您可以使用邮箱所有者的显示名称、别名或电子邮件地址."

"You can use the mailbox owner's display name, alias, or email address when resolving the recipient."

Sub ListOutlookEmailInfoInExcel()

Dim olNS As Outlook.NameSpace
Dim olTaskfolder As Outlook.MAPIFolder
Dim olTask As Outlook.TaskItem
Dim olItems As Outlook.Items

Dim objOwner As Outlook.Recipient

Set olNS = GetNamespace("MAPI")

Set objOwner = olNS.CreateRecipient("Shared Folder 1")
objOwner.Resolve

If objOwner.Resolved Then
    Set olTaskFolder = olNS.GetSharedDefaultFolder(objOwner, _
      olFolderInbox).Folders("admin")
    Set olItems = olTaskFolder.Items
End If

End Sub

这篇关于Outlook 使用 GetSharedDefaultFolder 在 SharedMailbox 中选择子文件夹的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！