KutoolsforOffice — Eine Lösung, fünf leistungsstarke Tools.Mehr erreichen mit weniger Aufwand.März-Aktion: 20 % Rabatt

Wie speichert man Anhänge, ohne die E-Mail in Outlook öffnen zu müssen?

AutorSiluvia Änderungsdatum

Möglicherweise müssen Sie regelmäßig Anhänge aus empfangenen E-Mails auf Ihre Festplatte speichern. Es ist einfach, einen oder alle Anhänge einer E-Mail-Nachricht zu speichern – doch wie speichert man Anhänge aus mehreren E-Mails gleichzeitig? Normalerweise müssten Sie dazu wiederholt die E-Mails öffnen und die Anhänge einzeln speichern. Gibt es Möglichkeiten, diese sich wiederholenden Arbeitsschritte zu vermeiden? Die Methoden in dieser Anleitung können Ihnen dabei helfen.

Speichern Sie Anhänge aus einer oder mehreren E-Mails, ohne diese zu öffnen – mithilfe eines VBA-Codes
Speichern Sie Anhänge aus einer oder mehreren E-Mails, ohne diese zu öffnen – mit einem leistungsstarken Tool

Speichern Sie Anhänge aus einer oder mehreren E-Mails, ohne diese zu öffnen – mithilfe eines VBA-Codes

Der folgende VBA-Code ermöglicht es Ihnen, Anhänge aus einer oder mehreren E-Mails gleichzeitig zu speichern – ganz ohne die E-Mails in Outlook öffnen zu müssen. Gehen Sie dazu wie folgt vor:

1. Wählen Sie eine oder mehrere E-Mails aus, deren Anhänge Sie speichern möchten, und drücken Sie die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Erweitern Sie den Ordner Microsoft Outlook-Objekte, doppelklicken Sie auf ThisOutlookSession, um das Code-Fenster zu öffnen, und fügen Sie anschließend den unten stehenden VBA-Code dort ein.

Anhänge mit VBA speichern 1

VBA-Code: Anhänge speichern, ohne die E-Mails zu öffnen

Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xSavePath = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
    Set xAttachments = xMailItem.Attachments
    xCount = xAttachments.Count
    xOriginalFiles = ""
    If xCount > 0 Then
        For i = xCount To 1 Step -1
            Set xAttachment = xAttachments.Item(i)
            If IsEmbeddedAttachment(xAttachment) = False Then
                xFileName = xSavePath & xAttachment.FileName
                xAttachment.SaveAsFile xFileName
                xAttachment.Delete
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
                Else
                    xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
                End If
            End If
        Next i
        If xMailItem.BodyFormat <> olFormatHTML Then
            xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
        Else
            xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
        End If
        xMailItem.Save
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

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

4. Drücken Sie die Taste F5, um den Code auszuführen. Daraufhin erscheint ein Ordner durchsuchen-Dialogfenster. Wählen Sie einen Ordner zum Speichern der Anhänge aus und klicken Sie anschließend auf die Schaltfläche OK.

Anschließend werden alle Anhänge der ausgewählten E-Mails umgehend im gewählten Ordner gespeichert.

Hinweis: Alle Anhänge werden von den E-Mails getrennt, und die entsprechenden Speicherpfadlinks bleiben im Nachrichtentext erhalten.

Anhänge mit VBA speichern 2

Speichern Sie Anhänge aus einer oder mehreren E-Mails, ohne diese zu öffnen – mit einem leistungsstarken Tool

Wenn Sie neu im Umgang mit VBA sind, ist die Methode in diesem Abschnitt ideal für Sie.

Hier empfehlen wir Ihnen das Hilfsprogramm Alle Anhänge speichern aus dem Kutools für Outlook. Wenn Sie lediglich die Anhänge speichern möchten, ohne sie von den ausgewählten E-Mails zu trennen, unterstützt Sie die Funktion „Alle Anhänge speichern“ dabei. Gehen Sie wie folgt vor.
Bevor Sie Kutools für Outlook verwenden, laden Sie es bitte herunter und installieren es zunächst.

