Como descompactar um arquivo RAR .RAR Anexos diretamente no Outlook via VBA

Em geral, para desvendar o “.rarPara extrair arquivos RAR de um e-mail, primeiro você deve salvá-lo e depois usar uma ferramenta específica para extrair os arquivos internos. Este artigo fornecerá um método para descompactar arquivos RAR diretamente no Outlook.

O Outlook não permite que você visualize o “.RARanexos ”. Além disso, você não pode descompactar o “.RAROs anexos são exibidos diretamente no Outlook. Portanto, se você deseja visualizar um anexo desse tipo, primeiro deve salvá-lo em seu disco rígido local e, em seguida, extrair os arquivos internos usando um utilitário específico, como o WinRAR. Para solucionar esse problema, apresentaremos um método que permite descompactar arquivos ".RAR” apenas no Outlook. Agora continue lendo para obter as etapas detalhadas e os códigos VBA.

Unrar .RAR Anexos diretamente no Outlook

1. Primeiramente, como este método depende de uma ferramenta específica – o WinRAR – você deve instalá-lo em seu computador e verificar onde ele está montado.
2. Então você pode abrir seu aplicativo Outlook como de costume.
3. Em seguida, pressione os botões de tecla “Alt + F11” na janela principal do Outlook.
4. Posteriormente, no editor VBA do Outlook, abra um módulo vazio.
5. E, em seguida, copie o seguinte código VBA para este módulo.

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. Depois disso, você precisa garantir que a macro seja permitida em seu Outlook.
7. Finalmente você pode tentar.

• Primeiramente, abra um e-mail que contenha .RAR anexos.
• Em seguida, volte para o novo botão de macro.
• Clique na sub-rotina “UnRARAttachments” e pressione F5.
• Em seguida, clique na seguinte sub-rotina “AttachExtractedFiles” e pressione a tecla F5.
• Depois disso, você pode voltar à janela de e-mail. Você verá que .RAR os anexos foram descompactados. Todos os arquivos extraídos foram anexados.

Descompacte .Zip Anexos no Outlook

Assim como descomprimir o .RAR anexos, o Outlook não possui recursos nativos para descompactar o “.zipanexos. Portanto, se você não conseguir descompactar diretamente o “.Zip” anexos diretamente no Outlook por padrão. Felizmente, você ainda pode usar o Outlook VBA para obter essa função. Para mais detalhes, você pode conferir meu artigo anterior – “Como descompactar o arquivo .Zip Anexos diretamente no Outlook via VBA".

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo fixo SQL Server e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com