Как получить имя папки outlook в VBA?

Question

Я хотел бы извлечь список адресов электронной почты outlook. В настоящее время я могу извлечь тему письма, тело, полученное время и имя отправителя. Как я могу включить имя папки входящих сообщений? В настоящее время у меня есть несколько подпапок. После извлечения я не уверен, что есть какие.

Sub GetFromOutlook()

Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim strMailboxName As String
Dim i As Integer

strMailboxName = “CMS Internal Team 1”

Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace(“MAPI”)
Set Folder = Session.Folders(strMailboxName)
Set Folder = Folder.Folders(“Inbox”)
Set Folder = Folder.Folders(“AUDITS”)

i = 1

For Each OutlookMail In Folder.Items
If OutlookMail.ReceivedTime >= Range(“From_date”).Value Then
Range(“eMail_subject”).Offset(i, 0).Value = OutlookMail.Subject
Range(“eMail_date”).Offset(i, 0).Value = OutlookMail.ReceivedTime
Range(“eMail_sender”).Offset(i, 0).Value = OutlookMail.SenderName
Range(“eMail_text”).Offset(i, 0).Value = OutlookMail.Body

i = i + 1
End If
Next OutlookMail

Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing

End Sub