Outlook Anhänge abspeichern/umbenennen
10.06.2022 13:41:37
Ritalin21
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
LG
Anzeige