como desfazerzip a .Zip Anexos diretamente no Outlook via VBA

Compartilhe agora:

Quando você recebe um anexo em “.zip” extensão de arquivo, se você quiser unzip eles, em geral, você deve salvar e desfazerzip eles na unidade local. Mas muitos esperam unzip diretamente no Outlook. Este artigo ensinará como obtê-lo via VBA.

Você já deve ter recebido os anexos que estão em “.zip" extensão de arquivo. Para acessar os arquivos internos em um zip arquivo, você tem que primeiro unzip isto. Neste caso, como de costume, você deve primeiro salvar o zip arquivo para a unidade local e, em seguida, clique com o botão direito do mouse e selecione “Extrair tudo” no menu de contexto. Na realidade, muitos usuários preferem desconectarzip o arquivo diretamente no Outlook. No entanto, o Outlook não fornece esse recurso nativo. Felizmente, você pode seguir as etapas a seguir para utilizar o VBA para realizá-lo como uma brisa.

Unzip a .Zip Anexos diretamente no Outlook via VBA

Unzip a .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.
Sub-Unidade PúblicazipFileInOutlook() 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 'Salvar e Desfazerzip do zip arquivo na unidade local 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) Para cada objAttachment Em 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 'Reanexe os arquivos extraídos do zip file strFileName = Dir(strTempFolder & "\") While Len(strFileName) > 0 objMail.attachments.Add (strTempFolder & "\" & strFileName) strFileName = Dir objMail.Save Wend 'Exclua os anexos em “.zip” extensão de arquivo Definir objAttachments = objMail.attachments Para cada objAttachment Em objAttachments If Right(objAttachment.FileName, 3) = "zip" Then objAttachment.Delete objMail.Save End If Next 'Excluir a pasta temporária e os arquivos objFileSystem.DeleteFolder (strTempFolder) End Sub

Código VBA - Unzip a .Zip Anexos diretamente no Outlook

  1. Depois disso, você pode adicionar o novo projeto VBA à barra de ferramentas de acesso rápido da janela de mensagem como de costume.
  2. 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 arquivo será unzipped, como a captura de tela a seguir:Unzip Envie o

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

Compartilhe agora:

2 respostas para “Como desfazerzip a .Zip Anexos Diretamente no Outlook via VBA”

  1. Olá, Obrigado por tornar estas instruções tão fáceis de entender! No entanto, recebo uma mensagem de erro quando tento concluir a ação por meio da barra de acesso rápido. Ele anexará um segundo arquivo .zip pasta para o e-mail (não uma com documentos extraídos), e uma janela aparece dizendo “Erro em tempo de execução '-2147221239 (80040109) A função não pode ser executada porque a mensagem foi alterada.” Quando clico em “Depurar”, destaca “objMail.Save” em “Reanexar os arquivos extraídos do zip arquivo” seção. Por favor, deixe-me saber se há algo que eu possa fazer para corrigir isso. Obrigado!

Deixe um comentário

O seu endereço de e-mail não será publicado. Os campos obrigatórios são marcados com *