Как импортировать электронные письма из outlook в документ Excel, когда это общий почтовый ящик

Question

Я новичок в написании кода и не знаю, как перейти от входящей по умолчанию папки «Входящие» к общей папке электронной почты.

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

Answer 1

Попробуйте: getshareddefaultfolder

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