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
- Em primeiro lugar, inicie seu aplicativo Outlook.
- Em seguida, pressione o atalho de tecla “Alt + F11” na janela do Outlook para acessar o editor VBA.
- Em seguida, na janela “Microsoft Visual Basic for Applications”, abra um módulo que não esteja em uso.
- 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 da 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
- Depois disso, você pode adicionar o novo projeto VBA à barra de ferramentas de acesso rápido da janela de mensagem como de costume.
- 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:
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