Я должен написать код VBA, который будет получать письма из Outlook на определенных условиях. Проблема, с которой я столкнулся, заключается в том, что я должен обозначить определенную папку в своем коде (в приведенном ниже примере папка обозначена как «PRE Costumer». Я хотел бы получить все электронные письма из своей папки «Входящие» или, в лучшем случае, из всех папок Outlook). Проблема в том, что мой почтовый ящик состоит из множества подпапок (из-за правил 0. Моя проблема в том, что я могу не знать имена всех подпапок (так как многие пользователи будут использовать макрос, и даже кто-то может иметь электронные письма в личных папках) ,
Не могли бы вы сообщить, есть ли способ преодолеть эту проблему?
Пожалуйста, дайте мне знать, если этот вопрос неопределенный (так как я новичок)

Пожалуйста, найдите строку, с которой у меня есть проблема, отмеченная комментарием.

Sub GetFromInbox()

Dim olApp As Outlook.Application
Dim olNs As Namespace
Dim Fldr As MAPIFolder
Dim olMail As Variant
Dim i As Integer

Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
'Below is the line I have problem with
Set Fldr = olNs.GetDefaultFolder(olFolderInbox).Folders("PRE Customer") 

i = 1
x = Date

For Each olMail In Fldr.Items
    If InStr(olMail.Subject, "transactions") > 0 _
    And InStr(olMail.ReceivedTime, x) > 0 Then  
        ActiveSheet.Cells(i, 1).Value = olMail.Subject
        ActiveSheet.Cells(i, 2).Value = olMail.ReceivedTime
        ActiveSheet.Cells(i, 3).Value = olMail.SenderName
        i = i + 1
    End If
Next olMail

Set Fldr = Nothing
Set olNs = Nothing
Set olApp = Nothing
End Sub