Hallo,
ich habe folgendes Script:
<code>Sub Anhang_speicherung(olMail As MailItem)
Dim Pfad As String
Dim Datei As Attachments
Pfad = "C:\Temp\" 'Der Pfad muss entsprechend angepasst werden. Wichtig ist der letzte Backslash
On Error Resume Next
Set Datei = olMail.Attachments
For i = 1 To Datei.Count
Datei.Item(i).SaveAsFile Pfad & Datei.Item(i).FileName
Next i
End Sub</code>
Dieses ist dazu da, um den Anhang einer ankommenden E-Mail automatisch in einem Ordner abzuspeichern.
Nun möchte ich noch einbinden, dass nur Excel (also xls oder xlsx) Dateien abgespeichert werden.
Danke im Vorraus!