Outlook 2010 - Betreff-Zeile der emails ergänzen mit dem DateiNAMEN der Anlagen

Hallo Admin's ;) ,

folgendes Prob:
Wir versenden viele email an verschiedene Kollegen und hängen eine oder mehrere ! xls-Datei an.
Leider ist in der Vergangenheit die Betreffzeile nur Standardisiert erstellt worden (also überall gleich)
z.B. Prüfung Inhalte der Anlage
Die angehängten XLS-files sind jedoch unterschiedlich
z.B. 01-02-03.xls oder 18-15-13-2015.xls

Ich möchte gern per Makro für alle emails, die sich in einem Ordner befinden,
die Betreffzeile anpassen > ergänzen um den Dateinamen !

Beispiel von oben wäre
Prüfung Inhalte der Anlage 01-02.03.xls
Prüfung Inhalte der Anlage 18-15-13-2015.xls
(das .xls kann auch entfallen)
Sollten mehrere XLS anhängen, sollten auch alle Dateinamen im jeweiligen Betreff eingefügt werden.

Gibt es so eine Möglichkeit per Makro / VBA ?
Bin selber kein VBA-Kenner ;/

Es sind "tausende" von emails in unterschiedlichen Verzeichnissen.
Das Makro sollte also immer nur für das gerade ausgewählte Verzeichnis funzen ;)

Freu mich auf einen Tipp
Gruß

Stefan

Sub SubjectChange()
set fso = CreateObject("Scripting.FileSystemObject")  
for each mail in ActiveExplorer.CurrentFolder.Items
   if mail.Class = olMail then
    if mail.attachments.count > 0 then
        for each att in mail.attachments
            On Error Resume Next
            strAttName = fso.GetBasename(att.Filename)
            if Err.Number = 0 then
                mail.Subject = mail.Subject & " " & strAttName  
            End if
        next
        mail.Save
    end if
   end if
Next
End Sub

set destFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("MeinZiel")  
set copy = mail.copy
copy.move  destFolder