Dateinamen von Anhängen aus einer mail lesen

Option Explicit

Dim olapp        As Outlook.Application

Dim olName       As Outlook.Namespace



Public Sub ReadMailItems()

Dim strAttCount  As String

Dim olItemsCount As Long

Dim lngAttCount  As Long

Dim letzteZeile  As Long

'Dim olAcCount As Object

Dim olAcCount As Variant

    

On Error Resume Next

Set olapp = CreateObject("Outlook.Application")

Set olName = olapp.GetNamespace("MAPI")



For Each olAcCount In olapp.Session.Folders("Postfachname").Folders

    Call LeseOrdner("Postfachname", "Inbox")

Next



For Each olAcCount In olapp.Session.Folders("Postfachname").Folders("Inbox").Folders

    Call LeseOrdner("Postfachname", "Inbox", olAcCount.Name)

Next



For Each olAcCount In olapp.Session.Folders("Postfachname").Folders("Inbox").Folders("Abgleiche").Folders

    Call LeseOrdner("Postfachname", "Inbox", "Abgleiche", olAcCount.Name)

    

Next

End Sub



Function LeseOrdner(ByVal strPostfach As String, ByVal strOrdner As String, Optional ByRef strUnterOrdner As String = "", Optional ByRef strUnterUnterOrdner As String = "")

Dim olFolder As Object

Dim olItemsCount  As Long



    If strUnterOrdner = "" Then

        Set olFolder = olName.Session.Folders(strPostfach).Folders(strOrdner)

    ElseIf strUnterUnterOrdner = "" Then

        Set olFolder = olName.Session.Folders(strPostfach).Folders(strOrdner).Folders(strUnterOrdner)

    Else

        Set olFolder = olName.Session.Folders(strPostfach).Folders(strOrdner).Folders(strUnterOrdner).Folders(strUnterUnterOrdner)

    End If

    For olItemsCount = 1 To olFolder.Items.Count

            If InStr(1, olFolder.Items.Item(olItemsCount).Subject, "Abgleiche", vbTextCompare) > 0 Then

               'Hier möchte ich  die Namen der angehängten Datei lesen was noch nicht geht 

                Debug.Print olFolder.Items.Item(olItemsCount).SenderName

                Debug.Print olFolder.Items.Item(olItemsCount).SenderEmailAddress

                Debug.Print olFolder.Items.Item(olItemsCount).ReceivedTime

                Debug.Print olFolder.Items.Item(olItemsCount).Subject

            End If

        End With

    Next olItemsCount

End Function