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??