3 maneiras de baixar todos os anexos do Outlook

Percorra este guia para aprender todas as maneiras

Como usuário profissional, baixar toneladas de anexos de e-mails recebidos no Outlook pode ser monótono e demorado.

Felizmente, você pode baixar facilmente vários anexos de um e-mail no Outlook de uma só vez, sem precisar clicar no botão Salvar para cada um deles. Além disso, também é possível baixar vários anexos presentes em vários e-mails por meio de uma solução simples.

Se você está curioso para conhecer o procedimento passo a passo, fique conosco enquanto o orientamos no procedimento.

Como faço para baixar todos os anexos de um e-mail?

1. Usando o aplicativo de área de trabalho

1. Lançar o Microsoft Outlook aplicativo no seu PC com Windows.
2. Procure e abra esse e-mail no painel de leitura do qual você baixou os anexos.
instagram story viewer
3. Mude para o Anexos seção na barra de menu superior, clique com o botão direito do mouse em um dos anexos de arquivo na seção direita e selecione Salvar todos os anexos no menu suspenso.
4. aperte o Ctrl e selecione todos os anexos que deseja baixar na pequena caixa de diálogo que se abre.
5. aperte o OK depois de selecionar os anexos necessários.
6. Um novo Salvar como pop-up para salvar seus anexos será aberto. Navegue até a pasta onde deseja salvar os arquivos anexos e pressione o botão OK botão no canto inferior direito para iniciar o download do anexo.

Você pode baixar facilmente todos os arquivos anexados a um e-mail de uma só vez, em vez de baixar cada arquivo individualmente.

2. Usando o aplicativo web

1. Acesse o Aplicativo da Web do Microsoft Outlook usando seu navegador da Web preferido e forneça suas credenciais de login quando solicitado a entrar.
2. Selecione os caixa de entrada pasta na barra de menu à esquerda no Lar seção do aplicativo da web.
3. Clique duas vezes no e-mail em questão para visualizar o conteúdo do e-mail em uma nova janela.
4. Clique no Baixar tudo botão para baixar os anexos na forma de um arquivo ZIP.
5. Escolha o local de download e pressione o botão OK botão se o Salvar como a caixa de diálogo se abre.

Este é um método direto para baixar todos os anexos de e-mail de um e-mail, se você preferir o aplicativo da Web em vez do aplicativo do Outlook.

Como faço para baixar todos os anexos de vários e-mails?

OBSERVAÇÃO

Você pode tentar este método somente se estiver usando o Outlook 2019, 2016, 2013, 2010, 2007 ou 2003.

1. Criar uma nova pasta

1. Use o janelas + E atalho para iniciar Explorador de arquivos.
2. Navegue até o Documentos pasta na barra lateral esquerda.
3. Clique com o botão direito em qualquer lugar na seção direita e escolha Novo seguido pela Pasta no menu de contexto.
4. Clique duas vezes no nome da pasta e renomeie-a como Anexos.

2. Criar um script VBA

1. Agora inicie o aplicativo Outlook no seu PC com Windows.
2. Escolha o Arquivo opção e, em seguida, selecione Opções da barra lateral esquerda.
3. Selecione Personalizar fita do painel esquerdo do Opções do Word janela.
4. Selecione os Desenvolvedor opção no Guias principais e pressione o Mais ícone para adicionar o modo Desenvolvedor ao menu da faixa de opções do Outlook.
5. Feche o pop-up Opções do Word e selecione Modo de desenvolvedor seguido pela Visual básico no menu principal.
6. Selecione Projeto 1 exibido como padrão e, em seguida, selecione Inserir seguido pela Módulo para acessar a janela Módulo.
7. Agora copie e cole o seguinte código em Módulo 1 e feche a janela.

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 & "" Else xSaveFiles = xSaveFiles & "
" & "" & xFilePath & "" 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

3. Execute o script VBS

1. Mude para o Modo de desenvolvedor e então selecione Visual básico na faixa de opções do Outlook.
2. Selecione Módulo 1 e acertar o F5 tecla para executar o código.
3. Clique no Salvar anexo botão após selecionar os anexos para confirmar a ação.

Os scripts VBA permitem automatizar o processo de download de anexos no Microsoft Outlook. No entanto, você deve proceder com cuidado com os scripts VBA para evitar danos ao seu computador.

Isso é tudo neste guia! Espero que você esteja ciente das diferentes maneiras de baixar facilmente todos os anexos de e-mail do aplicativo Microsoft Outlook.

Se você correr para o Algo deu errado erro no Outlook app, experimente as soluções sugeridas neste guia.

Se você tiver alguma dúvida ou conhecer outros métodos, informe-nos na seção de comentários.