Office: (Office 2007) Outlook 2007 Faxe automatisiert verarbeiten

Anlagen herunterladen und Pfad öffnen

Hallo Communitiy,

ich habe folgendes Script:

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


Leider öffnet das Makro pro runtergeladene Anlage den Ordner Test. Wie müsste man das Script ändern damit er nur 1 mal den Ordner öffnet ?

Vielen Dank im Voraus.

Alex