Inscrever-se

4 Maneiras | Como Baixar Anexos de Múltiplos Emails no Outlook

Existe uma maneira de baixar todos os anexos de todos os emails no Outlook? Felizmente, você aprenderá 4 soluções fáceis e simples para alcançar o objetivo facilmente e diretamente. Após a leitura, você pode escolher usar a função Salvar todos os anexos, a função Salvar Anexos, o código VBA e também o MultCloud.

25/04/2025

Busca Rápida:

Por que baixar anexos de vários emails no Outlook?

Você pode querer baixar anexos de vários emails para criar backup ou arquivar arquivos importantes. Isso garante que você tenha uma cópia local desses arquivos, o que pode ser útil em caso de problemas no servidor de email, perda de dados ou se você precisar acessar esses arquivos sem conexão com a internet.

Além disso, após baixar os anexos em seu PC, você pode acessar esses arquivos offline. Isso é especialmente útil se você viaja com frequência ou precisa consultar esses documentos quando não tem conexão com a internet. Depois de mantê-los offline, você pode editá-los usando o software de sua preferência. Isso é particularmente importante para documentos que requerem colaboração ou revisões.

Então, como faço para baixar vários anexos do Outlook? Como baixar emails do Outlook em massa? Bem, existem 4 soluções simples para isso, que são usar a função Salvar todos os anexos, função Salvar anexos, código VBA e MultCloud. Agora, consulte o conteúdo a seguir para aprender os detalhes.

Baixar anexos de vários emails no Outlook [Normal]

Nesta parte, você aprenderá 3 métodos simples e eficazes para salvar anexos de vários emails no Outlook 365. Para baixar eficientemente vários anexos de email em um email recebido no Outlook, siga estas instruções.

Método 1: Salvar todos os anexos

A função Salvar todos os anexos no Outlook permite que você colete e armazene facilmente todos os anexos de email contidos em um email específico no Outlook. Agora, siga as instruções abaixo:

Passo 1: Inicie o Outlook e dê um duplo clique no email do qual você deseja extrair todos os anexos.

Passo 2: Localize os anexos dentro do email e clique na seta apontando para baixo ao lado do anexo. Em seguida, clique na guia Salvar todos os anexos.

Salvar todos os anexos

Passo 3: Escolha os anexos que deseja baixar e clique no botão OK.

Selecionar anexos para salvar

Passo 4: Navegue até o local ou pasta desejado para salvar todos os anexos e clique no botão OK. Os anexos selecionados serão salvos no local escolhido.

Forma 2: Salvar anexos

Esta função permite que você salve anexos em um email no Outlook também. Siga estas etapas:

Passo 1: Para abrir uma mensagem ou email com anexos, clique duas vezes nele.

Passo 2: Acesse Arquivo> Salvar Anexos.

Salvar anexos

Passo 3: Selecione todos os anexos que deseja salvar. Em seguida, pressione a tecla CTRL ou SHIFT para selecionar múltiplos ou específicos anexos para salvar e clique em OK.

Passo 4: Selecione um local e clique no botão OK para salvar os anexos.

Forma 3: Baixar Anexos de Múltiplos Emails do Outlook usando o Código VBA

Esta seção fornece um guia passo a passo para usar o código VBA para salvar eficientemente todos os anexos de múltiplos emails no Outlook em uma pasta designada. Siga estas instruções:

Passo 1: Primeiro, você precisará criar uma pasta no seu computador onde poderá salvar os anexos. Vamos tomar um exemplo. Vá para Documentos, em seguida, crie uma pasta chamada Anexos.

Criar uma pasta

Passo 2: Escolha os emails que contêm os anexos que pretende salvar e, em seguida, pressione as teclas Alt F11 para abrir a janela Microsoft Visual Basic for Applications.

Passo 3: Se desejar salvar todos os anexos com o mesmo nome em uma única pasta, por favor vá em Ferramentas > Referências. Em seguida, marque Microsoft Scripting Runtime na caixa de diálogo Referências - Projeto.

Microsoft Scripting Runtime

Passo 4: Clique em Inserir > Módulo para abrir a janela Módulo e, em seguida, cole um dos exemplos de código VBA a seguir na janela.

Módulo

