in einem Verzeichnis habe ich EML-Dateien, deren Dateiinformationen ich auslesen will.
Was mir nicht gelingt, ist das Empfangsdatum, dass ich im Explorer sehen kann, abzufragen.
Der bisherige Code:
Sub Dateiinformationen()
Dim fs, f, f1, fc, s, i As Integer
i = 1
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("Z:\MAILS\TMP02")
Set fc = f.Files
For Each f1 In fc
ThisWorkbook.ActiveSheet.Range("A" & i).Value = f1.Name
ThisWorkbook.ActiveSheet.Range("B" & i).Value = f1.DateCreated
ThisWorkbook.ActiveSheet.Range("C" & i).Value = f1.DateLastAccessed
ThisWorkbook.ActiveSheet.Range("D" & i).Value = f1.DateLastModified
ThisWorkbook.ActiveSheet.Range("E" & i).Value = f1.Size
i = i + 1
Next
End Sub
Wäre ganz froh, wenn einer in der Runde eine Idee hat, wie ich auf das Mail-Empfangsdatum kommen kann.
Lieben Dank, viele Grüße,
Lakritze