Suche nach Möglichkeit, Download-Link automatisch aus Mail auslesen zu können

 Option Explicit
' Erforderliche Verweise:  
' - Microsoft Outlook xx.x Object Library  
' - Microsoft Internet Controls  

Private WithEvents InboxItems As Outlook.Items

Private Sub Application_Startup()
    Dim OutlookApp As Outlook.Application
    Dim OutlookNamespace As Outlook.NameSpace
    Dim OutlookFolder As Outlook.MAPIFolder
    
    Set OutlookApp = Outlook.Application
    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")  
    Set OutlookFolder = OutlookNamespace.GetDefaultFolder(olFolderInbox)
    Set InboxItems = OutlookFolder.Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal Item As Object)
    Dim Mail As Outlook.MailItem
    Dim HTMLDoc As MSHTML.HTMLDocument
    Dim Link As MSHTML.HTMLLinkElement
    Dim IEApp As InternetExplorer
    Dim TargetURL As String
    
    If TypeOf Item Is Outlook.MailItem Then
        Set Mail = Item
        
        ' Überprüfen, ob die E-Mail HTML-Format hat  
        If Mail.BodyFormat = olFormatHTML Then
            Set HTMLDoc = New MSHTML.HTMLDocument
            HTMLDoc.Body.innerHTML = Mail.HTMLBody
            
            ' Die spezielle URL mit Wildcard-Suche finden  
            TargetURL = "https://example.com/*" ' Beispiel-URL mit Wildcard  
            
            For Each Link In HTMLDoc.Links
                If Link.href Like TargetURL Then
                    Set IEApp = New InternetExplorer
                    IEApp.Visible = True
                    IEApp.navigate Link.href
                    Exit For
                End If
            Next Link
        End If
    End If
End Sub

$savedir= 'D:\Download'  
$newMailAction = {
    foreach ($mail in $Event.SourceArgs.Split(",")){  
        $mailItem = $objOL.Session.GetItemFromID($mail)
        if ($mailitem.HTMLBody -match '(?<=href=")https://export\.srv123\.com/[^"]+'){  
            write-host "Downloading file '$($matches[0])'" -ForegroundColor green  
            Invoke-WebRequest -uri $matches[0] -OutFile "$savedir\$([IO.Path]::GetFileName($matches[0]))"  
        }
    }
}
$ol = New-Object -ComObject "Outlook.Application"  
$null = Register-ObjectEvent $ol -EventName NewMailEx -Action $newMailAction -SourceIdentifier "NewMailEventSubscriber"  

write-host "Waiting for new mails ... " -ForegroundColor Green  
while($true){
    sleep 1
}

while($true){
    sleep 1
}