Wenn Sie in einer Branche tätig sind, in der Sie täglich unzählige E-Mails erhalten, erhalten Sie wahrscheinlich viele E-Mails mit mehreren Anhängen. Die Verwendung einer manuellen Methode zum Extrahieren von Anhängen kann zeitaufwändig sein, wenn viele heruntergeladen werden müssen. Glücklicherweise ist es mit Microsoft Outlook einfach, mehrere E-Mail-Anhänge gleichzeitig zu speichern.
In diesem Tutorial zeigen wir Ihnen, wie Sie alle Anhänge aus Outlook herunterladen.
So laden Sie alle Microsoft Outlook-E-Mail-Anhänge auf einmal unter Windows herunter
Um alle Anhänge auf einmal mit der Windows Microsoft Outlook-App herunterzuladen, gehen Sie wie folgt vor:
So laden Sie alle Microsoft Outlook-E-Mail-Anhänge auf einmal auf den Mac herunter
So laden Sie alle Anhänge mit Outlook für Mac herunter:
So laden Sie mehrere Outlook-Anhänge aus mehreren E-Mails herunter
Es ist auch möglich, mehrere Anhänge von vielen E-Mails gleichzeitig herunterzuladen. Gehen Sie dazu wie folgt vor:
Verwenden SieVBA-Code
Wenn Sie Outlook 2019, 2016, 2013, 2010, 2007 oder 2003 verwenden, können Sie VBA-Editor verwenden, um mehrere Anhänge aus mehreren E-Mails herunterzuladen.
GCount als Ganzzahl dimmen
GFilepath als String dimmen
Public Sub SaveAttachments()
‘Update 20200821
xMailItem als Outlook.MailItem dimmen
xAttachments als Outlook.Attachments dimmen
xSelection als Outlook.Selection dimmen
Dimme ich so lange
Dimmen Sie xAttCount so lange
Dimmen Sie xFilePath als String, xFolderPath als String, xSaveFiles als String
Bei Fehler Weiter fortsetzen
xFolderPath = CreateObject(“WScript.Shell”).SpecialFolders(16)
Setzen Sie xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & „\Attachments\“
Wenn VBA.Dir(xFolderPath, vbDirectory) = vbNullString Dann
VBA.MkDir xFolderPath
Ende wenn
GFilepath = „“
Für jedes xMailItem in xSelection
Setze xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = „“
Wenn xAttCount >0, dann
Für i = xAttCount To 1 Schritt -1
GCount = 0
xFilePath = xFolderPath & xAttachments.Item(i).FileName
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
Wenn IsEmbeddedAttachment(xAttachments.Item(i)) = False, dann
xAttachments.Item(i).SaveAsFile xFilePath
Wenn xMailItem.BodyFormat <>olFormatHTML Dann
xSaveFiles = xSaveFiles & vbCrLf & „
Sonst
xSaveFiles = xSaveFiles & „
“ & „“ & xFilePath & „ “
Ende wenn
Ende wenn
Weiter i
Ende wenn
Weiter
Setze xAttachments = Nichts.
Setze xMailItem = Nothing
Setze xSelection = Nothing
Sub beenden
Funktion FileRename(FilePath As String) As String
XPath als String dimmen
xFso als FileSystemObject dimmen
Bei Fehler Weiter fortsetzen
Setzen Sie xFso = CreateObject(“Scripting.FileSystemObject”)
xPath = FilePath
FileRename = xPath
Wenn xFso.FileExists(xPath) dann
GCount = GCount + 1
xPath = xFso.GetParentFolderName(GFilepath) & „\“ & xFso.GetBaseName(GFilepath) & „“ & GCount & „.“ + xFso.GetExtensionName(GFilepath)
FileRename = FileRename(xPath)
Ende wenn
xFso = Nichts
Funktion beenden
Funktion IsEmbeddedAttachment(Als Anhang anhängen)
xItem als MailItem dimmen
xCid als String dimmen
xID als String dimmen
xHtml als String dimmen
Bei Fehler Weiter fortsetzen
IsEmbeddedAttachment = False
Setzen Sie xItem = Attach.Parent
Wenn xItem.BodyFormat <>olFormatHTML, dann Funktion beenden
xCid = „“
xCid = Attach.PropertyAccessor.GetProperty(“http://schemas.microsoft.com/mapi/proptag/0x3712001F”)
Wenn xCid <>„“ Dann
xHtml = xItem.HTMLBody
xID = „cid:“ & xCid
Wenn InStr(xHtml, xID) >0, dann
IsEmbeddedAttachment = True
Ende wenn
Ende wenn
Funktion beenden
Hinweis: Sie können Originalcode oben von Extend Office kopieren und in den Editor einfügen.
Verwenden eines externen Tools
Wenn Sie eine andere Version von Outlook verwenden, ein anderer Dateityp als PST herunterladen möchten oder die VBA-Methode umständlich finden, können Sie ein Tool herunterladen, mit dem Sie mehrere Outlook-Anhänge gleichzeitig herunterladen können.
Apps wie Outlook-Anhangsextraktor verfügen über die Funktionalität, Anhänge nicht nur aus PST-Dateien, sondern auch aus anderen Dateiformaten wie OST-, BAK-, MSG-, OLK- und OLM-Dateien zu speichern. Sie können die App auch so konfigurieren, dass Anhänge nach Dateigröße, Datum oder Absender gefiltert werden.
So laden Sie alle Anhänge aus einer beschädigten Datei herunter
Wenn Sie Dateianhänge in Outlook nicht öffnen, anzeigen oder speichern können, ist die Microsoft Outlook PST-Datei möglicherweise beschädigt. Sie können Reparieren Sie die PST-Datei den Anhang mit Tools wie der Anwendung SCANPST.exe abrufen..
Um dieses Tool zu verwenden, schließen Sie Outlook und navigieren Sie zu einem der folgenden Orte, abhängig von Ihrer Outlook-Version:
Dann doppelklicken Sie auf SCANPST.EXE.
Wählen Sie Durchsuchen, suchen Sie die Outlook-Datendatei, die Sie scannen möchten, und drücken Sie Start.
Wenn das Tool Fehler findet, wählen Sie Reparieren, um zu versuchen, sie zu beheben. Wenn Sie fertig sind, starten Sie Outlook neu und prüfen Sie, ob es jetzt funktioniert.
Optimieren Sie Ihre E-Mail-Aktivitäten
Das Herunterladen mehrerer Dateien aus Outlook ist einfach und Sie können sogar mehrere Dateien aus mehreren E-Mails gleichzeitig herunterladen. Wenn Sie die integrierten Methoden in Outlook zu schwierig finden, können Sie Tools wie Outlook-Anhangsextraktor herunterladen, die Ihnen weiterhelfen.
.