Office: (Office 2007) Script öffnet Pfad zu oft

Hallo Community,

ich habe folgendes Script für Outlook 2007:

Sub Anlagen_Speichern(olMail As MailItem)

'Objekte/Variablen deklarieren
Dim Ziel As String
Dim Anlagen As Attachments
Dim i As Integer

'Speicherordner angeben (bitte mit Backslash abschließen!)
Ziel = "C:\Test\"

'Abbruch, wenn Ordner nicht vorhanden
If Dir(Ziel, vbDirectory) = "" Then Exit Sub

'Mailanhänge ermitteln
Set Anlagen = olMail.Attachments

'alle Anhänge der Mail durchlaufen und speichern
For i = 1 To Anlagen.Count
'Dateiname zusammensetzen, Datum ist Empfangsdatum der Mail
Datei = Ziel & Format(olMail.CreationTime, "dd.mm.yyyy_hh.mm") & "_" & Anlagen.Item(i).FileName
'Anlage speichern
Anlagen.Item(i).SaveAsFile Datei
Next i

Shell "Explorer.exe C:\Test", vbNormalFocus

End Sub


Das Makro öffnet für Jede Anlage was herunter geladen wurde den Ordner "Test" aber es soll nur 1 mal der Ordner "Test" geöffnet werden egal wie viele Anlagen runtergeladen werden.

Kann mir da einer weiterhelfen? Ich bin halbwegs VBA Neuling und noch nicht so den Durchblick.

Vielen Dank

Alex