2 Methoden zum Stapeln Öffnen aller Anhänge in Ihrer Outlook-E-Mail

Wenn Sie eine E-Mail erhalten, an die mehrere Anhänge angehängt sind, können Sie manchmal hoffen, sie in großen Mengen zu öffnen. In diesem Artikel wird dieses Problem behandelt und es werden zwei Ansätze vorgestellt, um es zu erhalten.

Sie müssen jemals eine solche E-Mail erhalten haben, die mehrere Anhänge enthält. Es ist ziemlich einfach, einen der Anhänge zu öffnen, indem Sie einfach darauf doppelklicken. Aber wenn Sie schnell alle Anhänge im Stapel öffnen möchten, wie können Sie es bekommen? Es ist offensichtlich, dass Outlook uns eine solche Funktion nicht bietet. Daher müssen Sie andere Mittel suchen. Das Folgende sind 2 Tipps.

Methode 1: Alle Anhänge stapelweise über Alle Anhänge speichern öffnen

Wenn sich die Anhänge im selben Dateityp befinden, können Sie folgende Methode verwenden:

1. Wählen Sie zunächst eine E-Mail-Adresse aus.
2. Stellen Sie dann einen Anhang im Lesebereich auf.
3. Als nächstes können Sie im sichtbaren Menüband "Anhänge" die Schaltfläche "Alle Anhänge speichern" suchen und darauf klicken.
4. Klicken Sie anschließend im kleinen Popup-Dialogfeld auf "OK".
5. Wählen Sie im folgenden Dialogfeld "Alle Anhänge speichern" einen Zielordner zum Speichern aus und klicken Sie auf "OK".
6. Schließlich können Sie den ausgewählten Ordner öffnen.

• Drücken Sie „Strg + A“, um alle gespeicherten Anhänge auszuwählen.
• Dann klicken Sie mit der rechten Maustaste darauf.
• Im Kontextmenü können Sie die Option „Öffnen“ auswählen.

Die oben beschriebene Methode ist nur anwendbar, wenn alle Anhänge vom gleichen Dateityp sind. Andernfalls können Sie die folgenden Möglichkeiten nutzen.

Methode 2: Batch Open Alle Anhänge über Outlook VBA

Die Methode funktioniert effektiv, wenn die Anhänge in gängigen Dateitypen vorliegen - ".docx", ".doc", ".txt", ".xlsx", "xls", ".jpg", ".png", "jpeg" ”.

1. Drücken Sie zunächst die Tasten „Alt + F11“.
2. Dann gelangen Sie in das VBA-Editorfenster.
3. Jetzt müssen Sie ein Modul öffnen, das nicht verwendet wird.
4. Kopieren Sie anschließend die folgenden VBA-Codes und fügen Sie sie ein.

Sub OpenAllAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim objTempFolder As Object
    Dim strFile As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objWordRange As Word.Range
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim objExcelRange As Excel.Range
 
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    Set objAttachments = objMail.attachments
 
    If objAttachments.Count > 0 Then
       For Each objAttachment In objAttachments
           'Save the attachments to Temp folder
           Set objFileSystem = CreateObject("Scripting.FileSystemObject")
           Set objTempFolder = objFileSystem.GetSpecialFolder(2)
           strFile = objTempFolder.Path & "\" & objAttachment.DisplayName
           objAttachment.SaveAsFile strFile
 
           'Batch open all the attached Word documents and Text Files
           If InStr(LCase(strFile), "docx") > 0 Or InStr(LCase(strFile), "doc") > 0 Or InStr(LCase(strFile), "txt") > 0 Then
              Set objWordApp = CreateObject("Word.Application")
              Set objWordDocument = objWordApp.Documents.Open(strFile)
              objWordDocument.Activate
              Set objWordRange = objWordDocument.Range(0, 0)
              objWordApp.Visible = True
              objWordDocument.ActiveWindow.Visible = True
           End If
 
          'Batch open all the attached Excel workbooks
          If InStr(LCase(strFile), "xlsx") > 0 Or InStr(LCase(strFile), "xls") > 0 Then
             Set objExcelApp = CreateObject("Excel.Application")
             Set objExcelWorkbook = objExcelApp.Workbooks.Open(strFile)
             Set objExcelWorkSheet = objExcelWorkbook.Sheets(1)
             objExcelWorkSheet.Activate
             Set objExcelRange = objExcelWorkSheet.Range("A1")
             objExcelRange.Activate
             objExcelApp.Visible = True
          End If
 
          'Batch open all the attached pictures via Windows image view
          If InStr(LCase(strFile), "jpg") > 0 Or InStr(LCase(strFile), "png") > 0 Or InStr(LCase(strFile), "jpeg") > 0 Then
             Shell "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & strFile
          End If
       Next
    End If
End Sub

5. Danach können Sie den VBA-Editor schließen und das Makro zur Symbolleiste für den Schnellzugriff hinzufügen.
6. Endlich können Sie es versuchen.

• Wählen Sie zunächst eine E-Mail aus.
• Klicken Sie dann in der Symbolleiste für den Schnellzugriff auf die Makro-Schaltfläche.
• Sofort werden alle Anhänge in der ausgewählten E-Mail im Stapel geöffnet, wie im folgenden Screenshot dargestellt:

Schützen Sie Ihre PST-Daten effektiv

Da Outlook PST für verschiedene Faktoren anfällig ist, sollten Sie große Anstrengungen unternehmen, um eine Beschädigung zu verhindern. Andernfalls, sobald Ihr PST beschädigt ist, zu PST reparieren wird eine sehr mühsame Aufgabe sein. Scanpst.exe hilft in einem solchen Fall nicht. Ihr einziger Ausweg besteht also darin, ein wirksames externes Werkzeug anzuwenden, wie z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich beschädigtes mdf und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX