Como baixar anexos do Outlook de vários e-mails para uma pasta local

Baixar anexos de um único e-mail é muito fácil. A maioria dos clientes oferece uma maneira de baixar arquivos ZIP. Mas é complicado quando se trata de extrair ou baixar anexos do Outlook de vários e-mails. Como esse recurso não é oferecido antecipadamente por nenhum dos clientes online ou offline, teremos que encontrar scripts e ferramentas para implementá-lo.

Como baixar anexos de vários e-mails no Outlook

Você pode usar qualquer um desses métodos para baixar anexos. Isso exigirá o VB Script, portanto, certifique-se de ter permissões suficientes para sua conta.

1. NirSoft OutlookAttachView
2. Script VB personalizado

Cada ferramenta tem suas próprias vantagens e desvantagens. Certifique-se de conhecê-los antes de escolher qual usar.

1] NirSoft OutlookAttachView

Se você estiver usando a versão Microsoft Office do Outlook para receber e-mails, poderá usar um software gratuito chamado OutlookAttachView para baixar todos os seus anexos. Ele tem funcionado com todos os tipos de Outlook desde 2003, embora o Outlook explícito não seja suportado.

Para começar, baixe o software (obtenha a versão de 64 bits se estiver usando a versão de 64 bits do Outlook), descompacte o arquivo ZIP e abra OutlookAttachView.exe.

As opções de verificação da caixa de correio serão abertas. Você pode especificar quais anexos deseja verificar. Entre outras, as opções consistem em:

• Qual perfil do Outlook verificar
• Verificar mensagens criadas nos últimos X dias
• Excluir certos tipos de documentos
• Escanear mensagens de pessoas específicas
• Verificar anexos com conteúdo de texto específico

Siga estas etapas para extrair anexos:

• Depois de instalar o software, deixe tudo como padrão se realmente quiser que todos os anexos da sua caixa de entrada sejam salvos. Configure o software. Quando estiver pronto para iniciar a digitalização, clique em OK.
• A varredura é rápida; no entanto, obviamente levará mais tempo se você tiver recebido um grande arquivo de e-mails. Infelizmente, não há barra de progresso na varredura, então você não pode dizer o quão longe ela foi, então é melhor deixá-la rodando em segundo plano e voltar mais tarde para ver se ela foi concluída.
• Depois que a verificação for concluída, você poderá visualizar e visualizar todos os anexos com colunas mostrando entradas como nome do arquivo, tamanho do arquivo e extensão.
• Para selecionar anexos específicos, segure Ctrl e clique com o botão esquerdo em cada linha. Como alternativa, pressione Ctrl + A para realçar (selecionar) todos os anexos.
• Em seguida, clique no menu “Arquivo” e clique em “Copiar anexos selecionados para” (pressione F4). Você pode especificar para onde exportar anexos e formatar nomes de documentos. Quando estiver pronto, clique em OK.
• Ele baixará ou salvará todos os anexos selecionados na pasta de destino.

No entanto, eles não podem ser removidos de seus e-mails, portanto, você ainda pode acessá-los por meio do Outlook, se desejar.

2] Usando VB Script

Este segmento demonstra o código VBA em um passo a passo que o ajudará salve todos os anexos de e-mails diferentes na pasta selecionada ao mesmo tempo .

• Primeiro , você precisa criar uma pasta para salvar os anexos em sua unidade local. Use o File Explorer e um local conhecido para criar uma pasta e nomeá-la como Anexos.
• Selecione os e-mails dos quais deseja baixar os anexos e pressione Alt+F11 para abrir a janela Programas do Microsoft Visual Basic.

• Clique em “ Inserir ”> “Módulo”para abrir a janela “Módulo”, copie um dos seguintes códigos VBA para a janela.
• Pressione F5 ou use o menu para executar o código e todos os anexos do e-mail selecionado serão baixados ou copiados para a pasta Anexos.

código VBA

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
If xSaveFiles <> ""Then
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = vbCrLf & "The file(s) were saved to "& xSaveFiles & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "<p>"& "The file(s) were saved to "& xSaveFiles & "</p>"& xMailItem.HTMLBody
End If
End If
xMailItem.Save
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

Você também pode copiar o código daqui e colá-lo.

Como baixar anexos de vários e-mails no Gmail

O complemento gratuito Salvar e-mails e anexos do SendPulse para Gmail exporta seus anexos para o Google. O que o destaca é que ele começa automaticamente a procurar por novos anexos, o que significa que você nunca deve pensar em fazer esse método manualmente. Ele funciona corretamente para uma exportação única, se isso for tudo o que você precisa.

Observação. O serviço terá acesso à sua conta do Gmail, portanto, faça uma escolha informada se deseja se conectar.

Siga as instruções para usar esta ferramenta

• Acesse a página da Web do complemento e clique em Instalar.
• Selecione sua conta do Google e clique em “Permitir” e depois termine.
• Vá para o Planilhas Google e crie uma nova tabela.
• Visite Complementos > Salvar e-mails e anexos > Abrir barra lateral.
• Defina o rótulo do Gmail que você deseja verificar e especifique outros filtros, como de quem é o e-mail ou depois e antes do intervalo de datas (você deseja definir pelo menos esses filtros).

• Clique em “Configurações de upload”, configure-as conforme necessário e clique em “Selecionar pasta” para selecionar a pasta em sua unidade onde os anexos devem ser armazenados.
• Quando terminar, clique em Salvar regra > Executar. O complemento será executado automaticamente na parte de trás e atualizado à medida que novos e-mails chegarem.

Você pode armazenar anexos dentro da unidade. Como alternativa, abra a unidade, clique com o botão direito do mouse na pasta e selecione Carregar para salvar uma réplica local. Você pode excluir a pasta do disco para liberar o armazenamento em nuvem.

Baixe a extensão daqui

Como baixar anexos de vários e-mails em qualquer servidor de e-mail

Mail Attachment Downloader é uma opção acessível, pois funciona em muitos serviços de e-mail, como Outlook, Gmail, AOL, Yahoo ou qualquer servidor de e-mail. Também é gratuito para uso pessoal.

A desvantagem é que existem alguns complementos que você pode obter na versão paga. Isso inclui a capacidade de praticar alguns filtros e fazer upload de várias contas ao mesmo tempo. Você pode encontrar a diferença completa na página de licenciamento de software.

Observação. Você precisará inserir suas credenciais de e-mail aqui. Portanto, certifique-se de ter total confiança e faça uma escolha informada.

Vamos dar uma olhada na etapa mais fácil para extrair anexos de vários e-mails.

• Baixe o ZIP, extraia-o e execute o instalador EXE dentro dele. Uma vez conectado, inicie o downloader de anexos de e-mail.
• Clique em “Configurações”. Aqui você pode selecionar um servidor de e-mail (quem enviou seu e-mail) após o qual você insere uma conta e senha. Certifique-se de ler a barra preta na parte inferior, incluindo informações importantes.

• Quando estiver pronto, clique em Testar conexão. Se isso não funcionar, verifique se você ativou o protocolo POP/IMAP conforme necessário e se o desafio e a senha da sua conta estão corretos. Quando estiver certo, clique em Salvar.
• Se você deseja que os anexos sejam enviados para uma pasta exclusiva, altere a área de salvamento. Você pode personalizar ainda mais esse sistema usando guias. Por exemplo, em pastas/documentos, você pode restringir a pesquisa às pastas selecionadas. Ao pesquisar, você pode especificar um intervalo de datas. Nos filtros, você pode especificar perguntas que consistem no remetente ou na string do problema.
• Quando estiver pronto, clique em Conectar e baixar. Em seguida, ele salvará seus anexos na pasta de sua escolha.

Baixe no site oficial . O software oferece uma versão gratuita para uso pessoal.

palavras finais

O download de vários anexos de vários e-mails deve ser um recurso em todos os clientes de e-mail. Eu uso um script para baixar documentos em PDF que recebo dos clientes todos os dias no final do mês. Isso garante que eu tenha cópias de todos e não perca tempo baixando-os individualmente.