Hallo zusammen,

ich nutze bisher zur automatisierten Speicherung von angehängten Dateien in Outlook folgendes Makro zusammen mit einer Regel:

CODE: ALLES AUSWÄHLEN

Public Sub Anhaenge_handeln(myItem As Outlook.MailItem)
Dim mAtts As Attachments
Dim mAtt As Attachment
    Set mAtts = myItem.Attachments
    While mAtts.Count > 0
        Set mAtt = mAtts(1)
        mAtt.SaveAsFile "C:\meinSpeicherort\" & mAtt.DisplayName
        mAtts.Remove 1
    Wend
End Sub

Tut soweit auch was es soll. Mein Problem ist nun folgendes:
Ich bekomme regelmäßig Mails mit Anhängen, die folgendes Format haben: "DQuote_wochenreport ST 2020 KW 07" ... "DQuote_wochenreport ST 2020 KW 08" usw.
Nun würde ich gerne zur weiteren Verarbeitung dieser Anhänge den Namen beim Abspeichern ändern bspw in "DQuote_wochenreport ST 2020 aktuell"
Wenn eine neue Auswertung per Mail kommt, soll die alte mit diesen Daten also überschrieben werden. Dazu soll der Großteil des Namens der Datei erhalten bleiben, nur am Ende soll die Bezeichnung der KW weg.

Nun habe ich leider keine Ahnung, wie ich das anstellen soll ... könnt ihr mir da helfen??