Dear All,

I hope you are doing well.
I have a short enquiry regarding a macro to save all attachments from an e-mail.
Fortunately I already got one to save all of them, BUT not the attachments from attached mails.
Is there the possibility to integrate this query also into the macro?

Sub Anlage_verschieben()
Dim strPath As String
Dim objMail As MailItem
Dim intAnlagen As Integer, i As Integer
On Error Resume Next
'Pfad zu meinem Ordner
strPath = "L:\"
'Schleife
For Each objMail In Outlook.ActiveExplorer.Selection
With objMail
'Mails auf vorh. Anlagen prüfen
intAnlagen = .Attachments.Count
If intAnlagen > 0 Then
For i = 1 To intAnlagen
'Anlagen im vordefinierten Verzeichnis sichern
.Attachments.Item(i).SaveAsFile strPath & "\" & Format(.ReceivedTime, "yyyy-mm-dd_hh-mm_") & " " & .Attachments.Item(i).FileName
Next i
End If
End With
Next objMail
End Sub
I would be very thankful if anyone has the clue for my issue.

Thank you in advance and best regards
T