Comment compresser rapidement toutes les pièces jointes dans un RAR Fichier dans votre e-mail Outlook

Bien qu'Outlook ne permette pas de compresser directement les pièces jointes dans un RAR fichier, vous pouvez toujours utiliser le code VBA présenté dans cet article pour le réaliser comme un jeu d'enfant.

Comme nous le savons tous, lorsque vous joignez de nombreux fichiers volumineux à un e-mail, vous recevrez probablement un avertissement concernant la limite de taille des pièces jointes dans Outlook. De plus, si un e-mail contient des pièces jointes trop volumineuses, il deviendra plus difficile de l'envoyer avec succès. Ainsi, face à de tels attachements, vous pouvez choisir de les compresser dans un RAR fichier, ce qui peut réduire la taille des fichiers joints dans une certaine mesure.

En général, pour compresser des fichiers dans un RAR fichier, vous ne pouvez l'obtenir que sur le lecteur local dans la mesure où Outlook ne fournit pas une telle fonctionnalité native pour la compression. Cependant, beaucoup espèrent le faire directement dans Outlook. Par conséquent, nous allons vous apprendre ici comment l'obtenir avec Outlook VBA.

Compressez rapidement toutes les pièces jointes dans un RAR Fichier dans votre e-mail Outlook

1. Au tout début, lancez votre application Outlook.
2. Appuyez ensuite sur les touches "Alt + F11" dans la fenêtre principale d'Outlook.
3. Ensuite, vous entrerez dans la fenêtre "Microsoft Visual Basic pour Applications". Vous devez ouvrir un module vide.
4. Ensuite, copiez et collez le code VBA suivant dans ce module.

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. Après cela, modifiez le niveau de sécurité de votre macro Outlook sur faible.
6. Plus tard, pour un accès pratique, vous pouvez ajouter la macro à la barre d'outils d'accès rapide.
7. Finalement, vous pouvez essayer.

• Tout d'abord, ouvrez un e-mail avec de nombreuses pièces jointes.
• Appuyez ensuite sur le bouton macro dans la barre d'outils d'accès rapide.
• Ensuite, vous devrez saisir un nom pour le nouveau RAR fichier et appuyez sur "OK".
• Après cela, toutes les pièces jointes d'origine seront remplacées par une nouvelle RAR fichier comme la capture d'écran :

Unir .RAR Pièces jointes dans Outlook

De même, Outlook ne permet pas non plus aux utilisateurs de décompresser directement un fichier. .RAR fichier à l'intérieur. Par conséquent, si vous souhaitez consulter les fichiers internes dans un .RAR pièce jointe, vous devez l'enregistrer et la décompresser sur votre disque local. Cependant, c'est sans aucun doute fastidieux. Heureusement, vous pouvez toujours utiliser VBA pour obtenir cette fonctionnalité dans Outlook, qui a été introduite dans mon article précédent "Comment décompresser un fichier RAR .RAR Pièces jointes directement dans Outlook via VBA ».

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris SQL Server la corruption et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com