Automatische Speicherung von bestimmten Outlook Anhängen
01.04.2020 13:44:48
bestimmten
ich nutze bisher zur automatisierten Speicherung von angehängten Dateien in Outlook folgendes Makro zusammen mit einer Regel:
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
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 ... meine VBA Kenntnisse sind leider nicht so gut, wie sie sein sollten.
Kann mir dabei jemand helfen?
Viele Grüße
Nico
Anzeige