Schluss mit Ineffizienz in Outlook! Kutools für Outlook macht die stapelweise E-Mail-Verarbeitung kinderleicht – jetzt mit einer 30-tägigen kostenlosen Testversion!Laden Sie Kutools für Outlook jetzt herunter!!

1. Wählen Sie die E-Mails mit den zu speichernden Anhängen aus, und klicken Sie auf KUTOOLS PLUS > Anhangswerkzeuge > Alle speichern.

2. Führen Sie im Dialogfeld Einstellungen speichern folgende Schritte aus:

  • 2,1) Wählen Sie im Abschnitt Anhänge in diesem Ordner speicherneinen Ordner aus, in dem die Anhänge gespeichert werden sollen;
  • 2,2) Das Feld Anhänge mit dem folgenden Stil speichern ist optional, damit Sie einen Unterordner nach einem bestimmten Schema erstellen oder die gespeicherten Anhänge entsprechend umbenennen können.
  • 2,3) Klicken Sie auf OK, um mit dem Speichern aller Anhänge aus den ausgewählten E-Mails zu beginnen.

Tipps: Mit den oben genannten Einstellungen werden alle Anhänge im angegebenen Ordner gespeichert. Möchten Sie hingegen nur bestimmte Anhänge speichern – beispielsweise ausschließlich PDF-Dateien, die das Wort „invoice“ im Dateinamen enthalten –, können Sie Filterbedingungen wie folgt konfigurieren.

  • Klicken Sie auf die Schaltfläche Erweiterte Optionen, um die Filterbedingungenzu erweitern;
  • Geben Sie die Bedingungen entsprechend Ihren Anforderungen an.
    Tipps: Hier aktiviere ich das Kontrollkästchen Anhangsname enthält und gebe dann „invoice“ in das Textfeld ein. Anschließend aktiviere ich das Kontrollkästchen Anhangstyp ist und trage „.pdf“ in das Textfeld ein.
Anhänge mit Kutools speichern 2

3. Klicken Sie im nächsten erscheinenden Dialogfeld auf Ja, um fortzufahren.

Anschließend werden die Anhänge der ausgewählten E-Mails umgehend im festgelegten Ordner gespeichert.

Tipp: Um Anhänge von ausgewählten E-Mails zu trennen und im Nachrichtentext nur noch Hyperlinks zu den Anhängen zu belassen, verwenden Sie einfach die Funktion Alle Anhänge trennen.

Verwandte Artikel

Anhänge automatisch aus Outlook in einen bestimmten Ordner herunterladen/speichern
Normalerweise speichern Sie alle Anhänge einer E-Mail in Outlook, indem Sie auf „Anhänge > Alle Anhänge speichern“ klicken. Doch was, wenn Sie sämtliche Anhänge aus allen empfangenen und eingehenden E-Mails automatisch in einem bestimmten Ordner sichern möchten? Dieser Artikel stellt zwei Methoden vor, mit denen Sie genau das erreichen.

Anhänge beim Antworten in Outlook behalten
Beim Weiterleiten einer E-Mail-Nachricht in Microsoft Outlook bleiben die ursprünglichen Anhänge automatisch erhalten. Beim Antworten hingegen fügt Outlook die Anhänge der Originalnachricht nicht automatisch in Ihre Antwort ein. In diesem Artikel zeigen wir Ihnen praktische Tricks, mit denen Sie beim Antworten in Microsoft Outlook die ursprünglichen Anhänge problemlos beibehalten können.

Suchbegriffe innerhalb von Anhängen (Inhalt) in Outlook finden
Wenn Sie ein Stichwort in das Sofortsuchfeld in Outlook eingeben, durchsucht Outlook automatisch Betreff, Nachrichtentext, Anhänge und mehr nach diesem Begriff. Doch wie finden Sie das Stichwort gezielt nur im Inhalt der Anhänge? Dieser Artikel zeigt Ihnen Schritt für Schritt, wie Sie Suchbegriffe problemlos direkt im Inhalt von Anhängen in Outlook finden.