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

Compartilhe agora:

Às vezes, você pode querer compactar todos os anexos de um e-mail em um zip arquivo diretamente no Outlook. Nesse caso, você pode usar o código VBA apresentado neste artigo para obter esse recurso.

Por padrão, o Outlook tem seu limite de tamanho de anexo – 20 MB para POP3, IMAP ou outras contas de e-mail baseadas na Web e 10 MB para contas do Exchange. Portanto, quando o tamanho total dos anexos exceder o limite, você receberá erros relacionados. Nesse caso, é uma boa opção compactar todos os anexos em um zip arquivo.

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

No entanto, como você pode ver, o Outlook não oferece um recurso tão direto. Ou seja, você precisa primeiro zip esses arquivos no disco rígido e, em seguida, anexe novamente o recém-criado zip arquivo. Na realidade most os usuários esperam que possam alcançá-lo diretamente no Outlook. Em resposta a esse requisito, apresentaremos a seguir como usar o VBA para realizá-lo.

Compactar todos os anexos em um Zip Envie o

  1. Em primeiro lugar, inicie seu aplicativo Outlook.
  2. Em seguida, pressione os botões de tecla “Alt + F11” na janela principal do Outlook.
  3. Em seguida, na nova janela do editor VBA do Outlook, abra um módulo.
  4. Posteriormente, copie e cole os seguintes códigos VBA no módulo.
Sub ZipAttachments() Dim objMail As Outlook.MailItem Dim objAttachments As Outlook.attachments Dim objAttachment As Outlook.Attachment Dim objFileSystem As Object Dim objShell As Object Dim varTempFolder As Variant Dim varZipFile As Variant 'Salvar os anexos no Temporary pasta Set objFileSystem = CreateObject("Scripting.FileSystemObject") varTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp " & Format(Now, "dd-mm-yyyy- hh-mm-ss-") MkDir ( varTempFolder) varTempFolder = varTempFolder & "\" Set objMail = Outlook.Application.ActiveInspector.CurrentItem Set objAttachments = objMail.attachments Para cada objAttachment Em objAttachments objAttachment.SaveAsFile (varTempFolder & objAttachment.FileName) Next 'Criar um novo zip arquivo varZipFile = InputBox("Especifique um nome para o novo zip nome do arquivo Zip Arquivo", objMail.Subject) varZipArquivo = objFileSystem.GetSpecialFolder(2).Path & "\" & varZipArquivo & ".zip" abrir varZipFile For Output As #1 Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) Close #1 'Copie todos os anexos salvos para o novo zip arquivo Set objShell = CreateObject("Shell.Application") objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items 'Manter a macro em execução até que a compactação seja concluída No erro Resume Next Do Until objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count Application.Wait (Now + TimeValue("0:00:01")) Loop On Error GoTo 0 'Excluir todos os anexos Set objAttachments = objMail.attachments Enquanto objAttachments.Count > 0 objAttachments.Item(1).Delete Wend 'Adicionar o novo zip arquivo para o e-mail atual objMail.attachments.Add varZipFile 'Prompt MsgBox ("Complete!") End Sub

Código VBA - Comprima rapidamente todos os anexos em um Zip Arquivo em seu e-mail do Outlook

  1. Depois disso, você precisa verificar as configurações de macro do Outlook para garantir que a macro seja permitida.
  2. Mais tarde, você pode adicionar o novo projeto VBA à barra de ferramentas de acesso rápido da janela de mensagem como de costume.
  3. Eventualmente, você pode tentar.
  • Em primeiro lugar, crie um novo e-mail e anexe vários arquivos. Ou simplesmente abra um e-mail com muitos anexos.
  • Em seguida, clique no botão de macro na Barra de Ferramentas de Acesso Rápido.
  • Mais tarde, você precisa especificar um nome para o zip arquivo e clique em "OK". Por padrão, será definido como o assunto do e-mail.Especifique um nome para o zip lima
  • De uma só vez, todos os anexos serão compactados em um zip arquivo, como a captura de tela a seguir:Compactar todos os anexos em um Zip Envie o

Unzip a .Zip Anexos diretamente no Outlook

É inevitável que você receba anexos com extensão “.zip” extensão de arquivo de vez em quando. Neste cenário, você pode querer desconectar diretamentezip esses arquivos de dentro do Outlook em vez de salvá-los e descompactá-los na unidade local. Mesmo que o Outlook não tenha um recurso nativo, você ainda pode usar o VBA para obtê-lo também. Para mais detalhes, você pode consultar outro artigo – “como desfazerzip a .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 correção de sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com

Compartilhe agora:

Uma resposta para “Como compactar rapidamente todos os anexos em um Zip Arquivo em seu e-mail do Outlook”

Deixe um comentário

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