Wie speichere ich alle Anhänge aus mehreren E-Mails in einem Ordner in Outlook?

Mit der integrierten Funktion Alle Anhänge speichern in Outlook können Sie alle Anhänge einfach aus einer E-Mail speichern. Wenn Sie jedoch alle Anhänge aus mehreren E-Mails gleichzeitig speichern möchten, kann keine direkte Funktion helfen. Sie müssen die Funktion Alle Anhänge speichern in jeder E-Mail wiederholt anwenden, bis alle Anhänge aus diesen E-Mails gespeichert sind. Das ist zeitaufwändig. In diesem Artikel stellen wir Ihnen zwei Methoden vor, mit denen Sie alle Anhänge aus mehreren E-Mails in Outlook problemlos in einem bestimmten Ordner speichern können.

Speichern Sie alle Anhänge aus mehreren E-Mails in einem Ordner mit VBA-Code
Mehrere Klicks, um alle Anhänge aus mehreren E-Mails mit einem erstaunlichen Tool in einem Ordner zu speichern

Speichern Sie alle Anhänge aus mehreren E-Mails in einem Ordner mit VBA-Code

Dieser Abschnitt zeigt einen VBA-Code in einer Schritt-für-Schritt-Anleitung, mit der Sie schnell alle Anhänge aus mehreren E-Mails gleichzeitig in einem bestimmten Ordner speichern können. Bitte gehen Sie wie folgt vor.

1. Zunächst müssen Sie einen Ordner zum Speichern der Anhänge auf Ihrem Computer erstellen.

Holen Sie sich in der Dokumente Ordner und erstellen Sie einen Ordner mit dem Namen "Anhänge". Screenshot:

2. Wählen Sie die E-Mails aus, deren Anhänge Sie speichern möchten, und drücken Sie dann Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

3 Klicken Insert > Modul öffnen Modul Fenster, und kopieren Sie dann einen der folgenden VBA-Codes in das Fenster.

VBA-Code 1: Massenspeicheranhänge aus mehreren E-Mails (genau gleichnamige Anhänge direkt speichern)

Tips: Dieser Code speichert genau die gleichen Namensanhänge, indem die Ziffern 1, 2, 3 ... nach den Dateinamen hinzugefügt werden.

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: Massenspeicheranhänge 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

Notizen:

5. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes.

Dann werden alle Anhänge in ausgewählten E-Mails in dem Ordner gespeichert, den Sie in Schritt 1 erstellt haben. 

Anmerkungen: Möglicherweise gibt es eine Microsoft Outlook Wenn Sie dazu aufgefordert werden, klicken Sie auf Erlauben Taste, um fortzufahren.

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

Wenn Sie ein Neuling in VBA sind, empfehlen wir Ihnen hier die Alle Anhänge speichern Nutzen von Kutools für Outook für dich. Mit diesem Dienstprogramm können Sie schnell alle Anhänge aus mehreren E-Mails gleichzeitig mit mehreren Klicks nur in Outlook speichern.
Bevor Sie die Funktion anwenden, bitte Laden Sie zuerst Kutools für Outlook herunter und installieren Sie es.

1. Wählen Sie die E-Mails mit den Anhängen aus, die Sie speichern möchten.

Tipps: Sie können mehrere nicht benachbarte E-Mails auswählen, indem Sie die Taste gedrückt halten Ctrl Taste und wählen Sie sie einzeln aus;
Oder wählen Sie mehrere benachbarte E-Mails aus, indem Sie die Taste gedrückt halten Shift Geben Sie die erste und die letzte E-Mail ein.

2 Klicken Kutoolen >Anbaugeräte > Save All. Siehe Screenshot:

3. In dem Einstellungen speichern Klicken Sie auf das Dialogfeld Klicken Sie auf die Schaltfläche, um einen Ordner zum Speichern der Anhänge auszuwählen, und klicken Sie dann auf OK .

3 Klicken OK zweimal im nächsten Dialogfeld, dann werden alle Anhänge in ausgewählten E-Mails gleichzeitig in einem bestimmten Ordner gespeichert.

Anmerkungen:

• 1. Wenn Sie Anhänge basierend auf E-Mails in verschiedenen Ordnern speichern möchten, überprüfen Sie bitte die Erstellen Sie Unterordner im folgenden Stil und wählen Sie einen Ordnerstil aus der Dropdown-Liste.
• 2. Neben dem Speichern aller Anhänge können Sie Anhänge unter bestimmten Bedingungen speichern. Wenn Sie beispielsweise nur die PDF-Dateianhänge speichern möchten, deren Dateiname das Wort "Rechnung" enthält, klicken Sie auf Erweiterte Optionen Klicken Sie auf die Schaltfläche, um die Bedingungen zu erweitern, und konfigurieren Sie sie dann wie unten gezeigt.
  
• 3. Wenn Sie Anhänge beim Eintreffen von E-Mails automatisch speichern möchten, klicken Sie auf Anhänge automatisch speichern Funktion kann helfen.
• 4. Um die Anhänge direkt von ausgewählten E-Mails zu trennen, klicken Sie auf Alle Anhänge abnehmen Merkmal von Kutools for Outlook kann dir einen Gefallen tun.

In Verbindung stehende Artikel

---

Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge Pro: Batch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

Weiterlesen       Free Download      Bezug von MarvelClient