Código VBA:

  1. Dim GCount As Integer
  2. Dim GFilepath As String
  3. Public Sub SaveAttachments()
  4. "Atualização 20200821
  5. Dim xMailItem As Outlook.MailItem
  6. Dim xAttachments As Outlook.Attachments
  7. Dim xSelection As Outlook.Selection
  8. Dim i As Long
  9. Dim xAttCount As Long
  10. Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
  11. On Error Resume Next
  12. xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
  13. Set xSelection = Outlook.Application.ActiveExplorer.Selection
  14. xFolderPath = xFolderPath & "\Attachments\"
  15. If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then a)    VBA.MkDir xFolderPath
  16. End If
  17. GFilepath = "'
  18. For Each xMailItem In xSelection a)   Set xAttachments = xMailItem.Attachments b)   xAttCount = xAttachments.Count c)   xSaveFiles = "'d)   If xAttCount > 0 Then i.   For i = xAttCount To 1 Step -1 1.   GCount = 0 2.   xFilePath = xFolderPath & xAttachments.Item(i).FileName 3.   GFilepath = xFilePath 4.   xFilePath = FileRename(xFilePath) 5.   If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then a)   xAttachments.Item(i).SaveAsFile xFilePath b)   If xMailItem.BodyFormat <> olFormatHTML Then i.   xSaveFiles = xSaveFiles & vbCrLf & "'c)   Else i.   xSaveFiles = xSaveFiles & "!>
  19. " & "' & xFilePath & "'d)    End If 6.    End If ii.    Next i e)    End If!>
  20. Next!>
  21. Set xAttachments = Nothing!>
  22. Set xMailItem = Nothing!>
  23. Set xSelection = Nothing!>
  24. End Sub!>
  25. Function FileRename(FilePath As String) As String
  26. Dim xPath As String
  27. Dim xFso As FileSystemObject
  28. On Error Resume Next
  29. Set xFso = CreateObject("Scripting.FileSystemObject")
  30. xPath = FilePath 30.    FileRename = xPath
  31. If xFso.FileExists(xPath) Then a)    GCount = GCount 1 b)    xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." xFso.GetExtensionName(GFilepath) c)    FileRename = FileRename(xPath)
  32. End If
  33. xFso = Nothing
  34. End Function
  35. Function IsEmbeddedAttachment(Attach As Attachment)
  36. Dim xItem As MailItem
  37. Dim xCid As String
  38. Dim xID As String
  39. Dim xHtml As String
  40. On Error Resume Next
  41. IsEmbeddedAttachment = False
  42. Set xItem = Attach.Parent
  43. If xItem.BodyFormat <> olFormatHTML Then Exit Function
  44. xCid = "'
  45. xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
  46. If xCid <> "' Then a)    xHtml = xItem.HTMLBody b)    xID = "cid:" & xCid c)    If InStr(xHtml, xID) > 0 Then i.    IsEmbeddedAttachment = True d)    End If
  47. End If
  48. End Function

Baixar Anexos de Vários Emails no Outlook [Novo]

Como você pode ver, os métodos acima são um pouco complicados e demorados. Se você deseja salvar vários anexos de emails no Outlook, você pode aproveitar um gerenciador de arquivos em nuvem gratuito e inteligente - MultCloud. É um serviço baseado na web que permite gerenciar caixas de correio e unidades em nuvem diferentes, incluindo Google Drive, iCloud Drive, Gmail, Outlook, Google Fotos, Dropbox, etc.

MultCloud

Com a ajuda do MultCloud, você pode gerenciar emails no Gamil e Outlook facilmente sem precisar alternar entre plataformas diferentes. Você pode baixar vários emails, juntamente com seus anexos, para arquivos PDF diretamente em seu computador gratuitamente. Isso é fácil e rápido de alcançar, já que o MultCloud está equipado com uma tecnologia avançada de exportação de emails. Aqui estão as etapas detalhadas:

Etapa 1: Criar uma conta se você ainda não tiver uma.

Etapa 2: Navegue até o botão Adicionar Email, toque no ícone do Outlook e dê permissão ao MultCloud seguindo as dicas em sua tela.

Adicionar Outlook

Etapa 3: Vá para o Outlook, marque os emails com anexos que você deseja e Baixe eles diretamente para o seu computador local. Não se esqueça de marcar a guia Salvar Anexos antes de começar. Em seguida, repita as mesmas operações para baixar mais anexos de vários emails. É assim que você baixa anexos de vários emails no Outlook web via MultCloud.

Baixar Emails do Outlook

Da mesma forma, você pode exportar emails do Gmail para arquivos PDF em seu computador usando o MultCloud. Além de baixar emails e anexos em PDFs, você também pode migrar emails e anexos para um drive em nuvem se encontrar espaço limitado em seu armazenamento local. Ele oferece uma velocidade de migração líder do setor, facilitando e tornando perfeita a transferência de emails para drives em nuvem.

Enquanto isso, durante o processo de migração, o MultCloud depende do tráfego de dados em vez da conexão de rede. Portanto, não se preocupe se o seu computador desligar de repente. Por exemplo, você pode migrar emails para o Google Workspace.

No Final

Isso é tudo sobre como baixar anexos de vários emails no Outlook. Em resumo, você pode aproveitar o recurso Salvar Todos os Anexos, função Salvar Anexos, código VBA ou o MultCloud. Se você utilizar o MultCloud, poderá gerenciar seus drives em nuvem e caixas de correio facilmente, sem a necessidade de trocar de conta com frequência.

Comece GrátisObtenha Recursos Premium

Transferir, sincronizar or dazer backup arquivos de uma nuvem para outra rapidamente.

Inscrever-se

100% seguro