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.

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

Auf Weiter klicken.

Im 2. Schritt auf bestimmte Wörter klicken.

Den Betreff erfassen und hinzufügen.

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.