Outlook VBA, Alternative zu NewMailEx, neue bereits gelesene Email im Posteingang

Public Sub Application_NewMailEx(ByVal EntryIDCollection As String)

Dim varEntryIDs
Dim objItem
Dim i As Integer, k As Integer
Dim strCMDLine As String, strTempPath As String, strTargetPath As String, pdf_name
Dim att As Attachment
Dim fso As Object, objShell As Object, regex As Object, file As Object
Dim colPFiles As New Collection, colTFiles As New Collection

'Pfade  
'----------------------------------------------------------------------------------------------  
'Pfad zu pdftotext.exe  
strCMDLine = "C:\Users\User\Documents\PDFtoText\pdftotext.exe -table -layout -nopgbrk "  
'----------------------------------------------------------------------------------------------  

Set fso = CreateObject("Scripting.FileSystemObject")  
'Für das Starten eines externen Programms  
Set objShell = CreateObject("WScript.Shell")  
'Für das Absuchen von Text  
Set regex = CreateObject("vbscript.regexp")  
regex.MultiLine = True
    
varEntryIDs = Split(EntryIDCollection, ",")  
For i = 0 To UBound(varEntryIDs)
    Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
    'Überprüfung Absendername und Betreff  
    If objItem.Class = olMail And objItem.SenderEmailAddress Like "test@test.de" _  
    And objItem.Subject Like "*Test Nr*" Then  
        For Each att In objItem.Attachments
            'Wenn Attachment ein PDF ist dann ...  
            If InStr(att.DisplayName, ".pdf") Or InStr(att.DisplayName, ".PDF") Then  

....

Public WithEvents itmsFolderTest As Items

Public Sub Application_Startup()
    Set itmsFolderTest = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items  
    
End Sub

Public Sub itmsFolderTest_ItemAdd(ByVal Item As Object)

Dim varEntryIDs
Dim objItem
...

Public Sub Excel_oeffnen()

Dim objExcelApp As Object

Set objExcelApp = CreateObject("excel.application")  

With objExcelApp
    .Visible = True
    .Workbooks.Open ("C:\Users\Benutzer\Documents\Test.xlsm")  
End With

End Sub