Kako brzo komprimirati sve priloge u a RAR Datoteka u vašoj Outlook e-pošti

Iako Outlook ne dozvoljava direktno komprimiranje priloga u a RAR datoteku, još uvijek možete koristiti VBA kod predstavljen u ovom članku da biste ga realizirali kao povjetarac.

Kao što svi znamo, kada priložite mnogo velikih datoteka u jednu e-poštu, vjerovatno ćete dobiti upozorenje o ograničenju veličine priloga u Outlooku. Također, ako e-mail sadrži prevelike priloge, bit će teže uspješno ga poslati. Dakle, suočeni s takvim prilozima, možete odlučiti da ih komprimirate u a RAR fajl, što može donekle smanjiti veličinu priloženih datoteka.

Općenito, za komprimiranje datoteka u a RAR datoteku, to možete postići samo na lokalnom disku jer Outlook ne pruža takvu izvornu funkciju za kompresiju. Međutim, mnogi se nadaju da će to postići direktno u programu Outlook. Stoga, ovdje ćemo vas naučiti kako da ga dobijete pomoću Outlook VBA.

Brzo komprimirajte sve priloge u a RAR Datoteka u vašoj Outlook e-pošti

1. Na samom početku pokrenite svoju Outlook aplikaciju.
2. Zatim pritisnite tipke “Alt + F11” u glavnom prozoru programa Outlook.
3. Zatim ćete ući u prozor “Microsoft Visual Basic za aplikacije”. Morate otvoriti prazan modul.
4. Nakon toga, kopirajte i zalijepite sljedeći VBA kod u ovaj modul.

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

5. Nakon toga promijenite nivo sigurnosti makroa Outlook na niži.
6. Kasnije, za praktičan pristup, možete dodati makro na alatnu traku za brzi pristup.
7. Na kraju možete probati.

• Prvo otvorite e-poštu s mnogo priloga.
• Zatim pritisnite dugme za makro na traci sa alatkama za brzi pristup.
• Zatim ćete morati unijeti ime za novi RAR datoteku i pritisnite “OK”.
• Nakon toga, svi originalni priključci će biti zamijenjeni novim RAR fajl kao na snimku ekrana:

Ujedinite se .RAR Prilozi u Outlooku

Slično tome, Outlook također ne dozvoljava korisnicima da direktno dekomprimiraju .RAR datoteku u njemu. Stoga, ako želite pregledati interne datoteke u .RAR prilog, morate ga sačuvati i dekomprimirati na svom lokalnom disku. Međutim, to je nesumnjivo zamorno. Srećom, još uvijek možete koristiti VBA da biste postigli ovu funkciju u Outlooku, koja je predstavljena u mom prethodnom članku “Kako raspakirati .RAR Prilozi direktno u Outlook preko VBA".

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server korupcija i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com