Wie man die Verpackung öffnet .Zip Anhänge direkt in Outlook über VBA

Wenn Sie einen Anhang in „.zipWenn Sie Dateien mit der Dateiendung „.“ entpacken möchten, sollten Sie diese im Allgemeinen lokal speichern und dort entpacken. Viele Nutzer möchten sie jedoch direkt in Outlook entpacken. Dieser Artikel zeigt Ihnen, wie das mit VBA funktioniert.

Sie müssen jemals die Anhänge erhalten haben, die sich in „.zip" Dateierweiterung. Um auf die internen Dateien in einem zuzugreifen zip Um die Datei zu öffnen, müssen Sie sie zuerst entpacken. In diesem Fall müssen Sie sie, wie üblich, zuerst speichern. zip Sie können die Datei auf Ihr lokales Laufwerk kopieren, mit der rechten Maustaste darauf klicken und im Kontextmenü „Alle extrahieren“ auswählen. Viele Benutzer bevorzugen es jedoch, die Datei direkt in Outlook zu entpacken. Outlook bietet diese Funktion allerdings nicht standardmäßig. Glücklicherweise können Sie dies mithilfe von VBA ganz einfach mit den folgenden Schritten bewerkstelligen.

Entpacken Sie die .Zip Anhänge direkt in Outlook

1. Starten Sie zunächst Ihre Outlook-Anwendung.
2. Drücken Sie dann im Outlook-Fenster die Tastenkombination „Alt + F11“, um auf den VBA-Editor zuzugreifen.
3. Öffnen Sie als Nächstes im Fenster "Microsoft Visual Basic für Applikationen" ein Modul, das nicht verwendet wird.
4. Kopieren Sie anschließend die folgenden VBA-Codes und fügen Sie sie in dieses Modul ein.

Public Sub UnzipFileInOutlook()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objShell As Object
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim strFilePath As String
    Dim strFileName As String
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objAttachments = objMail.attachments
 
    'Save & Unzip the zip file in local drive
    Set objShell = CreateObject("Shell.Application")
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp" & Format(Now, "yyyy-mm-dd-hh-mm-ss")
    MkDir (strTempFolder)
 
    For Each objAttachment In objAttachments
        If Right(objAttachment.FileName, 3) = "zip" Then
           strFilePath = strTempFolder & "\" & objAttachment.FileName
           objAttachment.SaveAsFile (strFilePath)
           objShell.NameSpace((strTempFolder)).CopyHere objShell.NameSpace((strFilePath)).Items
        End If
    Next
 
    'Reattach the files extracted from the zip file
    strFileName = Dir(strTempFolder & "\")
 
    While Len(strFileName) > 0
          objMail.attachments.Add (strTempFolder & "\" & strFileName)
          strFileName = Dir
          objMail.Save
    Wend
 
    'Delete the attachments in “.zip” file extension
    Set objAttachments = objMail.attachments
    For Each objAttachment In objAttachments
        If Right(objAttachment.FileName, 3) = "zip" Then
           objAttachment.Delete
           objMail.Save
        End If
    Next
 
    'Delete the temp folder and files
    objFileSystem.DeleteFolder (strTempFolder)
End Sub

5. Danach können Sie das neue VBA-Projekt wie gewohnt zur Symbolleiste für den Schnellzugriff des Nachrichtenfensters hinzufügen.
6. Schließlich können Sie es versuchen.

• Öffnen Sie zunächst eine Nachricht mit zip Datei in einem eigenen Fenster.
• Klicken Sie dann auf "Aktionen"> "Nachricht bearbeiten".
• Klicken Sie anschließend in der Symbolleiste für den Schnellzugriff auf die neue Makroschaltfläche.
• Sofort die zip Die Datei wird entpackt, wie im folgenden Screenshot dargestellt:

Befreien Sie sich von lästigen PST-Problemen

Obwohl die PST-Datei im neuen Unicode-Format eine Dateigröße von 20 GB unterstützt, ist es dennoch ratsam, die Datei so klein wie möglich zu halten. Dies liegt daran, dass eine große PST-Datei viel anfälliger für Beschädigungen ist. Sobald Ihre PST-Datei kompromittiert ist, müssen Sie sich darum bemühen PST wiederherstellen Daten. In diesem Szenario haben Sie keine andere Wahl, als zu einem bewährten und seriösen Tool wie zurückzukehren DataNumen Outlook Repair.

Einführung des Autors:

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