Wie speichert man alle Anhänge aus mehreren E-Mails in einem einzigen Ordner in Outlook?

Es ist kinderleicht, alle Anhänge einer E-Mail mithilfe der integrierten Funktion „Alle Anlagen speichern“ in Outlook zu sichern. Möchten Sie jedoch Anhänge aus mehreren E-Mails gleichzeitig speichern, fehlt eine direkte Option dafür. Ohne Hilfsmittel müssten Sie die Funktion „Alle Anlagen speichern“ für jede einzelne Nachricht wiederholt anwenden – ein zeitaufwendiges Unterfangen. In diesem Artikel zeigen wir Ihnen zwei effiziente Methoden, mit denen Sie sämtliche Anhänge aus mehreren E-Mails problemlos und gebündelt in einen bestimmten Ordner speichern können.

Speichern Sie alle Anhänge aus mehreren E-Mails mithilfe eines VBA-Codes in einen Ordner
Mehrere Klicks, um alle Anhänge aus mehreren E-Mails mit einem beeindruckenden Tool in einen Ordner zu speichern

Speichern Sie alle Anhänge aus mehreren E-Mails mithilfe eines VBA-Codes in einen Ordner

Dieser Abschnitt führt Sie Schritt für Schritt durch einen VBA-Code, mit dem Sie alle Anhänge aus mehreren E-Mails sofort in einen bestimmten Ordner speichern können. Gehen Sie dazu wie folgt vor:

1. Erstellen Sie zunächst einen Ordner auf Ihrem Computer, um die Anhänge darin zu speichern.

Wechseln Sie in den Ordner „Dokumente“ und erstellen Sie dort einen neuen Ordner namens „Anhänge“. Siehe Screenshot:

2. Wählen Sie die E-Mails aus, deren Anhänge Sie speichern möchten, und drücken Sie anschließend „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

3. Klicken Sie auf „Einfügen“ > „Modul“, um das Modulfenster zu öffnen, und fügen Sie anschließend einen der folgenden VBA-Codes in das Fenster ein.

VBA-Code 1: Gebündeltes Speichern von Anhängen aus mehreren E-Mails (gleichnamige Anhänge direkt speichern)

Hinweis: Dieser Code speichert gleichnamige Anhänge, indem er dem Dateinamen fortlaufende Ziffern wie 1, 2, 3 … hinzufügt.

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            GCount = 0
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            GFilepath = xFilePath
            xFilePath = FileRename(xFilePath)
            If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
    GCount = GCount + 1
    xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
    FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

VBA-Code 2: Gebündeltes Speichern von Anhängen aus mehreren E-Mails (auf Duplikate prüfen)

Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
Dim xYesNo As Integer
Dim xFlag As Boolean
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            xFlag = True
            If VBA.Dir(xFilePath, 16) <> Empty Then
                xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
                If xYesNo = vbNo Then xFlag = False
            End If
            If xFlag = True Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Hinweise:

1) Wenn Sie alle gleichnamigen Anhänge in einem Ordner speichern möchten, verwenden Sie bitte den oben genannten „VBA-Code 1“. Bevor Sie diesen Code ausführen, klicken Sie bitte auf „Extras“ > „Verweise“ und aktivieren Sie im Dialogfeld „Verweise – Projekt“ das Kontrollkästchen „Microsoft Scripting Runtime“.

2) Wenn Sie auf doppelte Anhangsname prüfen möchten, verwenden Sie bitte den „VBA-Code 2“. Nach Ausführung des Codes erscheint ein Dialogfeld, das Sie fragt, ob Sie die Doppelte Anhänge ersetzen möchten. Wählen Sie je nach Bedarf „Ja“ oder „Nein“.

5. Drücken Sie die Taste „F5“, um den Code auszuführen.

Anschließend werden alle Anhänge der ausgewählten E-Mails in den Ordner gespeichert, den Sie in Schritt 1 erstellt haben.

Hinweis: Möglicherweise wird ein Hinweisfenster von „Microsoft Outlook“ angezeigt. Klicken Sie in diesem Fall auf „Zulassen“, um fortzufahren.

Speichern Sie alle Anhänge aus mehreren E-Mails mit einem beeindruckenden Tool in einen Ordner

Wenn Sie neu im Umgang mit VBA sind, empfehlen wir Ihnen das praktische Hilfsprogramm „Alle Anlagen speichern“ von „Kutools für Outlook“ – damit speichern Sie alle Anhänge aus mehreren E-Mails in Outlook mit nur wenigen Klicks sofort und mühelos.

