Como compactar rapidamente todos os anexos em um RAR Arquivo em seu e-mail do Outlook

Embora o Outlook não permita a compactação direta de anexos em um RAR arquivo, você ainda pode usar o código VBA apresentado neste artigo para realizá-lo como uma brisa.

Como todos sabemos, ao anexar muitos arquivos grandes a um e-mail, você provavelmente receberá um aviso sobre o limite de tamanho de anexo no Outlook. Além disso, se um e-mail contiver anexos muito grandes, será mais difícil enviá-lo com sucesso. Assim, diante de tais anexos, você pode optar por comprimi-los em um RAR arquivo, o que pode reduzir o tamanho dos arquivos anexados em algum grau.

Em geral, para compactar arquivos em um RAR arquivo, você só pode alcançá-lo na unidade local, pois o Outlook não fornece um recurso nativo para compactação. No entanto, muitos esperam realizá-lo diretamente no Outlook. Portanto, aqui ensinaremos como obtê-lo com o Outlook VBA.

Comprima rapidamente todos os anexos em um RAR Arquivo em seu e-mail do Outlook

1. No início, inicie seu aplicativo Outlook.
2. Em seguida, pressione as teclas “Alt + F11” na janela principal do Outlook.
3. Em seguida, você entrará na janela “Microsoft Visual Basic for Applications”. Você precisa abrir um módulo vazio.
4. Posteriormente, copie e cole o seguinte código VBA neste módulo.

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. Depois disso, altere o nível de segurança de macro do Outlook para baixo.
6. Mais tarde, para acesso conveniente, você pode adicionar a macro à Barra de Ferramentas de Acesso Rápido.
7. Eventualmente, você pode tentar.

• Primeiro, abra um e-mail com muitos anexos.
• Em seguida, pressione o botão macro na Barra de Ferramentas de Acesso Rápido.
• Em seguida, você precisará inserir um nome para o novo RAR arquivo e clique em "OK".
• Depois disso, todos os anexos originais serão substituídos por um novo RAR arquivo como a captura de tela:

Unrar .RAR Anexos no Outlook

Da mesma forma, o Outlook também não permite que os usuários descompactem um arquivo diretamente. .RAR arquivo nele. Portanto, se você quiser visualizar os arquivos internos em um .RAR anexo, você precisa salvá-lo e descompactá-lo em sua unidade local. No entanto, é sem dúvida tedioso. Felizmente, você ainda pode utilizar o VBA para obter esse recurso no Outlook, que foi apresentado em meu artigo anterior “Como descompactar um arquivo RAR .RAR 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 SQL Server corrupção e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com