Wie man RAR-Dateien entpackt .RAR Anhänge direkt in Outlook über VBA

Im Allgemeinen, um das „.rarUm Anhänge in einer E-Mail zu extrahieren, sollten Sie diese zunächst speichern und anschließend ein spezielles Tool verwenden. Dieser Artikel beschreibt eine Methode zum direkten Entpacken in Outlook.

Outlook erlaubt keine Vorschau des „.RARAnhänge. Außerdem können Sie die „.RARAnhänge lassen sich nicht direkt in Outlook öffnen. Um einen solchen Anhang anzuzeigen, müssen Sie ihn daher zunächst auf Ihrer Festplatte speichern und anschließend die darin enthaltenen Dateien mit einem speziellen Programm wie WinRAR extrahieren. Im Folgenden stellen wir Ihnen eine Methode vor, mit der Sie Anhänge direkt in Outlook entpacken können..RARAnhänge nur in Outlook. Lesen Sie nun weiter, um die detaillierten Schritte und VBA-Codes zu erhalten.

Unrar .RAR Anhänge direkt in Outlook

1. Da diese Methode auf einem speziellen Tool – WinRAR – basiert, sollten Sie dieses zunächst auf Ihrem PC installieren und sich vergewissern, wo es eingebunden ist.
2. Dann können Sie Ihre Outlook-Anwendung wie gewohnt öffnen.
3. Drücken Sie anschließend im Outlook-Hauptfenster die Tasten „Alt + F11“.
4. Öffnen Sie anschließend im Outlook VBA-Editor ein leeres Modul.
5. Kopieren Sie anschließend den folgenden VBA-Code in dieses Modul.

Public objFileSystem As Object
Public strTempFolder As String
Public strTargetFolderPath As String
Public objAttachment As Outlook.Attachment

Sub UnRARAttachment()
    Dim objMail As Outlook.MailItem
    Dim objShell As Object
    Dim strTempFolder As String
    Dim strRARFile As String
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path
    strTargetFolderPath = strTempFolder & "\Temp " & Format(Now, "YYYY-MM-DD-hh-mm-ss")
    MkDir (strTargetFolderPath)
 
    Set objShell = CreateObject("Wscript.Shell")
 
    If objMail.attachments.Count > 0 Then
       For Each objAttachment In objMail.attachments
           If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
 
              strRARFile = strTempFolder & "\" & objAttachment.FileName
              objAttachment.SaveAsFile (strRARFile)
 
              'Change "C:\Program Files\WinRAR\WinRAR.exe" to the location where your WinRAR is installed
              objShell.Run Chr(34) & "C:\Program Files\WinRAR\WinRAR.exe" & Chr(34) & " e " & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strTargetFolderPath & Chr(34)
           End If
       Next
    End If
 
End Sub

Sub AttachExtractedFiles()
    Dim strFolderPath As String
    Dim strFile As String
 
    'Attach the extracted files to the current email
    strFolderPath = strTargetFolderPath & "\"
    strFile = Dir(strFolderPath)
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    While Len(strFile) > 0
          objMail.attachments.Add strFolderPath & strFile
          strFile = Dir
    Wend
 
    'Delete the .RAR attachments
    For Each objAttachment In objMail.attachments
        If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
           objAttachment.Delete
        End If
    Next
End Sub

6. Danach müssen Sie sicherstellen, dass das Makro in Ihrem Outlook zulässig ist.
7. Endlich können Sie es versuchen.

• Öffnen Sie zunächst eine E-Mail, die Folgendes enthält: .RAR Anlagen.
• Dann zurück zur neuen Makrotaste.
• Klicken Sie auf die Unterroutine „UnRARAttachments“ und drücken Sie F5.
• Klicken Sie anschließend auf die folgende Unterroutine „AttachExtractedFiles“ und drücken Sie die Taste F5.
• Danach können Sie zum E-Mail-Fenster zurückkehren. Sie werden sehen, dass .RAR Anhänge wurden dekomprimiert. Alle extrahierten Dateien wurden angehängt.

unzip .Zip Anhänge in Outlook

Wie beim Dekomprimieren .RAR Outlook verfügt nicht über native Funktionen zum Dekomprimieren von Anhängen..zipAnhänge. Wenn Sie also die „.Zip”Anhänge standardmäßig direkt in Outlook. Glücklicherweise können Sie Outlook VBA weiterhin verwenden, um diese Funktion zu erreichen. Weitere Informationen finden Sie in meinem vorherigen Artikel - „Wie man die Verpackung öffnet .Zip Anhänge direkt in Outlook über VBA".

Einführung des Autors:

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