Hoe pak je een RAR-bestand uit? .RAR Bijlagen rechtstreeks in Outlook via VBA

Outlook-oplossingen 29 september 2025

Over het algemeen geldt dat om het bestand " uit te pakken".rarAls je bijlagen in een e-mail hebt, moet je die eerst opslaan en vervolgens een speciaal programma gebruiken om de bestanden eruit te halen. Dit artikel laat je zien hoe je RAR-bestanden rechtstreeks in Outlook kunt uitpakken.

Outlook biedt geen mogelijkheid om een ​​voorbeeld van de ".RAR" bijlagen. Ook kun je de " niet uitpakken.RARU kunt bijlagen rechtstreeks in Outlook uitpakken. Om een ​​dergelijke bijlage te bekijken, moet u deze eerst opslaan op uw lokale schijf en vervolgens de bestanden eruit halen met een speciaal programma zoals WinRAR. In het kader van dit probleem bieden we u hier een manier om ".RAR'bijlagen alleen in Outlook. Lees nu verder voor de gedetailleerde stappen en VBA-codes.

unrar .RAR Bijlagen rechtstreeks in Outlook via VBA

unrar .RAR Bijlagen rechtstreeks in Outlook

  1. Omdat deze methode afhankelijk is van een specifiek programma – WinRAR – moet u dit eerst op uw pc installeren en controleren waar het is gekoppeld.
  2. Vervolgens kunt u uw Outlook-applicatie zoals gewoonlijk openen.
  3. Druk vervolgens op de toetsknoppen "Alt + F11" in het hoofdvenster van Outlook.
  4. Open vervolgens in de Outlook VBA-editor een lege module.
  5. En kopieer vervolgens de volgende VBA-code naar deze module.
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

VBA-code - Uitpakken .RAR Bijlagen rechtstreeks in Outlook

  1. Daarna moet u ervoor zorgen dat macro is toegestaan ​​in uw Outlook.
  2. Eindelijk kun je het proberen.
  • Open allereerst een e-mail die het volgende bevat: .RAR bijlagen.
  • Dan terug naar de nieuwe macroknop.
  • Klik in de subroutine “UnRARAttachments” en druk op F5.
  • En klik vervolgens op de volgende subroutine "AttachExtractedFiles" en druk op de F5-toets.
  • Daarna kunt u teruggaan naar het e-mailvenster. U zult zien dat .RAR bijlagen zijn gedecomprimeerd. Alle uitgepakte bestanden zijn bijgevoegd.unrar RAR Bijlages

Unzip .Zip Bijlagen in Outlook

Net zoals het decomprimeren van de .RAR bijlagen, Outlook beschikt niet over ingebouwde functies om de bestanden te decomprimeren..zip” bijlagen. Daarom, als u de “ niet direct kunt uitpakken.Zip' bijlagen standaard rechtstreeks in Outlook. Gelukkig kunt u nog steeds gebruik maken van Outlook VBA om deze functie te bereiken. Voor meer details kun je mijn vorige artikel raadplegen – “Hoe het ritsen te openen .Zip Bijlagen rechtstreeks in Outlook via VBA'.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder repareren SQL Server en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.