Se você atua em um setor onde recebe inúmeros e-mails todos os dias, provavelmente receberá muitos e-mails com vários anexos. Usar um método manual para extrair anexos pode ser demorado se houver muitos para baixar. Felizmente, é fácil salvar vários anexos de e-mail de uma só vez usando o Microsoft Outlook^{(Microsoft Outlook)} .

Neste tutorial, mostraremos como baixar todos os anexos do Outlook .

Como baixar todos os anexos de e-mail do Microsoft Outlook^{(Microsoft Outlook Email Attachments)} de uma só vez^(Once) no Windows

Para baixar todos os anexos de uma vez usando o aplicativo Windows Microsoft Outlook , faça o seguinte:

1. Abra o Outlook^(Outlook) e entre no seu perfil do Outlook^(Outlook) .
2. Selecione o e-mail com os anexos desejados do Outlook^(Outlook) .
3. Clique com o botão direito em qualquer um dos arquivos anexos e selecione Salvar^(Save) todos os anexos no menu suspenso. Se você quiser salvar apenas um arquivo, selecione Salvar como^{(Save As)} .

1. Na nova caixa de diálogo, mantenha pressionada a tecla CTRL do teclado e selecione todos os anexos que deseja baixar. Clique em OK^{(Click OK)} .

1. Selecione o local onde deseja salvar os arquivos e pressione o botão OK.

Como baixar todos os anexos de e-mail do Microsoft Outlook^{(Microsoft Outlook Email Attachments)} de uma só vez^(Once) no Mac

Veja como baixar todos os anexos usando o Outlook^(Outlook) para Mac :

1. Abra o aplicativo MS Outlook.
2. Selecione a mensagem de e-mail^(Email) que contém seus anexos.
3. Clique^(Click) em Anexos^{(Attachments)} e selecione Baixar tudo^{(Download All)} .

1. Selecione o local onde você gostaria de salvar seus anexos e selecione Escolher^(Choose) .

Como baixar vários anexos do Outlook^{(Download Multiple Outlook Attachments)} de vários e-mails^{(Multiple Emails)}

Também é possível baixar vários anexos de vários e-mails de uma só vez. Para fazer isso:

Usar código VBA

Se estiver usando o Outlook 2019^{(Outlook 2019)} , 2016, 2013, 2010, 2007 ou 2003, você pode usar o editor VBA^{(VBA editor)} para baixar vários anexos de vários e-mails.

1. Abra sua pasta Documentos e crie uma nova pasta chamada “Anexos”. É aqui que seus anexos serão baixados.
2. Abra o Microsoft Outlook.
3. Pressione^(Press) as teclas Alt e F11 do teclado para abrir o editor VBA .
4. Clique com o botão direito Microsoft Outlook Object > Insert > Insert Module .

1. Copie o seguinte código no editor e pressione Enter:

Dim GContagem como inteiro

Dim GFilepath como string

Sub SaveAttachments públicos()

'Atualização 20200821

Dim xMailItem como Outlook.MailItem

Dim xAttachments como Outlook.Attachments

Dim xSelection como Outlook.Selection

Dim i enquanto

Dim xAttCount tão longo

Dim xFilePath como String , xFolderPath como String , xSaveFiles como String

Em caso de erro, retomar o próximo

xFolderPath = CreateObject (“WScript.Shell”).SpecialFolders(16)

Definir^(Set) xSelection = Outlook.Application.ActiveExplorer.Selection

xFolderPath = xFolderPath & “Anexos”

Se VBA.Dir ( xFolderPath , vbDirectory) = vbNullString Então

VBA.MkDir xFolderPath

Fim se

GFilepath = “”

Para cada xMailItem em xSelection

Definir^(Set) xAttachments = xMailItem.Attachments

xAttCount = xAttachments.Count

xSalvarArquivos = “”

Se xAttCount > 0 Então

Para i = xAttCount para 1 Etapa^(Step) -1

GCont = 0

xFilePath = xFolderPath & xAttachments.Item (i).FileName

GFilepath = xFilePath

xFilePath = FileRename (xFilePath)

Se IsEmbeddedAttachment ( xAttachments.Item (i)) = Falso Então

