Hvordan raskt komprimere alle vedlegg til en RAR Fil i Outlook-e-posten din

Outlook-løsninger September 29, 2025

Selv om Outlook ikke tillater direkte komprimering av vedlegg til en RAR fil, kan du fortsatt bruke VBA-koden introdusert i denne artikkelen for å realisere det som en lek.

Som vi alle vet, når du legger ved mange store filer til én e-post, vil du sannsynligvis få en advarsel om grensen for vedleggsstørrelse i Outlook. Dessuten, hvis en e-post har for store vedlegg, vil det bli vanskeligere å sende den ut. Så, i møte med slike vedlegg, kan du velge å komprimere dem til en RAR fil, som kan redusere størrelsen på de vedlagte filene til en viss grad.

Komprimer raskt alle vedlegg til en RAR Fil i Outlook-e-posten din

Generelt, for å komprimere filer til en RAR fil, kan du bare oppnå den på lokal stasjon ved at Outlook ikke har en slik innebygd funksjon for komprimering. Imidlertid håper mange å oppnå det direkte i Outlook. Derfor vil vi her lære deg hvordan du får det med Outlook VBA.

Komprimer raskt alle vedlegg til en RAR Fil i Outlook-e-posten din

  1. Start Outlook-applikasjonen helt i begynnelsen.
  2. Trykk deretter "Alt + F11"-tastene i hovedvinduet i Outlook.
  3. Deretter går du inn i vinduet "Microsoft Visual Basic for Applications". Du må åpne en tom modul.
  4. Deretter kopierer og limer du inn følgende VBA-kode i denne modulen.
Sub RarAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim objShell As Object
    Dim strTempFolder As Variant
    Dim strRARFile As Variant
    Dim strSourceFile As String
 
    'Save the attachments to Temporary folder
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp " & Format(Now, "YYYY-MM-DD hh-mm-ss")
    MkDir (strTempFolder)
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objAttachments = objMail.attachments
    For Each objAttachment In objAttachments
        objAttachment.SaveAsFile (strTempFolder & "\" & objAttachment.FileName)
    Next
 
    'Create a new RAR file
    strRARFile = InputBox("Specify a name for the new zip file", "Name Zip File", objMail.Subject)
    strRARFile = objFileSystem.GetSpecialFolder(2).Path & "\" & strRARFile & ".rar"
    Open strRARFile For Output As #1
    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1
 
    Set objShell = CreateObject("Shell.Application")
 
    'Add the files to the New RAR file
    strSourceFile = Dir(strTempFolder)
 
    While strSourceFile <> ""
          'Change "C:\Program Files (x86)\WinRAR\WinRAR.exe" to the location where your WinRAR is installed
          objShell.Run Chr(34) & "C:\Program Files (x86)\WinRAR\WinRAR.exe" & Chr(34) & " a -r" & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strSourceFile & Chr(34)
          strSourceFile = Dir
    Wend
 
    'Delete all the attachments
    Set objAttachments = objMail.attachments
 
    While objAttachments.Count > 0
          objAttachments.Item(1).Delete
    Wend
 
    'Add the new RAR file to the current email
    objMail.attachments.Add strRARFile
 
    'Prompt you
    MsgBox "Complete!", vbExclamation
End Sub

VBA-kode - Komprimer alle vedlegg til en RAR filet

  1. Deretter endrer du Outlook-makrosikkerhetsnivået til lavt.
  2. Senere, for enkel tilgang, kan du legge til makroen i verktøylinjen for hurtigtilgang.
  3. Til slutt kan du prøve deg frem.
  • Først åpner du en e-post med mange vedlegg.
  • Trykk deretter på makroknappen i hurtigtilgangsverktøylinjen.
  • Deretter må du skrive inn et navn for den nye RAR fil og trykk "OK".
  • Etter det vil alle de originale vedleggene bli erstattet med en ny RAR fil som skjermbildet:Effekt: Komprimer alle vedlegg til en RAR filet

Unrar .RAR Vedlegg i Outlook

På samme måte tillater ikke Outlook brukere å dekomprimere en .RAR fil i den. Derfor, hvis du ønsker å se de interne filene i en .RAR vedlegg, må du lagre og dekomprimere det på din lokale stasjon. Imidlertid er det utvilsomt kjedelig. Heldigvis kan du fortsatt bruke VBA for å oppnå denne funksjonen i Outlook, som har blitt introdusert i min forrige artikkel "Hvordan Unrar .RAR Vedlegg direkte i Outlook via VBA".

Forfatterintroduksjon:

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

Kommentarer er stengt.