Ich soll einen VBA-Code schreiben, der E-Mails von Outlook basierend auf bestimmten Bedingungen abruft. Das Problem, das ich habe, ist, dass ich in meinem Code einen bestimmten Ordner angeben muss (im folgenden Beispiel lautet der angegebene Ordner "PRE Costumer". Ich möchte alle E-Mails aus meinem Posteingang oder besser gesagt aus allen Outlook-Ordnern abrufen Das Problem ist, dass mein Posteingang aus vielen Unterordnern besteht (aufgrund von Regeln0. Mein Problem ist, dass ich möglicherweise nicht alle Unterordnernamen kenne (da viele Benutzer das Makro verwenden und sogar jemand die E-Mails in persönlichen Ordnern haben kann). .
Könnten Sie bitte mitteilen, ob es eine Möglichkeit gibt, dieses Problem zu lösen?
Bitte lassen Sie mich wissen, wenn diese Frage vage ist (da ich Neuling bin)

Finden Sie bitte die Zeile, die ich probelm mit einem Kommentar markiert habe.

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