Ziel

Per Mail erhaltene Anhänge auf Laufwerk speichern. Geht auch wenn nur ein Anhang vorhanden ist.

Lösungsansatz

Mit einer Regel in Outlook ein VBA-Skript aufrufen welches die angehängten Dateien speichert.

Code

Sub SaveToDisk(olMail As MailItem)

    Dim Pfad As String

    Dim Datei As Attachments

    Pfad = "Mein Laufwerk\Mein Ordner\"   'Der Pfad muss entsprechend angepasst werden. Wichtig ist der letzte Backslash

    On Error Resume Next

    Set Datei = olMail.Attachments

    For i = 1 To Datei.Count   'Mit dieser Schleife werden alle angehängten Dateien zum Speichern aufgerufen

        Datei.Item(i).SaveAsFile Pfad & Datei.Item(i).FileName   'Die Datei wird mit dem Dateinamen unter dem Pfad gespeichert

    Next i

 

 End Sub

So kann's gehen

Mit Alt+F11 den VBA-Editor aufrufen. Ein neues Modul erstellen.

Den Code einfügen und Speichern mit Ctrl+S

Die Regelverwaltung aufrufen.

 Die Regelverwaltung aufrufen

In diesem Beispiel wird eine Regel für den Betreff angewandt.

 Regel für Betreff

Auf Weiter klicken.

 Nach Witer

Im 2. Schritt auf bestimmte Wörter klicken.

Bestimmte Wörter aufrufen

Den Betreff erfassen und hinzufügen.

Betreff erfassen

Auf OK und weiter klicken. Die Aktion Skript ausführen auswählen und die vorher eingefügte Sub auswählen.

OK und Fertig stellen klicken. So sollte die Regel aussehen.