xAttachments.Item(i).SaveAsFile xFilePath

Se xMailItem.BodyFormat <> olFormatHTML então

xSaveFiles = xSaveFiles & vbCrLf & “Referência de hiperlink inválida.>”

Outro

xSaveFiles = xSaveFiles & “
” & “ xFilePath & “‘>” & xFilePath & “ ”

Fim se

Fim se

Proximo eu

Fim se

Próximo

Definir xAttachments = Nada

Definir xMailItem = Nada

Definir xSelection = Nada

Finalizar sub

Função FileRename ( FilePath As String ) As String

Dim xPath como string

Dim xFso como FileSystemObject

Em caso de erro, retomar o próximo

Set xFso = CreateObject (“ Scripting.FileSystemObject ”)

xPath = Caminho do arquivo

FileRename = xPath

Se xFso.FileExists(xPath) Então

GContagem = GContagem + 1

xPath = xFso.GetParentFolderName ( GFilepath ) & “” & xFso.GetBaseName ( GFilepath ) & ” ” & GCount & “.” + xFso.GetExtensionName( GFilepath )

FileRename = FileRename(xPath)

Fim se

xFso = Nada

Função final

Função IsEmbeddedAttachment^{(Function IsEmbeddedAttachment)} ( anexar^(Attach) como anexo^(Attachment) )

Dim xItem como MailItem

Dim xCid como string

Dim xID como string

Dim xHtml como string

Em caso de erro, retomar o próximo

IsEmbeddedAttachment = Falso

Definir xItem = Attach.Parent

Se xItem.BodyFormat <> olFormatHTML, então saia da função^(Function)

xCid = “”

