Come comprimere rapidamente tutti gli allegati in un file RAR File nella tua email di Outlook

Sebbene Outlook non consenta la compressione diretta degli allegati in un file RAR file, puoi ancora utilizzare il codice VBA introdotto in questo articolo per realizzarlo come un gioco da ragazzi.

Come tutti sappiamo, quando si allegano molti file di grandi dimensioni a un'e-mail, è probabile che si riceva un avviso sul limite delle dimensioni degli allegati in Outlook. Inoltre, se un'e-mail contiene allegati troppo grandi, sarà più difficile inviarla correttamente. Quindi, di fronte a tali allegati, puoi scegliere di comprimerli in un file RAR file, che può ridurre in una certa misura la dimensione dei file allegati.

In generale, per comprimere i file in un formato a RAR file, puoi ottenerlo solo nell'unità locale in quanto Outlook non fornisce tale funzionalità nativa per la compressione. Tuttavia, molti sperano di realizzarlo direttamente all'interno di Outlook. Pertanto, qui ti insegneremo come ottenerlo con Outlook VBA.

Comprimi rapidamente tutti gli allegati in a RAR File nella tua email di Outlook

1. All'inizio, avvia la tua applicazione Outlook.
2. Quindi premere i tasti "Alt + F11" nella finestra principale di Outlook.
3. Successivamente entrerai nella finestra "Microsoft Visual Basic for Applications". Devi aprire un modulo vuoto.
4. Successivamente, copia e incolla il seguente codice VBA in questo modulo.

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. Successivamente, modifica il livello di sicurezza delle macro di Outlook su basso.
6. Successivamente, per un comodo accesso, puoi aggiungere la macro alla barra di accesso rapido.
7. Alla fine puoi provare.

• Innanzitutto, apri un'e-mail con molti allegati.
• Quindi premere il pulsante macro nella barra di accesso rapido.
• Successivamente dovrai inserire un nome per il nuovo RAR file e premi "OK".
• Successivamente, tutti gli allegati originali verranno sostituiti da uno nuovo RAR file come lo screenshot:

Unrar .RAR Allegati in Outlook

Allo stesso modo, Outlook non consente agli utenti di decomprimere direttamente un file .RAR file al suo interno. Pertanto, se si desidera visualizzare i file interni in un .RAR allegato, è necessario salvarlo e decomprimerlo nell'unità locale. Tuttavia, è senza dubbio noioso. Fortunatamente, puoi ancora utilizzare VBA per ottenere questa funzionalità in Outlook, che è stata introdotta nel mio precedente articolo "Come estrarre un file rar .RAR Allegati Direttamente in Outlook tramite VBA".

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui SQL Server corruzione e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com