Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim objItem As Object
Set objItem = Session.GetItemFromID(EntryIDCollection)
If objItem.Attachments.Count > 0 Then
For Each objAttachment In objItem.Attachments
If Left(objAttachment.FileName, 12) = "Daten_ABC_AA" Then
objAttachment.SaveAsFile "PFAD"
Debug.Print objAttachment.FileName
End If
Next
End If
End Sub