Hur man avaktiverar .RAR Bilagor direkt i Outlook via VBA

Outlook-lösningar September 29, 2025

I allmänhet, för att avkoda “.rar”bilagor i ett e-postmeddelande bör du först spara dem och sedan använda ett specifikt verktyg för att extrahera interna filer. Den här artikeln ger dig en metod för att avaktivera RAR direkt i Outlook.

Outlook tillåter inte förhandsgranskning av ".RAR” bilagor. Du kan inte heller återställa ”.RAR”bilagor direkt i Outlook. Om du vill visa en sådan bilaga bör du därför först spara den på den lokala enheten och sedan extrahera de interna filerna från den via ett specialverktyg, till exempel WinRAR. Med fokus på detta problem erbjuder vi här ett sätt att avinstallera ”.RAR”Bilagor bara i Outlook. Läs vidare för att få detaljerade steg och VBA-koder.

unrar .RAR Bilagor direkt i Outlook via VBA

unrar .RAR Bilagor direkt i Outlook

  1. Först och främst, eftersom den här metoden förlitar sig på ett specifikt verktyg – WinRAR, bör du först installera det på din dator och se till var det är monterat.
  2. Då kan du öppna din Outlook-applikation som vanligt.
  3. Tryck sedan på “Alt + F11” -tangenterna i huvudfönstret i Outlook.
  4. Öppna sedan en tom modul i Outlook VBA-redigeraren.
  5. Och kopiera sedan följande VBA-kod till den här modulen.
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-kod - Unrar .RAR Bilagor direkt i Outlook

  1. Därefter måste du se till att makro är tillåtet i din Outlook.
  2. Äntligen kan du prova.
  • Först, öppna ett e-postmeddelande som innehåller .RAR bilagor.
  • Gå sedan tillbaka till den nya makroknappen.
  • Klicka i subrutinen ”UnRARAAttachments” och tryck på F5.
  • Klicka sedan på nästa "AttachExtractedFiles" underrutin och tryck på F5-tangenten.
  • Efter det kan du återgå till e-postfönstret. Du kommer att se att .RAR bilagor har dekomprimeras. Alla extraherade filer har bifogats.unrar RAR bilagor

Packa .Zip Bilagor i Outlook

Som att dekomprimera .RAR bilagor, Outlook har inga inbyggda funktioner för att dekomprimera “.zip” bilagor. Om du därför inte kan packa upp ”.Zip”Bilagor direkt i Outlook som standard. Lyckligtvis kan du fortfarande använda Outlook VBA för att uppnå denna funktion. För mer information kan du kolla in min tidigare artikel - “Hur man packar upp .Zip Bilagor direkt i Outlook via VBA".

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive fast SQL Server och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.