xCid = Attach.PropertyAccessor.GetProperty (“http://schemas.microsoft.com/mapi/proptag/0x3712001F”)

Se xCid <> “” Então

xHtml = xItem.HTMLBody

xID = “cid:” & xCid

Se InStr(xHtml, xID) > 0 Então

IsEmbeddedAttachment = Verdadeiro^(True)

Fim se

Fim se

Função final

Observação: você pode copiar o código original acima do Extend Office^{(original code above from Extend Office)} e colá-lo no editor.

1. Pressione F5^{(Press F5)} para executar o script. Você pode receber uma janela pop-up solicitando que você permita a ação.

Usando uma ferramenta externa

Se estiver usando outra versão do Outlook , quiser baixar um tipo de arquivo diferente de PST^{(a file type other than PST)} ou achar o método VBA complicado, você pode baixar uma ferramenta que pode ajudá-lo a baixar vários anexos do Outlook de uma só vez.^(Outlook)

Aplicativos como o Outlook Attachment Extractor^{(Outlook Attachment Extractor)} têm a funcionalidade de salvar anexos não apenas de arquivos PST , mas também de outros formatos de arquivo, como OST , BAK , MSG , OLK e OLM . Você também pode configurar o aplicativo para filtrar anexos por tamanho de arquivo, data ou remetente.

Como baixar todos os anexos de um arquivo corrompido^(Corrupted)

Se você não conseguir abrir, visualizar ou salvar anexos de arquivo no Outlook , o arquivo PST do Microsoft Outlook^{(Microsoft Outlook PST)} pode estar corrompido ou danificado. Você pode reparar o arquivo PST^{(repair the PST file)} para recuperar o anexo usando ferramentas como o aplicativo SCANPST.exe .

Para usar esta ferramenta, feche o Outlook^(Outlook) e navegue até um dos seguintes locais, dependendo da sua versão do Outlook :

1. Outlook 2019: C:Arquivos de programas (x86)Microsoft Office\root\Office16
2. Outlook 2016: C:Arquivos de programas (x86)Microsoft Office\root\Office16
3. Outlook 2013: C:Arquivos de programas (x86)Microsoft Office\Office15
4. Outlook 2010: C:Arquivos de programas (x86)Microsoft Office\Office14
5. Outlook 2007: C:Arquivos de programas (x86)Microsoft Office\Office12

Em seguida, clique duas vezes em SCANPST.EXE.

Selecione Procurar^{(Select Browse)} , localize o arquivo de dados do Outlook^(Outlook) que deseja verificar e pressione Iniciar^(Start) .

Se a ferramenta encontrar erros, selecione Reparar^(Repair) para tentar corrigi-los. Depois de concluído, reinicie o Outlook^(Outlook) e verifique se agora funciona.

Simplifique suas atividades de e-mail

Baixar vários arquivos do Outlook é fácil e você pode até baixar vários arquivos de vários e-mails de uma só vez. Se você achar os métodos integrados do Outlook muito difíceis, poderá baixar ferramentas como o Outlook Attachment Extractor^{(Outlook Attachment Extractor)} para ajudá-lo.

How to Download All Attachments From Outlook Emails

If you’re in an induѕtry where you reсeive countlеss emaіlѕ every day, you likely gеt many emails wіth multiple attachmentѕ. Using a manual method to extract attachments can be time-consuming if there аre many tо download. Luckily, it’s easy tо save multіple email attachments at once using Microsoft Outlоok.

In this tutorial, we’ll show you how to download all attachments from Outlook.

How to Download All Microsoft Outlook Email Attachments at Once on Windows

To download all attachments at once using the Windows Microsoft Outlook app, do the following:

1. Open Outlook and sign in to your Outlook profile.
2. Select the email with your desired Outlook attachments.
3. Right-click any of the attachment files and select Save all attachments in the drop-down menu. If you only want to save one file, select Save As.

1. In the new dialog box, hold down the CTRL key on your keyboard and select all of the attachments you want to download. Click OK.

1. Select the location that you would like to save the files to and press the OK button.

How to Download All Microsoft Outlook Email Attachments at Once on Mac

Here’s how to download all attachments using Outlook for Mac:

1. Open the MS Outlook application.
2. Select the Email message that contains your attachments.
3. Click on Attachments and select Download All.

1. Select the location that you would like to save your attachments and select Choose.

How to Download Multiple Outlook Attachments From Multiple Emails

It’s also possible to download multiple attachments from many emails at once. To do so:

Use VBA Code

If you are using Outlook 2019, 2016, 2013, 2010, 2007, or 2003, you can use the VBA editor to download multiple attachments from multiple emails.

1. Open your Documents folder and create a new folder named “Attachments.” This is where your attachments will download to.
2. Open Microsoft Outlook.
3. Press the Alt and F11 keys on the keyboard to open the VBA editor.
4. Right-click Microsoft Outlook Object > Insert > Insert Module.

1. Copy the following code into the editor and press Enter:

Dim GCount As Integer

Dim GFilepath As String

Public Sub SaveAttachments()

‘Update 20200821

Dim xMailItem As Outlook.MailItem

Dim xAttachments As Outlook.Attachments

Dim xSelection As Outlook.Selection

Dim i As Long

Dim xAttCount As Long

Dim xFilePath As String, xFolderPath As String, xSaveFiles As String

On Error Resume Next

xFolderPath = CreateObject(“WScript.Shell”).SpecialFolders(16)

Set xSelection = Outlook.Application.ActiveExplorer.Selection

xFolderPath = xFolderPath & “\Attachments\”

If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then

VBA.MkDir xFolderPath

End If

GFilepath = “”

For Each xMailItem In xSelection

Set xAttachments = xMailItem.Attachments

xAttCount = xAttachments.Count

xSaveFiles = “”

If xAttCount > 0 Then

For i = xAttCount To 1 Step -1

GCount = 0

xFilePath = xFolderPath & xAttachments.Item(i).FileName

GFilepath = xFilePath

xFilePath = FileRename(xFilePath)

If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then

xAttachments.Item(i).SaveAsFile xFilePath

If xMailItem.BodyFormat <> olFormatHTML Then

xSaveFiles = xSaveFiles & vbCrLf & “<Error! Hyperlink reference not valid.>”

Else

xSaveFiles = xSaveFiles & “<br>” & “<a href=’file://” & xFilePath & “‘>” & xFilePath & “</a>”

End If

End If

Next i

End If

Next

Set xAttachments = Nothing

Set xMailItem = Nothing

Set xSelection = Nothing

End Sub

Function FileRename(FilePath As String) As String

Dim xPath As String

Dim xFso As FileSystemObject

On Error Resume Next

Set xFso = CreateObject(“Scripting.FileSystemObject”)

xPath = FilePath

FileRename = xPath

If xFso.FileExists(xPath) Then

GCount = GCount + 1

xPath = xFso.GetParentFolderName(GFilepath) & “\” & xFso.GetBaseName(GFilepath) & ” ” & GCount & “.” + xFso.GetExtensionName(GFilepath)

FileRename = FileRename(xPath)

End If

xFso = Nothing

End Function

Function IsEmbeddedAttachment(Attach As Attachment)

Dim xItem As MailItem

Dim xCid As String

Dim xID As String

Dim xHtml As String

On Error Resume Next

IsEmbeddedAttachment = False

Set xItem = Attach.Parent

If xItem.BodyFormat <> olFormatHTML Then Exit Function

xCid = “”

xCid = Attach.PropertyAccessor.GetProperty(“http://schemas.microsoft.com/mapi/proptag/0x3712001F”)

If xCid <> “” Then

xHtml = xItem.HTMLBody

xID = “cid:” & xCid

If InStr(xHtml, xID) > 0 Then

IsEmbeddedAttachment = True

End If

End If

End Function

Note: You can copy the original code above from Extend Office and paste it into the editor.

1. Press F5 to run the script. You may get a pop-up window prompting you to allow the action.

Using an External Tool

If you’re using another version of Outlook, want to download a file type other than PST, or find the VBA method cumbersome, you can download a tool that can help you download multiple Outlook attachments at once.

Apps such as Outlook Attachment Extractor have the functionality to save attachments not only from PST files, but from other file formats such as OST, BAK, MSG, OLK, and OLM files, too. You can also configure the app to filter attachments by file size, date, or sender.

How to Download All Attachments From a Corrupted File

If you cannot open, view, or save file attachments in Outlook, the Microsoft Outlook PST file may be corrupted or damaged. You can repair the PST file to retrieve the attachment using tools such as the SCANPST.exe application.

To use this tool, close Outlook and navigate to one of the following locations, depending on your version of Outlook:

1. Outlook 2019: C:\Program Files (x86)\Microsoft Office\root\Office16
2. Outlook 2016: C:\Program Files (x86)\Microsoft Office\root\Office16
3. Outlook 2013: C:\Program Files (x86)\Microsoft Office\Office15
4. Outlook 2010: C:\Program Files (x86)\Microsoft Office\Office14
5. Outlook 2007: C:\Program Files (x86)\Microsoft Office\Office12

Then, double-click SCANPST.EXE.

Select Browse, locate the Outlook data file you want to scan and press Start.

If the tool finds errors, select Repair to attempt to fix them. Once complete, restart Outlook and check whether it now works.

Streamline Your Email Activities

Downloading multiple files from Outlook is easy and you can even download multiple files from multiple emails all at once. If you find the built-in methods in Outlook too difficult, you can download tools such as Outlook Attachment Extractor to help you out.

Related posts

• Como corrigir o botão Voltar não funciona no iPhone e Android

• Como corrigir o erro Sim não provisionado no Android ou iPhone

• Como corrigir o telefone Android que não está se conectando ao Wi-Fi

• Como corrigir o atraso do Instagram no iPhone e Android

• Como corrigir a rotação automática que não funciona no Android

• 9 maneiras de corrigir “Nenhum aplicativo encontrado para abrir URL” no Android

• 7 melhores aplicativos de notícias para Android e iPhone

• 7 melhores aplicativos de pedômetro para Android e iPhone

• O que é um cliente MCM no Android e é seguro?

• Instagram continua travando no iPhone ou Android? 8 correções para tentar

• Como instalar extensões do Chrome para desktop no Android

• Como excluir downloads no Android

• Como desativar o Samsung Pay no Android

• Não é possível enviar mensagens de texto do Android? 4 correções para tentar

• 8 melhores aplicativos de player de vídeo para Android

• 7 melhores aplicativos de câmera para Android

• 8 melhores aplicativos para baixar filmes gratuitamente no Android (atualizado em 2022)

• Como fazer um vídeo de lapso de tempo no Android

• 5 melhores aplicativos de lanterna para Android que são seguros

• 30 permissões de aplicativos para evitar no Android