Alle bijlagen snel comprimeren in een RAR Bestand in uw Outlook-e-mail

Outlook-oplossingen 29 september 2025

Hoewel Outlook het rechtstreeks comprimeren van bijlagen in een RAR bestand, kunt u nog steeds de VBA-code gebruiken die in dit artikel is geïntroduceerd om het als een fluitje van een cent te realiseren.

Zoals we allemaal weten, krijgt u waarschijnlijk een waarschuwing over de limiet voor de bijlagegrootte in Outlook wanneer u veel grote bestanden aan één e-mail toevoegt. Als een e-mail te grote bijlagen bevat, wordt het moeilijker om deze met succes te verzenden. Dus, in het licht van dergelijke bijlagen, kunt u ervoor kiezen om ze te comprimeren tot een RAR bestand, waardoor de grootte van de bijgevoegde bestanden enigszins kan worden verkleind.

Comprimeer alle bijlagen snel in een RAR Bestand in uw Outlook-e-mail

Om bestanden te comprimeren naar een RAR bestand, kunt u het alleen op een lokaal station bereiken, omdat Outlook niet zo'n native functie voor comprimeren biedt. Velen hopen dit echter rechtstreeks in Outlook te bereiken. Daarom zullen we u hier leren hoe u het kunt krijgen met Outlook VBA.

Comprimeer alle bijlagen snel in een RAR Bestand in uw Outlook-e-mail

  1. Start vanaf het begin uw Outlook-applicatie.
  2. Druk vervolgens op de toetsen "Alt + F11" in het hoofdvenster van Outlook.
  3. Vervolgens komt u in het venster "Microsoft Visual Basic for Applications". U moet een lege module openen.
  4. Kopieer en plak vervolgens de volgende VBA-code in deze module.
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-code - Comprimeer alle bijlagen in een RAR Bestand

  1. Wijzig daarna uw Outlook-macrobeveiligingsniveau naar laag.
  2. Later kunt u voor gemakkelijke toegang de macro toevoegen aan de werkbalk Snelle toegang.
  3. Uiteindelijk kun je het proberen.
  • Open eerst een e-mail met veel bijlagen.
  • Druk vervolgens op de macroknop in de werkbalk Snelle toegang.
  • Vervolgens moet u een naam invoeren voor het nieuwe RAR bestand en klik op "OK".
  • Daarna worden alle originele bijlagen vervangen door een nieuwe RAR bestand zoals de screenshot:Effect: comprimeer alle bijlagen in een RAR Bestand

unrar .RAR Bijlagen in Outlook

Op dezelfde manier staat Outlook gebruikers ook niet toe om een ​​bestand rechtstreeks uit te pakken. .RAR bestand erin. Dus als je de interne bestanden wilt bekijken in een .RAR bijlage, moet u deze opslaan en decomprimeren op uw lokale schijf. Het is echter ongetwijfeld vervelend. Gelukkig kun je VBA nog steeds gebruiken om deze functie in Outlook te bereiken, die is geïntroduceerd in mijn vorige artikel "Hoe pak je een RAR-bestand uit? .RAR Bijlagen rechtstreeks in Outlook via VBA'.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder SQL Server corruptie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.