从Outlook共享邮箱将电子邮件导出到Excel

Question

我有一个VBA宏，可以将电子邮件从Outlook导出到Excel，但是它仅从“收件箱”文件夹中导出，如果要从“收件箱”和一个特定的子文件夹中导出，我希望这样做。这是一个共享邮箱。

Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer
Dim objMail As Outlook.MailItem
Dim objFlaggedMail As Outlook.MailItem

Application.ScreenUpdating = False

Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")

Set olShareName = OutlookNamespace.CreateRecipient("shared_mailbox")
Set Folder = OutlookNamespace.GetSharedDefaultFolder(olShareName, olFolderInbox)

Range("A:I").ClearContents

Range("A3").Value = "Subject"
Range("B3").Value = "Date"
Range("C3").Value = "Sender"
Range("D3").Value = "Category"

i = 4

On Error Resume Next
For Each OutlookMail In Folder.Items

    Range("A" & i).Value = OutlookMail.Subject
    Range("B" & i).Value = OutlookMail.ReceivedTime
    Range("C" & i).Value = OutlookMail.SenderName
    Range("D" & i).Value = OutlookMail.Categories

如何修改它以检查一个特定的子文件夹并以与Inboc FOlder相同的方式导出电子邮件？

该文件夹直接位于共享邮箱的Inboc文件夹下。