Anhänge aus vielen E-Mails gleichzeitig in Outlook speichern?

Jemand hat mir über Nacht 200 E-Mails mit jeweils einem Dateianhang geschickt. Seufzer

Ich erwarte weitere 200 pro Nacht für die nächsten drei Nächte (die E-Mails kommen von einem Server, daher ist es nicht möglich, sie zum Stapeln aufzufordern).

Die Dateianhänge haben eindeutige Dateinamen. Gibt es also eine einfache Möglichkeit, die Anhänge aus der gesamten Gruppe von E-Mails gleichzeitig zu speichern?

Ich würde es hassen, jede E-Mail einzeln öffnen zu müssen, mit der rechten Maustaste zu klicken, zu speichern, zu spülen, zu wiederholen ...

Ich spreche fließend VBA und bin mit dem Erstellen von Excel-Makros sehr vertraut. Daher kann ich mir vorstellen, dass es relativ einfach sein sollte, einen bestimmten Ordner für alle Nachrichten zu durchsuchen und Anhänge für jede Nachricht zu speichern die Objekthierarchie.

OutlookAttachView von NirSoft erledigt dies problemlos, sogar von der Befehlszeile aus!

OutlookAttachView durchsucht alle in Outlook gespeicherten Nachrichten und zeigt die Liste aller angehängten Dateien an, die es findet. Sie können ganz einfach einen oder mehrere Anhänge auswählen und alle im gewünschten Ordner speichern. Außerdem können Sie unerwünschte große Anhänge löschen, die zu viel Speicherplatz in Ihrer Mailbox beanspruchen. Sie können die Liste der Anhänge auch in der Datei xml / html / text / csv speichern.

OutlookAttachView ist Freeware.

Outlook-Add-In zum Entfernen von Anhängen :

Kostenloses Outlook-Add-In zum Speichern und Extrahieren von Anhängen, um die Größe Ihrer Outlook-Dateien zu verringern. Einfach zu verwenden. Viele Funktionen.

Hier sind einige weitere Optionen.

Sue Moshers Website http://slipstick.com ist eine fantastische Ressource für Outlook. Sie ist auch eine Microsoft MVP.

Für Sie Codierer da draußen: Speichern Sie Anhänge auf der Festplatte und alternativ Speichern und Öffnen Sie einen Anhang mit VBA .

Der folgende Code funktioniert in Outlook 2000 und höher. Es speichert die Anhänge von ausgewählten Nachrichten, löscht jedoch nicht die Anhänge von den Nachrichten.

…

Kopieren Sie den Code von dieser Seite und fügen Sie ihn in Ihr ThisOutlookSession-Projekt ein.

Drücken Sie in Outlook Alt + F11, um den VBA-Editor zu öffnen, und erweitern Sie Microsoft Outlook-Objekte. Doppelklicken Sie dann auf ThisOutlookSession, um ihn im Bearbeitungsbereich zu öffnen, und Strg + V, um den Code einzufügen.

Um es zu verwenden, müssen Sie zuerst einen Ordner unter "Eigene Dateien" mit dem Namen "OLAttachments" erstellen (der Code erstellt ihn nicht für Sie). Wählen Sie dann eine oder mehrere Nachrichten aus und führen Sie das Makro aus, um die Anhänge zu speichern. Sie müssen die Makrosicherheit so einstellen, dass eine Warnung angezeigt wird, bevor Sie Makros aktivieren oder das Makro signieren. Sie können den Ordnernamen oder den Pfad ändern, in dem die Anhänge gespeichert werden, indem Sie den Code bearbeiten.

Public Sub SaveAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem 'Object
Dim objAttachments As Outlook.Attachments
Dim objSelection As Outlook.Selection
Dim i As Long
Dim lngCount As Long
Dim strFile As String
Dim strFolderpath As String
Dim strDeletedFiles As String

    ' Get the path to your My Documents folder
    strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next

    ' Instantiate an Outlook Application object.
    Set objOL = CreateObject("Outlook.Application")

    ' Get the collection of selected objects.
    Set objSelection = objOL.ActiveExplorer.Selection

' The attachment folder needs to exist
' You can change this to another folder name of your choice

    ' Set the Attachment folder.
    strFolderpath = strFolderpath & "\OLAttachments\"

    ' Check each selected item for attachments. 
    For Each objMsg In objSelection

    Set objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count

    If lngCount > 0 Then

    ' Use a count down loop for removing items
    ' from a collection. Otherwise, the loop counter gets
    ' confused and only every other item is removed.

    For i = lngCount To 1 Step -1

    ' Get the file name.
    strFile = objAttachments.Item(i).FileName

    ' Combine with the path to the Temp folder.
    strFile = strFolderpath & strFile

    ' Save the attachment as a file.
    objAttachments.Item(i).SaveAsFile strFile

    Next i
    End If

    Next

ExitSub:

Set objAttachments = Nothing
Set objMsg = Nothing
Set objSelection = Nothing
Set objOL = Nothing
End Sub

Und wenn Sie nicht programmieren möchten: Attachment Management Tools für Outlook

Nachdem ich mit E-Mails von einer Person bombardiert wurde , die dachten , es war schön , mich in 30 Mails ein geteiltes RAR - Datei zu senden, habe ich erfolgreich verwendet diese VBA - Skript veröffentlicht von Microsoft genannt mAttachmentSaver.

Zuerst müssen Sie das Archiv mit dem Skript herunterladen .

Es ist wichtig, dass Makros aktiviert sind. In Outlook 2010 können Sie dies tun, indem Sie zu Datei »Optionen» Vertrauensstellungscenter »Einstellungen für das Vertrauensstellungscenter» Makroeinstellungen »Alle Makros aktivieren» OK »OK gehen . Dann müssen Sie Outlook neu starten. Bei früheren Versionen finden Sie diese unter Extras »Makro» Sicherheit… .

Führen Sie dann die im TechCenter-Artikel beschriebenen Schritte aus:

• Drücken Sie Alt+F11, um die VBE in Outlook zu öffnen.

• Ziehen Sie die mAttachmentSaver.basDatei in den Projekt-Explorer (drücken Ctrl+RSie, wenn Sie sie nicht sehen können) oder über Datei >> Datei importieren ... ( Ctrl+M).

  Führen Sie den ExecuteSavingMakro aus, um Anlagen zu speichern.

• Kehren Sie zur Outlook-Benutzeroberfläche zurück, und drücken Sie Alt+F8, um das Makrofenster zu öffnen.

• Wählen Sie ExecuteSavingin der Namensliste und klicken Sie dann auf die Schaltfläche Ausführen (Denken Sie daran, Outlook-Elemente auszuwählen, bevor Sie dieses Makro ausführen).

• Wählen Sie im Dialogfeld Nach Ordner suchen einen bestimmten Ordner aus, um Anhänge zu speichern , und klicken Sie dann auf die Schaltfläche OK .