Como descompactar o arquivo .Zip Anexos diretamente no Outlook via VBA

Quando você recebe um anexo em “.zipArquivos com a extensão “.zip” geralmente são salvos e descompactados em um disco local. No entanto, muitos preferem descompactá-los diretamente no Outlook. Este artigo ensinará como fazer isso usando VBA.

Você deve ter recebido os anexos que estão em “.zip" extensão de arquivo. Para acessar os arquivos internos em um zip Para salvar o arquivo, primeiro você precisa descompactá-lo. Nesse caso, como de costume, primeiro você precisa salvá-lo. zip Copie o arquivo para a unidade local, clique com o botão direito do mouse e selecione "Extrair tudo" no menu de contexto. Na prática, muitos usuários preferem descompactar o arquivo diretamente no Outlook. No entanto, o Outlook não oferece esse recurso nativo. Felizmente, você pode seguir os passos a seguir para utilizar VBA e realizar essa tarefa com facilidade.

Descompacte o .Zip Anexos diretamente no Outlook

1. Em primeiro lugar, inicie seu aplicativo Outlook.
2. Em seguida, pressione o atalho de tecla “Alt + F11” na janela do Outlook para acessar o editor VBA.
3. Em seguida, na janela “Microsoft Visual Basic for Applications”, abra um módulo que não esteja em uso.
4. Posteriormente, copie e cole os seguintes códigos VBA neste módulo.

Public Sub UnzipFileInOutlook()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objShell As Object
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim strFilePath As String
    Dim strFileName As String
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objAttachments = objMail.attachments
 
    'Save & Unzip the zip file in local drive
    Set objShell = CreateObject("Shell.Application")
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp" & Format(Now, "yyyy-mm-dd-hh-mm-ss")
    MkDir (strTempFolder)
 
    For Each objAttachment In objAttachments
        If Right(objAttachment.FileName, 3) = "zip" Then
           strFilePath = strTempFolder & "\" & objAttachment.FileName
           objAttachment.SaveAsFile (strFilePath)
           objShell.NameSpace((strTempFolder)).CopyHere objShell.NameSpace((strFilePath)).Items
        End If
    Next
 
    'Reattach the files extracted from the zip file
    strFileName = Dir(strTempFolder & "\")
 
    While Len(strFileName) > 0
          objMail.attachments.Add (strTempFolder & "\" & strFileName)
          strFileName = Dir
          objMail.Save
    Wend
 
    'Delete the attachments in “.zip” file extension
    Set objAttachments = objMail.attachments
    For Each objAttachment In objAttachments
        If Right(objAttachment.FileName, 3) = "zip" Then
           objAttachment.Delete
           objMail.Save
        End If
    Next
 
    'Delete the temp folder and files
    objFileSystem.DeleteFolder (strTempFolder)
End Sub

5. Depois disso, você pode adicionar o novo projeto VBA à barra de ferramentas de acesso rápido da janela de mensagem como de costume.
6. Finalmente, você pode tentar.

• Primeiro, abra uma mensagem com zip arquivo em sua própria janela.
• Em seguida, clique em “Ações” > “Editar mensagem”.
• Em seguida, clique no novo botão de macro na Barra de Ferramentas de Acesso Rápido.
• De uma vez, o zip O arquivo será descompactado, como na captura de tela a seguir:

Livrar-se de problemas PST irritantes

Embora o arquivo PST no novo formato Unicode suporte tamanho de arquivo de 20 GB, ainda é aconselhável manter o arquivo o menor possível. É porque um arquivo PST grande é muito mais propenso a corrupção. Depois que seu arquivo PST for comprometido, você terá que fazer esforços para recuperar PST dados. Nesse cenário, você não tem escolha a não ser recorrer a uma ferramenta comprovada e respeitável como DataNumen Outlook Repair.

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 reparo do sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com