Wie speichert man nur bestimmte Excel-Anhänge aus Outlook?

Outlook bietet die praktische Funktion „Alle Anhänge speichern“, mit der Sie sämtliche Anhänge einer E-Mail auf einmal in einen bestimmten Ordner ablegen können. Doch was, wenn Sie nur bestimmte Dateitypen – etwa Excel-Arbeitsmappen oder Word-Dokumente – aus einer oder mehreren E-Mails speichern möchten? In diesem Tutorial zeigen wir Ihnen zwei effiziente Methoden, um genau das zu erreichen.

Speichern Sie nur bestimmte Dateityp-Anhänge in Outlook mithilfe von VBA-Code
Speichern Sie nur bestimmte Dateityp-Anhänge in Outlook ganz einfach mit einem leistungsstarken Tool

Speichern Sie nur bestimmte Dateityp-Anhänge in Outlook mithilfe von VBA-Code

Der folgende VBA-Code ermöglicht es Ihnen, gezielt Anhänge bestimmter Dateitypen aus einer oder mehreren ausgewählten E-Mails in einen festgelegten Ordner zu speichern. Gehen Sie dazu wie folgt vor:

1. Starten Sie Outlook. Wählen Sie in der E-Mail-Liste eine oder mehrere E-Mails aus, aus denen Sie ausschließlich Anhänge eines bestimmten Dateityps speichern möchten.

2. Drücken Sie „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen. Klicken Sie im geöffneten Fenster auf „Einfügen“ > „Modul“ und fügen Sie anschließend den folgenden VBA-Code in das Modulfenster ein.

VBA-Code: Speichern Sie nur bestimmte Anhänge aus einer oder mehreren E-Mails in einen Ordner

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "" & "" & xFilePath & ""
                End If
            End If
        Next
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. Klicken Sie auf „Extras“ > „Verweise“. Aktivieren Sie im Dialogfeld „Verweise – Projekt“ das Kontrollkästchen „Microsoft Scripting Runtime“ und bestätigen Sie mit „OK“.

4. Drücken Sie die Taste „F5“, um den Code auszuführen. Wählen Sie im erscheinenden Dialogfeld „Ordner durchsuchen“ einen Ordner aus, in dem die Anhänge gespeichert werden sollen.

5. Klicken Sie anschließend auf „OK“. Geben Sie im daraufhin erscheinenden Dialogfeld „Kutools für Outlook“ die Dateierweiterung des Anhangs, den Sie speichern möchten, in das Textfeld ein und bestätigen Sie mit „OK“.

Hinweis: Trennen Sie mehrere Dateierweiterungen durch Kommas.

Anschließend werden ausschließlich die angegebenen Anhänge gespeichert.

Speichern Sie nur bestimmte Dateityp-Anhänge in Outlook ganz einfach mit einem leistungsstarken Tool

Wenn Sie neu im Umgang mit VBA sind, empfehlen wir Ihnen die Nutzung der Alle Anhänge speichern-Funktion von „Kutools für Outlook“. Mit ihr speichern Sie ganz einfach nur Anhänge eines bestimmten Dateityps in Outlook.

1. Wählen Sie die E-Mails aus, aus denen Sie ausschließlich Anhänge eines bestimmten Dateityps speichern möchten.

2. Klicken Sie auf „Kutools“ > „Anhangswerkzeuge“ > „Alle speichern“.

3. Konfigurieren Sie im Dialogfeld „Einstellungen speichern“ Folgendes:

3,1) Klicken Sie im Abschnitt „Anhänge in diesem Ordner speichern“ auf die -Schaltfläche, um Ordner auswählen, um die Anhänge zu speichern;

3,2) Klicken Sie auf die Schaltfläche „Erweiterte Optionen“, um das Dialogfeld zu erweitern;

3,3) Aktivieren Sie im Abschnitt „Filterbedingungen“ das Kontrollkästchen „Anhangstyp ist“ und geben Sie anschließend die Dateierweiterung der zu speichernden Anhänge in das Textfeld ein.

Tipps: Bei mehreren Dateierweiterungen müssen Sie diese durch Semikolons trennen.

3,4) Klicken Sie auf „OK“. Siehe Screenshot:

4. Ein Dialogfeld erscheint und fragt, ob Sie die Anhänge speichern möchten. Klicken Sie auf „OK“, um fortzufahren.

5. Anschließend erscheint ein weiteres Dialogfeld, das Ihnen mitteilt, wie viele Anhänge gespeichert wurden – klicken Sie einfach auf „OK“.

Nun werden ausschließlich Anhänge des jeweiligen Dateityps gespeichert.

Verwandte Artikel:

• Wie speichert man alle Anhänge aus E-Mail-Nachrichten in Outlook?
• Wie entfernt man alle Anhänge aus einer E-Mail in Outlook?

---

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