ich habe folgenden Code und es treten keine Fehler beim kompilieren auf, jedoch finde ich keine abgespeicherte Datei in dem hinterlegten Verzeichnis.
Sub Anhang_SaveAs()
Dim EML As MailItem
Set EML = ActiveExplorer.Selection(1)
With EML.Attachments
For i = 1 To .Count
.Item(i).SaveAsFile "R:\Bla\Bli\Blub\" & Format(Date, "yyyymmdd") & "_" & i & "_" & .Item(i).FileName
Next i
End With
End Sub
Danke schon mal LG