Cum să comprimați rapid toate atașamentele într-un RAR Fișier în e-mailul tău Outlook

Deși Outlook nu permite comprimarea directă a atașamentelor într-un RAR fișier, încă puteți folosi codul VBA introdus în acest articol pentru a-l realiza ca o briză.

După cum știm cu toții, atunci când atașați multe fișiere mari la un e-mail, este posibil să primiți un avertisment cu privire la limita de dimensiune a atașamentului în Outlook. De asemenea, dacă un e-mail conține atașamente prea mari, va deveni mai dificil să-l trimiți cu succes. Deci, în fața unor astfel de atașamente, puteți opta pentru a le comprima într-un RAR fișier, care poate reduce dimensiunea fișierelor atașate într-o oarecare măsură.

În general, pentru a comprima fișierele într-un RAR fișier, îl puteți realiza numai pe unitatea locală, deoarece Outlook nu oferă o astfel de caracteristică nativă pentru comprimare. Cu toate acestea, mulți speră să o realizeze direct în Outlook. Prin urmare, aici vă vom învăța cum să îl obțineți cu Outlook VBA.

Comprimați rapid toate atașamentele într-un RAR Fișier în e-mailul tău Outlook

1. De la bun început, lansați aplicația Outlook.
2. Apoi apăsați tastele „Alt + F11” în fereastra principală a Outlook.
3. Apoi veți intra în fereastra „Microsoft Visual Basic pentru aplicații”. Trebuie să deschideți un modul gol.
4. Ulterior, copiați și inserați următorul cod VBA în acest 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. După aceea, schimbați nivelul de securitate al macrocomenzii Outlook la scăzut.
6. Mai târziu, pentru un acces convenabil, puteți adăuga macrocomandă la Bara de instrumente Acces rapid.
7. În cele din urmă poți încerca.

• Mai întâi, deschideți un e-mail cu multe atașamente.
• Apoi apăsați butonul macro din Bara de instrumente Acces rapid.
• În continuare, va trebui să introduceți un nume pentru noul RAR fișier și apăsați „OK”.
• După aceea, toate atașamentele originale vor fi înlocuite cu una nouă RAR fișier ca în captura de ecran:

Uni .RAR Atașamente în Outlook

În mod similar, Outlook nu permite utilizatorilor să decomprime direct un fișier .RAR fișier în el. Prin urmare, dacă doriți să vizualizați fișierele interne într-un .RAR atașament, trebuie să îl salvați și să îl decomprimați în unitatea dvs. locală. Cu toate acestea, este, fără îndoială, plictisitor. Din fericire, încă puteți utiliza VBA pentru a realiza această caracteristică în Outlook, care a fost introdusă în articolul meu anterior „Cum se descarcă unrar .RAR Atașamente Direct în Outlook prin VBA".

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv SQL Server corupţie și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com