Kõikide manuste kiire tihendamine a RAR Fail oma Outlooki meili

Outlooki lahendused September 29, 2025

Kuigi Outlook ei luba manuseid otse a RAR faili, saate siiski kasutada selles artiklis tutvustatud VBA-koodi, et seda imelihtsalt realiseerida.

Nagu me kõik teame, saate ühele meilile paljude suurte failide manustamisel tõenäoliselt hoiatuse Outlooki manuse suuruse piirangu kohta. Samuti, kui meil on liiga suuri manuseid, on selle edukas väljasaatmine keerulisem. Nii et selliste manuste korral saate need tihendada a RAR faili, mis võib manustatud failide suurust teatud määral vähendada.

Pakkige kõik manused kiiresti kokku a RAR Fail oma Outlooki meili

Üldiselt failide tihendamiseks a RAR faili, saate selle saavutada ainult kohalikul draivil, kuna Outlook ei paku tihendamiseks sellist loomulikku funktsiooni. Paljud loodavad aga seda teha otse Outlookis. Seetõttu õpetame siin teile, kuidas seda Outlook VBA abil hankida.

Pakkige kõik manused kiiresti kokku a RAR Fail oma Outlooki meili

  1. Käivitage kohe alguses oma Outlooki rakendus.
  2. Seejärel vajutage Outlooki peaaknas klahve Alt + F11.
  3. Järgmisena sisenete aknasse "Microsoft Visual Basic for Applications". Peate avama tühja mooduli.
  4. Seejärel kopeerige ja kleepige sellesse moodulisse järgmine VBA kood.
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 kood – tihendage kõik manused a RAR Fail

  1. Pärast seda muutke oma Outlooki makro turvatase madalaks.
  2. Hiljem saate mugavaks juurdepääsuks lisada makro kiirpääsu tööriistaribale.
  3. Lõpuks saate proovida.
  • Esiteks avage paljude manustega e-kiri.
  • Seejärel vajutage kiirpääsu tööriistaribal makronuppu.
  • Järgmisena peate sisestama uue nime RAR faili ja vajuta "OK".
  • Pärast seda asendatakse kõik algsed manused uuega RAR fail nagu ekraanipilt:Mõju: tihendage kõik manused a RAR Fail

Ühendage .RAR Manused Outlookis

Samamoodi ei luba Outlook kasutajatel otse lahti pakkida .RAR fail selles. Seega, kui soovite sisemisi faile vaadata .RAR manus, peate selle oma kohalikule draivile salvestama ja lahti pakkima. Siiski on see kahtlemata tüütu. Õnneks saate selle funktsiooni saavutamiseks Outlookis siiski kasutada VBA-d, mida on tutvustatud minu eelmises artiklis "Kuidas lahti harutada .RAR Manused otse Outlookis VBA kaudu".

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server korruptsioon ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.