Sådan afinstallerer du .RAR Vedhæftede filer direkte i Outlook via VBA

Outlook-løsninger September 29, 2025

Generelt set, for at afkode “.rar"vedhæftede filer i en e-mail, skal du først gemme den og derefter bruge et specifikt værktøj til at udpakke interne filer. Denne artikel giver dig en metode til at unrar direkte i Outlook.

Outlook tillader dig ikke at forhåndsvise ".RAR" vedhæftede filer. Du kan heller ikke genstarte ".RAR"vedhæftede filer direkte i Outlook. Hvis du derfor ønsker at se en sådan vedhæftet fil, skal du først gemme den på det lokale drev og derefter udpakke de interne filer fra den via et særligt værktøj, f.eks. WinRAR. Med fokus på dette problem vil vi her tilbyde dig en metode, der giver dig mulighed for at gendanne ".RAR”Vedhæftede filer bare i Outlook. Læs videre for at få de detaljerede trin og VBA-koder.

unrar .RAR Vedhæftede filer direkte i Outlook via VBA

unrar .RAR Vedhæftede filer direkte i Outlook

  1. Først og fremmest, da denne metode er afhængig af et specifikt værktøj – WinRAR, bør du først installere det på din pc og sørge for, hvor det er monteret.
  2. Derefter kan du åbne din Outlook-applikation som normalt.
  3. Tryk derefter på “Alt + F11” -tasteknapperne i hovedvinduet i Outlook.
  4. Åbn derefter et tomt modul i Outlook VBA-editoren.
  5. Og kopier derefter følgende VBA-kode til dette 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

VBA-kode - Unrar .RAR Vedhæftede filer direkte i Outlook

  1. Derefter skal du sikre dig, at makroen er tilladt i din Outlook.
  2. Endelig kan du prøve.
  • Først skal du åbne en e-mail, der indeholder .RAR vedhæftede filer.
  • Derefter tilbage til den nye makroknap.
  • Klik i underrutinen “UnRARAttachments” og tryk på F5.
  • Klik derefter på den følgende “AttachExtractedFiles” subrutine, og tryk på F5-tasten.
  • Derefter kan du vende tilbage til postvinduet. Du vil se, at .RAR vedhæftede filer er dekomprimeret. Alle de udpakkede filer er vedhæftet.unrar RAR Vedhæftede filer

Unzip .Zip Vedhæftede filer i Outlook

Ligesom at dekomprimere .RAR vedhæftede filer, Outlook har ikke indbyggede funktioner til at dekomprimere “.zip" vedhæftede filer. Hvis du derfor ikke kan udpakke ".Zip”Vedhæftede filer lige i Outlook som standard. Heldigvis kan du stadig bruge Outlook VBA til at opnå denne funktion. For flere detaljer kan du tjekke min tidligere artikel - “Sådan pakker du ud .Zip Vedhæftede filer direkte i Outlook via VBA".

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder fastsætte SQL Server og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.