当它是共享电子邮件收件箱时如何将电子邮件从Outlook导入到Excel文档中

Question

我是编写代码的新手，不知道如何从默认的我的收件箱转到共享的电子邮件收件箱。

Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("Appointments")

Answer 1

尝试：getshareddefaultfolder

Dim OutNS As Outlook.Namespace
Set Folder = OutNS.GetSharedDefaultFolder(objOwner, olFolderInbox)