liefert das:

Sub SpeichereBestellungen()
    Dim olApp As Object
    Dim olNamespace As Object
    Dim olInbox As Object
    Dim olMail As Object
    Dim olAttachment As Object
    Dim fs As Object
    Dim folderPath As String
    Dim subject As String
    Dim attachmentName As String
    Dim orderNumber As String
    Dim orderDescription As String
    Dim savePath As String
    
    ' Outlook-Objekte initialisieren
    Set olApp = CreateObject("Outlook.Application")
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set olInbox = olNamespace.GetDefaultFolder(6) ' Posteingang
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    ' Durch alle E-Mails im Posteingang iterieren
    For Each olMail In olInbox.Items
        ' Nur E-Mails mit dem Betreff "Bestellung" vom Absender "X" verarbeiten
        If olMail.Subject = "Bestellung" And olMail.SenderEmailAddress = "X@example.com" Then
            
            ' Extrahiere Auftragsnummer und Beschreibung (nehmen wir an, dass es im Betreff oder im Text ist)
            subject = olMail.Subject
            orderNumber = GetOrderNumber(subject) ' Funktion zum Extrahieren der Auftragsnummer
            orderDescription = GetOrderDescription(subject) ' Funktion zum Extrahieren der Beschreibung
            
            ' Erstelle einen Ordner, falls dieser noch nicht existiert
            folderPath = "C:\Aufträge\" & orderNumber & " - " & orderDescription
            If Not fs.FolderExists(folderPath) Then
                fs.CreateFolder folderPath
            End If
            
            ' Speichere alle Anhänge im Ordner
            For Each olAttachment In olMail.Attachments
                attachmentName = olAttachment.FileName
                savePath = folderPath & "\" & attachmentName
                olAttachment.SaveAsFile savePath
            Next olAttachment
        End If
    Next olMail
End Sub

Function GetOrderNumber(subject As String) As String
    ' Beispiel: Extrahiere die Auftragsnummer aus dem Betreff (nehmen wir an, dass sie am Anfang steht)
    Dim parts() As String
    parts = Split(subject, " ") ' Aufteilen anhand des Leerzeichens
    GetOrderNumber = parts(0) ' Die erste Zahl wird als Auftragsnummer genommen
End Function

Function GetOrderDescription(subject As String) As String
    ' Beispiel: Extrahiere die Beschreibung aus dem Betreff (nach der Auftragsnummer)
    Dim parts() As String
    parts = Split(subject, " ") ' Aufteilen anhand des Leerzeichens
    GetOrderDescription = Join(Application.Index(parts, 0, 2), " ") ' Den Rest als Beschreibung
End Function

und

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim olMail As Object
    Dim olNamespace As Object
    Set olNamespace = Application.GetNamespace("MAPI")
    Set olMail = olNamespace.GetItemFromID(EntryIDCollection)
    
    ' Überprüfe, ob es eine Bestellung ist, und speichere den Anhang
    If olMail.Subject = "Bestellung" And olMail.SenderEmailAddress = "X@example.com" Then
        SpeichereBestellungen
    End If
End Sub

Dazu auch noch eine Beschreibung.

Versuch es doch erst mal damit, anstatt hier Leute mit einer Aufgabe zu beschäftigen, welche jedes Jahr mindestens ein Mal gestellt wird.

Grüße