Wie speichere ich Anhänge, ohne die E-Mail in Outlook zu öffnen?

Möglicherweise müssen Sie häufig Anhänge aus den empfangenen E-Mails auf Ihren Computer-Discs speichern. Es ist einfach, einen Anhang oder alle Anhänge aus einer E-Mail-Nachricht zu speichern. Wie kann man jedoch Anhänge aus mehreren E-Mails gleichzeitig speichern? Normalerweise müssen Sie die E-Mails wiederholt öffnen und die Anhänge speichern. Gibt es irgendwelche Tricks, um die wiederholten Operationen loszuwerden? Hier können Ihnen die Methoden in diesem Tutorial helfen.

Speichern Sie Anhänge aus einer oder mehreren E-Mails, ohne sie mit VBA-Code zu öffnen
Speichern Sie Anhänge aus einer oder mehreren E-Mails, ohne sie mit einem erstaunlichen Tool öffnen zu müssen

Speichern Sie Anhänge aus einer oder mehreren E-Mails, ohne sie mit VBA-Code zu öffnen

Der folgende VBA-Code kann dazu beitragen, Anhänge aus einer oder mehreren E-Mails gleichzeitig zu speichern, ohne die E-Mails in Outlook zu öffnen. Bitte gehen Sie wie folgt vor.

1. Wählen Sie eine E-Mail oder mehrere E-Mails aus, in denen Sie die Anhänge speichern möchten, und drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Erweitere das Microsoft Outlook-Objekte Doppelklicken Sie auf den Ordner DieseOutlookSession öffnen Code Fenster, und kopieren Sie dann den folgenden VBA-Code in das it.

VBA-Code: Speichern Sie Anhänge, 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 Schlüssel zum Ausführen des Codes. Dann ein BrowseForFolder Das Fenster wird geöffnet. Wählen Sie einen Ordner aus, um die Anhänge zu speichern, und klicken Sie dann auf OK .

Anschließend werden alle Anhänge in ausgewählten E-Mails sofort im ausgewählten Ordner gespeichert.

Hinweis: Alle Anhänge werden von den E-Mails getrennt und behalten die entsprechenden Links zum Speicherpfad im E-Mail-Text.

Speichern Sie Anhänge aus einer oder mehreren E-Mails, ohne sie mit einem erstaunlichen Tool öffnen zu müssen

Wenn Sie ein Neuling in VBA sind, ist die Methode in diesem Abschnitt Ihre gute Wahl.

Hier empfehlen die Alle Anhänge speichern Dienstprogramme von Kutools for Outlook für dich. Wenn Sie die Anhänge nur speichern möchten, ohne sie von ausgewählten E-Mails zu trennen, können Sie mit der Funktion Alle Anhänge speichern auf einfache Weise die Erstellung durchführen. Bitte gehen Sie wie folgt vor.
Bevor Sie Kutools für Outlook anwenden, bitte Laden Sie es herunter und installieren Sie es zuerst.

1. Wählen Sie die E-Mails mit den zu speichernden Anhängen aus und klicken Sie auf Kutoolen > Anbaugeräte > Save All.

2. In dem Einstellungen speichern Dialogfeld müssen Sie:

2.1) In der Speichern Sie die Anhänge in diesem Ordner Wählen Sie in diesem Abschnitt einen Ordner aus, in dem die Anhänge gespeichert werden sollen.
2.2) Die Speichern Sie die Anhänge im folgenden Stil Das Feld ist optional, damit Sie einen Unterordner im Certian-Stil erstellen können, um die Anhänge zu speichern, oder die gespeicherten Anhänge im Certian-Stil umbenennen können.
2.3) Klicken Sie auf OK um alle Anhänge aus ausgewählten E-Mails zu speichern.

Tips: Mit den oben genannten Konfigurationen werden alle Anhänge im angegebenen Ordner gespeichert. Wenn Sie nur einige Certian-Anhänge speichern möchten, z. B. nur die PDF-Dateien mit dem Certian-Wort "Rechnung" im Dateinamen speichern möchten, können Sie die Filterbedingungen wie folgt konfigurieren.

Klicken Sie auf die Erweiterte Optionen Schaltfläche zum Erweitern der Filterbedingungs;
Geben Sie die Bedingungen entsprechend Ihren Anforderungen an.
Tipps: Hier überprüfe ich die Name des Anhangs enthält Feld und geben Sie dann "Rechnung" in das Textfeld ein, dann aktivieren Sie das Kontrollkästchen Art des Anhangs Geben Sie im Feld ".pdf" in das Textfeld ein.

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

Anschließend werden Anhänge in ausgewählten E-Mails sofort im angegebenen Ordner gespeichert.

Tips: Um Anhänge von ausgewählten E-Mails zu trennen und nur die Anhang-Hyperlinks im E-Mail-Text zu belassen, wird die Alle Anhänge abnehmen Funktion kann helfen.

Wenn Sie eine kostenlose Testversion (60 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.

In Verbindung stehende Artikel

Laden Sie Anhänge automatisch aus Outlook in einen bestimmten Ordner herunter bzw. speichern Sie sie
Im Allgemeinen können Sie alle Anhänge einer E-Mail speichern, indem Sie in Outlook auf Anhänge> Alle Anhänge speichern klicken. Aber wenn Sie alle Anhänge aus allen empfangenen und empfangenen E-Mails speichern müssen, ist dies ideal? In diesem Artikel werden zwei Lösungen vorgestellt, mit denen Anhänge automatisch aus Outlook in einen bestimmten Ordner heruntergeladen werden können.

Behalten Sie Anhänge bei, wenn Sie in Outlook antworten
Wenn wir eine E-Mail-Nachricht in Microsoft Outlook weiterleiten, bleiben die ursprünglichen Anhänge in dieser E-Mail-Nachricht in der weitergeleiteten Nachricht erhalten. Wenn wir jedoch eine E-Mail-Nachricht beantworten, werden die ursprünglichen Anhänge nicht an die neue Antwortnachricht angehängt. Hier werden einige Tricks zum Beibehalten der ursprünglichen Anhänge beim Antworten in Microsoft Outlook vorgestellt.

Suchen Sie nach Wörtern in Anhängen (Inhalten) in Outlook
Wenn wir in Outlook ein Schlüsselwort in das Feld "Sofortige Suche" eingeben, wird das Schlüsselwort in den Betreffs, Körpern, Anhängen usw. von E-Mails gesucht. Jetzt muss ich das Schlüsselwort nur noch in Outlook in Anhangsinhalten suchen. Dieser Artikel zeigt Ihnen die detaillierten Schritte zum einfachen Suchen von Wörtern in Anhangsinhalten in Outlook.