Ich habe hier das Problem, einen Dateianhang aus einem Outlook-Ordner per VBA zu öffnen. Mit meinem Beispielcode bekomme ich auch den Anhang angezeigt, aber dann kommt die Meldung - Pfad bzw. Datei nicht gefunden!
Was mache ich falsch bzw. wie kann ich den Pfad zur Datei auslesen?
gruss GerWas
beispielcode
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