Outlook - Mail Dateianhang öffnen

Sub OutlookPosteingang()
Dim OLF As OutLook.MAPIFolder
Dim anzEingänge As Integer, i As Integer, email As Integer
Workbooks.Add xlWBATWorksheet
'On Error Resume Next
'Überschriften
Range("A1").Value = "Betreff"
Range("B1").Value = "Datum Uhrzeit"
Range("C1").Value = "empfangen von"
Range("D1").Value = "gelesen"
Range("E1").Value = "Dateianhänge"
Range("F1").Value = "Text"
Rows(1).Font.Bold = True
Set OLF = GetObject("", "outlook.application"). _
GetNamespace("MAPI"). _
GetDefaultFolder(olFolderInbox)
anzeinträge = OLF.Items.Count
i = 0: email = 0
Do While i 

Sub anhangÖffnen(datei)
If Right(datei, 3) = "xls" Then  'nur für excel mappen
Workbooks.Open datei  'hier kommt die meldung datei nicht gefunden
End If
End Sub