Einen schönen guten Morgen :)

ich hänge bei einem Problem leider fest.
Und zwar bekomme ich wöchentliche Mails mit einer CSV-Datei aus der ich Daten per Makro weiterverarbeite. Diese Daten würde ich gerne automatisch übernehmen.
Die Mail speicher ich per Outlook-Regel und lasse so auch automatisch das untenstehende Skript starten.

Das Problem daran ist, dass der Anhang immer den selben Namen hat. Im Betreff ist allerdings eine eindeutige Angabe des Auswertungszeitraums und des Kunden.

Daher würde ich gerne die Datei so speichern, dass der Dateiname durch den Text im Betreff der Mail ersetzt wird.

Ich hoffe ihr könnt mir weiterhelfen.

Vielen Dank und viele Grüße
Henning

Public Sub TestLM(j As Outlook.MailItem)
 Dim attach As Attachment
 Dim Now As Variant
 Dim FileName As String
 Dim i As Integer

 
 

 If j.Attachments.Count > 0 Then
 
 For Each attach In j.Attachments
 Betreff = ?????
  attach.SaveAsFile ("H:\Testordner\" & Betreff & ".xlsx")
 Next attach
 End If
 End Sub