Comment décompresser un fichier RAR .RAR Pièces jointes directement dans Outlook via VBA

En général, pour décompresser le «.rarPour extraire les pièces jointes d'un e-mail, il est conseillé de l'enregistrer puis d'utiliser un outil spécifique. Cet article vous propose une méthode pour décompresser directement dans Outlook.

Outlook ne vous permet pas de prévisualiser le «.RAR« pièces jointes. De plus, vous ne pouvez pas décompresser le « .RARLes pièces jointes ne s'ouvrent pas directement dans Outlook. Par conséquent, si vous souhaitez consulter une telle pièce jointe, vous devez d'abord l'enregistrer sur votre disque dur local, puis en extraire les fichiers à l'aide d'un utilitaire spécialisé tel que WinRAR. Nous vous proposons ici une méthode pour décompresser les fichiers « pièces jointes »..RAR” pièces jointes uniquement dans Outlook. Maintenant, lisez la suite pour obtenir les étapes détaillées et les codes VBA.

Unir .RAR Pièces jointes directement dans Outlook

1. Tout d'abord, cette méthode reposant sur un outil spécifique – WinRAR –, vous devez d'abord l'installer sur votre PC et vérifier où il est monté.
2. Ensuite, vous pouvez ouvrir votre application Outlook comme d'habitude.
3. Appuyez ensuite sur les touches "Alt + F11" dans la fenêtre principale d'Outlook.
4. Ensuite, dans l'éditeur Outlook VBA, ouvrez un module vide.
5. Et puis copiez le code VBA suivant dans ce module.

Public objFileSystem As Object
Public strTempFolder As String
Public strTargetFolderPath As String
Public objAttachment As Outlook.Attachment

Sub UnRARAttachment()
    Dim objMail As Outlook.MailItem
    Dim objShell As Object
    Dim strTempFolder As String
    Dim strRARFile As String
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path
    strTargetFolderPath = strTempFolder & "\Temp " & Format(Now, "YYYY-MM-DD-hh-mm-ss")
    MkDir (strTargetFolderPath)
 
    Set objShell = CreateObject("Wscript.Shell")
 
    If objMail.attachments.Count > 0 Then
       For Each objAttachment In objMail.attachments
           If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
 
              strRARFile = strTempFolder & "\" & objAttachment.FileName
              objAttachment.SaveAsFile (strRARFile)
 
              'Change "C:\Program Files\WinRAR\WinRAR.exe" to the location where your WinRAR is installed
              objShell.Run Chr(34) & "C:\Program Files\WinRAR\WinRAR.exe" & Chr(34) & " e " & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strTargetFolderPath & Chr(34)
           End If
       Next
    End If
 
End Sub

Sub AttachExtractedFiles()
    Dim strFolderPath As String
    Dim strFile As String
 
    'Attach the extracted files to the current email
    strFolderPath = strTargetFolderPath & "\"
    strFile = Dir(strFolderPath)
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    While Len(strFile) > 0
          objMail.attachments.Add strFolderPath & strFile
          strFile = Dir
    Wend
 
    'Delete the .RAR attachments
    For Each objAttachment In objMail.attachments
        If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
           objAttachment.Delete
        End If
    Next
End Sub

6. Après cela, vous devez vous assurer que la macro est autorisée dans votre Outlook.
7. Enfin, vous pouvez essayer.

• Tout d'abord, ouvrez un e-mail contenant .RAR pièces jointes.
• Revenez ensuite au nouveau bouton de macro.
• Cliquez sur la sous-routine « UnRARAttachments » et appuyez sur F5.
• Cliquez ensuite sur la sous-routine "AttachExtractedFiles" suivante et appuyez sur la touche F5.
• Après cela, vous pouvez retourner à la fenêtre de messagerie. Vous verrez que .RAR les pièces jointes ont été décompressées. Tous les fichiers extraits ont été joints.

Ouvrir .Zip Pièces jointes dans Outlook

Comme décompresser le .RAR Outlook ne dispose pas de fonctionnalités natives pour décompresser les pièces jointes..zip« pièces jointes ». Par conséquent, si vous ne parvenez pas à décompresser directement le « .Zip” les pièces jointes directement dans Outlook par défaut. Heureusement, vous pouvez toujours utiliser Outlook VBA pour réaliser cette fonction. Pour plus de détails, vous pouvez consulter mon article précédent – ​​«Comment dézipper le .Zip 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 fixer SQL Server et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com