Email Anhänge

Hallo in die Runde,
aus einem Projektordner (Outlook) lese ich alle Emails aus und liste wie folgt in einer Tabelle:
For Each item In objFolder.Items
If TypeName(item) = "MailItem" Then
i = i + 1
Cells(i, 1).Value = item.CreationTime
Cells(i, 2).Value = item.SenderName
Cells(i, 3).Value = item.Subject
'Cells(i, 4).Value = item.Body
Cells(i, 5).Value = item.Attachments.Count
**** cells(i,6).value = name of Attachment 1
cells(i,7).value = name of Attachment 2
cells(i,8).value = name of Attachment 3 ****
Next
Je nach Anzahl der Attachments möchte ich nun die Namen der Attachments (Hallo.PDf/Sternchen.Dwg/...) in den folgenden Spalten auflisten.
Bedanke mich vorab für jeden Tipp.
Gruß Mat65