1. Wählen Sie die E-Mails aus, die die gewünschten Anhänge enthalten.

Tipp: Wählen Sie mehrere nicht zusammenhängende E-Mails aus, indem Sie die „Strg“-Taste gedrückt halten und nacheinander darauf klicken;
oder markieren Sie mehrere aufeinanderfolgende E-Mails, indem Sie die „Umschalt“-Taste gedrückt halten und die erste sowie die letzte E-Mail anklicken.

2. Klicken Sie auf „KUTOOLS PLUS“ > „Anhangswerkzeuge“ > „Alle speichern“. Siehe Screenshot:

3. Klicken Sie im Dialogfeld „Einstellungen speichern“ auf die -Schaltfläche, um den Ordner auszuwählen, in dem die Anhänge gespeichert werden sollen, und bestätigen Sie anschließend mit „OK“.

4. Klicken Sie in den beiden folgenden Dialogfeldern jeweils auf „OK“ – schon werden alle Anhänge der ausgewählten E-Mails sofort im angegebenen Ordner gespeichert.

Hinweise:

• 1. Wenn Sie Anhänge basierend auf E-Mails in verschiedenen Ordnern speichern möchten, aktivieren Sie das Kontrollkästchen „Unterordner im folgenden Stil erstellen“ und wählen Sie einen Ordnerstil aus der Dropdown-Liste aus.
• 2. Neben dem Speichern aller Anhänge können Sie diese auch gezielt anhand bestimmter Bedingungen speichern. Möchten Sie beispielsweise nur PDF-Anhänge sichern, deren Dateiname das Wort „Invoice“ enthält, klicken Sie auf „Erweiterte Optionen“, um die Filterbedingungen anzuzeigen und wie unten gezeigt einzurichten.
  
• 3. Wenn Sie Anhänge automatisch beim Eintreffen von E-Mails speichern möchten, unterstützt Sie die Anhänge automatisch speichern-Funktion dabei.
• 4. Um Anhänge direkt aus ausgewählten E-Mails zu trennen, hilft Ihnen die Alle Anhänge trennen-Funktion von „Kutools für Outlook“.

Verwandte Artikel

---

Beste Office-Produktivitätswerkzeuge

Erleben Sie das komplett neue Kutools für Outlook mit 100+ unglaublichen Funktionen!Jetzt zum Download klicken!

🤖KUTOOLS AI:Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – einschließlich Beantworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧E-Mail-Automatisierung: Automatische Antworten (verfügbar für POP und IMAP) / E-Mails zeitgesteuert versenden / Beim Senden automatisch CC/BCC basierend auf Regeln hinzufügen / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Grußformel einfügen / Mehrfachadressierte E-Mails automatisch in Einzelnachrichten aufteilen …

📨E-Mail-Verwaltung: E-Mails zurückrufen, Betrugs-E-Mails anhand von Betreffzeilen und weiteren Kriterien blockieren, doppelte E-Mails löschen, Erweiterte Suche, Ordner organisieren …

📁Anhänge Pro: Stapelweise speichern / Stapelweise lösen / Stapelweise komprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung …

🌟Oberflächenzauber:😊Noch mehr hübsche und coole Emojis/Benachrichtigung bei wichtigen eingehenden E-Mails/Outlook minimieren statt schließen...

👍Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Aktuelle Uhrzeit der Absender-Zeitzone anzeigen...

👩🏼‍🤝‍👩🏻Kontakte & Kalender:Stapelweise Kontakte aus ausgewählten E-Mails hinzufügen/Eine Kontaktgruppe in einzelne Kontakte aufteilen/Geburtstagserinnerung entfernen...

Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere Sprachen!

Kutools für Outlook mit nur einem Klick sofort freischalten! Warten Sie nicht – laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

Funktionsliste von Kutools für Outlook      Jetzt herunterladen      Zum Kauf gehen

🚀 Ein-Klick-Download – Holen Sie sich alle Office-Add-Ins

Stark empfohlen: Kutools for Office (5-in-1)

Mit einem Klick fünf Installationsprogrammegleichzeitig herunterladen –Kutools für Excel, Outlook, Word, PowerPointund Office Tab Pro.Jetzt zum Download klicken!

• ✅Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete mit nur einem Klick herunter.
• 🚀Bereit für jede Office-Aufgabe: Installieren Sie die Add-Ins, die Sie brauchen – genau dann, wenn Sie sie benötigen.
• 🧰Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools for PowerPoint

Über das Paket⬇ Das Paket herunterladen💳 Das Paket kaufen