Kako hitro stisniti vse priloge v RAR Datoteka v vašem e-poštnem sporočilu Outlook

Čeprav Outlook ne dovoljuje neposrednega stiskanja prilog v datoteko RAR Datoteko lahko še vedno uporabite kodo VBA, predstavljeno v tem članku, da jo uresničite kot vetrič.

Kot vsi vemo, boste pri pripisovanju večjih datotek enemu e-poštnemu sporočilu verjetno dobili opozorilo o omejitvi velikosti priloge v programu Outlook. Če ima e-poštno sporočilo prevelike priloge, ga bo težje uspešno poslati. Torej se lahko pred takimi priponkami odločite, da jih stisnete v RAR datoteka, ki lahko v določeni meri zmanjša velikost priloženih datotek.

Na splošno stiskanje datotek v RAR datoteko, jo lahko dosežete samo na lokalnem pogonu, če Outlook ne ponuja tako izvorne funkcije za stiskanje. Vendar mnogi upajo, da jo bodo dosegli neposredno v Outlooku. Zato vas bomo tukaj naučili, kako ga pridobiti s programom Outlook VBA.

Hitro stisnite vse priloge v RAR Datoteka v vašem e-poštnem sporočilu Outlook

1. Na začetku zaženite aplikacijo Outlook.
2. Nato v glavnem Outlookovem oknu pritisnite tipki “Alt + F11”.
3. Nato odprete okno »Microsoft Visual Basic for Applications«. Morate odpreti prazen modul.
4. Nato v ta modul kopirajte in prilepite naslednjo kodo VBA.

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. Po tem spremenite raven varnosti makra v Outlooku na nizko.
6. Kasneje lahko za priročen dostop dodate makro v orodno vrstico za hitri dostop.
7. Sčasoma lahko poskusite.

• Najprej odprite e-poštno sporočilo s številnimi prilogami.
• Nato pritisnite gumb makra v orodni vrstici za hitri dostop.
• Nato boste morali vnesti ime novega RAR in pritisnite »V redu«.
• Po tem bodo vse prvotne priloge zamenjane z novimi RAR datoteka, kot je posnetek zaslona:

Unrar .RAR Priloge v Outlooku

Podobno Outlook uporabnikom ne omogoča neposrednega razpakiranja .RAR datoteko v njej. Če si torej želite ogledati notranje datoteke v .RAR prilogo, jo morate shraniti in razpakirati v lokalni pogon. Vendar je nedvomno dolgočasno. Na srečo lahko še vedno uporabljate VBA za dosego te funkcije v Outlooku, ki je bila predstavljena v prejšnjem članku “Kako razpakirati .RAR Priloge neposredno v Outlooku prek VBA".

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z SQL Server korupcija in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com