Slik unrarerer du .RAR Vedlegg direkte i Outlook via VBA

Outlook-løsninger September 29, 2025

Generelt sett, for å avkode «.rar""-vedlegg i en e-post, bør du først lagre det og deretter bruke et spesifikt verktøy for å pakke ut interne filer. Denne artikkelen vil gi deg en metode for å unrar direkte i Outlook.

Outlook tillater deg ikke å forhåndsvise «.RAR"-vedlegg. Du kan heller ikke oppheve "-filen".RAR"vedlegg direkte i Outlook. Hvis du ønsker å se et slikt vedlegg, bør du derfor først lagre det på en lokal stasjon og deretter pakke ut de interne filene fra det via et spesialverktøy, for eksempel WinRAR. Med fokus på dette problemet vil vi her tilby deg en måte som lar deg unrar ".RAR” vedlegg bare i Outlook. Les nå videre for å få de detaljerte trinnene og VBA-kodene.

Forene .RAR Vedlegg direkte i Outlook via VBA

Forene .RAR Vedlegg direkte i Outlook

  1. Først av alt, siden denne metoden er avhengig av et spesifikt verktøy – WinRAR, bør du først installere det på PC-en din og sørge for hvor det er montert.
  2. Deretter kan du åpne Outlook-applikasjonen som vanlig.
  3. Deretter trykker du på "Alt + F11"-tastene i hovedvinduet i Outlook.
  4. Deretter åpner du en tom modul i Outlook VBA-editoren.
  5. Og kopier deretter følgende VBA-kode inn i denne 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-kode - Unrar .RAR Vedlegg direkte i Outlook

  1. Etter det må du sørge for at makro er tillatt i Outlook.
  2. Endelig kan du prøve.
  • Først, åpne en e-post som inneholder .RAR vedlegg.
  • Så tilbake til den nye makroknappen.
  • Klikk på underrutinen «UnRARAAttachments» og trykk F5.
  • Og klikk deretter inn i følgende "AttachExtractedFiles"-subrutine og trykk på F5-tasten.
  • Etter det kan du gå tilbake til e-postvinduet. Du vil se at .RAR vedlegg har blitt dekomprimert. Alle de utpakkede filene er lagt ved.Forene RAR vedlegg

Unzip .Zip Vedlegg i Outlook

Som å dekomprimere .RAR vedlegg, Outlook har ikke innebygde funksjoner for å dekomprimere «.zip" vedlegg. Derfor, hvis du ikke klarer å pakke ut " direkte.Zip” vedlegg rett i Outlook som standard. Heldigvis kan du fortsatt bruke Outlook VBA for å oppnå denne funksjonen. For mer informasjon, kan du sjekke min forrige artikkel - "Slik pakker du ut .Zip Vedlegg direkte i Outlook via VBA".

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fastsette SQL Server og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.