Hur snabbt komprimerar alla bilagor till en RAR Arkiv i din Outlook-e-post

Outlook-lösningar September 29, 2025

Även om Outlook inte tillåter direkt komprimering av bilagor till en RAR kan du fortfarande använda VBA-koden som introducerades i den här artikeln för att förverkliga den som en vind.

Som vi alla vet kommer du sannolikt att få en varning om bifogade storleksgränser i Outlook när du bifogar många stora filer till ett e-postmeddelande. Om ett e-postmeddelande innehåller för stora bilagor blir det svårare att skicka det framgångsrikt. Så inför sådana bilagor kan du välja att komprimera dem till en RAR fil, vilket i viss mån kan minska storleken på de bifogade filerna.

Komprimera snabbt alla bilagor till en RAR Arkiv i din Outlook-e-post

I allmänhet att komprimera filer till en RAR fil kan du bara uppnå det i lokal enhet genom att Outlook inte tillhandahåller en sådan inbyggd funktion för komprimering. Men många hoppas kunna uppnå det direkt i Outlook. Därför lär vi dig här hur du får det med Outlook VBA.

Komprimera snabbt alla bilagor till en RAR Arkiv i din Outlook-e-post

  1. Starta din Outlook-applikation redan från början.
  2. Tryck sedan på “Alt + F11” -tangenterna i huvudfönstret i Outlook.
  3. Därefter öppnar du “Microsoft Visual Basic for Applications” -fönstret. Du måste öppna en tom modul.
  4. Kopiera sedan och klistra in följande VBA-kod i den här 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-kod - Komprimera alla bilagor till en RAR Fil

  1. Ändra sedan din Outlook-makrosäkerhetsnivå till låg.
  2. Senare, för bekväm åtkomst, kan du lägga till makrot i snabbåtkomstverktygsfältet.
  3. Så småningom kan du prova.
  • Öppna först ett mejl med många bilagor.
  • Tryck sedan på makroknappen i snabbåtkomstverktygsfältet.
  • Därefter måste du ange ett namn för det nya RAR fil och tryck “OK”.
  • Därefter kommer alla originalbilagor att ersättas med ett nytt RAR fil som skärmdumpen:Effekt: Komprimera alla bilagor till en RAR Fil

unrar .RAR Bilagor i Outlook

På samma sätt tillåter inte Outlook användare att direkt dekomprimera en .RAR fil i den. Om du vill visa de interna filerna i en .RAR måste du spara och dekomprimera den på din lokala enhet. Det är dock utan tvekan tråkigt. Lyckligtvis kan du fortfarande använda VBA för att uppnå denna funktion i Outlook, som har introducerats i min tidigare artikel "Hur man avaktiverar .RAR 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 SQL Server korruption och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.