Como salvar todos os anexos de vários e-mails para uma pasta no Outlook?
É fácil salvar todos os anexos de um e-mail com o recurso Salvar Todos os Anexos integrado no Outlook. No entanto, se você deseja salvar todos os anexos de vários e-mails de uma só vez, não há nenhum recurso direto que possa ajudar. Você precisa aplicar repetidamente o recurso Salvar Todos os Anexos em cada e-mail até que todos os anexos sejam salvos desses e-mails. Isso é demorado. Neste artigo, apresentamos dois métodos para você salvar todos os anexos de vários e-mails facilmente em uma pasta específica no Outlook.
Salvar todos os anexos de vários e-mails para uma pasta com código VBA
Vários cliques para salvar todos os anexos de múltiplos e-mails para uma pasta com uma ferramenta incrível
Salvar todos os anexos de múltiplos e-mails para uma pasta com código VBA
Esta seção demonstra um código VBA em um guia passo a passo para ajudá-lo a salvar rapidamente todos os anexos de vários e-mails para uma pasta específica de uma só vez. Por favor, siga as instruções abaixo.
1. Primeiro, você precisa criar uma pasta para salvar os anexos no seu computador.
Entre na pasta "Documentos" e crie uma pasta chamada "Anexos". Veja a captura de tela:
2. Selecione os e-mails dos quais deseja salvar os anexos e, em seguida, pressione as teclas "Alt" + "F11" para abrir a janela "Microsoft Visual Basic for Applications".
3. Clique em "Inserir" > "Módulo" para abrir a janela "Módulo", e depois copie um dos seguintes códigos VBA para a janela.
Código VBA 1: Salvar anexos em massa de múltiplos e-mails (salva anexos com nomes exatamente iguais diretamente)
Dicas: Este código salvará anexos com nomes exatamente iguais adicionando dígitos 1, 2, 3... após os nomes dos arquivos.
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
Código VBA 2: Salvar anexos em massa de múltiplos e-mails (verificar duplicatas)
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
Dim xYesNo As Integer
Dim xFlag As Boolean
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
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
xFilePath = xFolderPath & xAttachments.Item(i).FileName
xFlag = True
If VBA.Dir(xFilePath, 16) <> Empty Then
xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
If xYesNo = vbNo Then xFlag = False
End If
If xFlag = True 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
Notas:
5. Pressione a tecla "F5" para executar o código.
Em seguida, todos os anexos nos e-mails selecionados serão salvos na pasta que você criou na etapa 1.
Notas: Pode haver uma caixa de prompt do "Microsoft Outlook" aparecendo, por favor, clique no botão "Permitir" para continuar.
Salvar todos os anexos de múltiplos e-mails para uma pasta com uma ferramenta incrível
Se você é novo no VBA, aqui recomendamos altamente o utilitário "Salvar Todos os Anexos" do "Kutools para Outlook" para você. Com esta ferramenta, você pode salvar rapidamente todos os anexos de múltiplos e-mails de uma só vez com apenas alguns cliques no Outlook.
Desbloqueie a máxima eficiência de e-mail com o Kutools para Outlook! Acesse 70 recursos poderosos totalmente grátis, para sempre. Faça o download da Versão Gratuita Agora!
1. Selecione os e-mails que contêm os anexos que você deseja salvar.
Dicas: Você pode selecionar vários e-mails não adjacentes mantendo a tecla "Ctrl" e selecionando-os um por um;
Ou selecione vários e-mails adjacentes mantendo a tecla "Shift" e selecionando o primeiro e o último e-mail.
2. Clique em "Kutools Plus" > "Ferramentas de Anexo" > "Salvar Todos". Veja a captura de tela:
3. Na caixa de diálogo "Configurações de Salvamento", clique no 
botão para selecionar uma pasta para salvar os anexos, e depois clique no botão "OK".
4. Clique em "OK" duas vezes nas próximas caixas de diálogo que aparecerem. Em seguida, todos os anexos nos e-mails selecionados serão salvos na pasta especificada de uma só vez.
Notas:
- 1. Se você deseja salvar anexos em diferentes pastas com base nos e-mails, marque a caixa "Criar subpastas no seguinte estilo" e escolha um estilo de pasta no menu suspenso.
- 2. Além de salvar todos os anexos, você pode salvar anexos com condições específicas. Por exemplo, se você deseja salvar apenas os anexos de arquivos PDF cujo nome do arquivo contém a palavra "Fatura", clique no botão "Opções avançadas" para expandir as condições e, em seguida, configure conforme mostrado abaixo.
- 3. Se você deseja salvar automaticamente anexos quando os e-mails chegarem, o recurso Salvar Automaticamente Anexos pode ajudar.
- 4. Para desanexar os anexos diretamente dos e-mails selecionados, o recurso Desanexar Todos os Anexos do "Kutools para Outlook" pode ajudá-lo.
Artigos relacionados
Inserir anexos no corpo da mensagem de e-mail no Outlook
Normalmente, os anexos são exibidos no campo Anexos em um e-mail sendo redigido. Aqui, este tutorial oferece métodos para ajudá-lo a inserir facilmente anexos no corpo do e-mail no Outlook.
Baixar/Salvar automaticamente anexos do Outlook para uma pasta específica
Geralmente falando, você pode salvar todos os anexos de um e-mail clicando em Anexos > Salvar Todos os Anexos no Outlook. Mas, se você precisar salvar todos os anexos de todos os e-mails recebidos e recebendo, alguma ideia? Este artigo introduzirá duas soluções para baixar automaticamente anexos do Outlook para uma pasta específica.
Imprimir todos os anexos em um/múltiplos e-mails no Outlook
Como você sabe, ao clicar em Arquivo > Imprimir no Microsoft Outlook, ele imprimirá apenas o conteúdo do e-mail, como cabeçalho, corpo, mas não os anexos. Aqui mostraremos como imprimir todos os anexos em um e-mail selecionado facilmente no Microsoft Outlook.
Pesquisar palavras dentro do anexo (conteúdo) no Outlook
Quando digitamos uma palavra-chave na caixa de Pesquisa Instantânea no Outlook, ela pesquisará a palavra-chave nos assuntos, corpos, anexos, etc., dos e-mails. Mas agora eu só preciso pesquisar a palavra-chave no conteúdo do anexo apenas no Outlook, alguma ideia? Este artigo mostra as etapas detalhadas para pesquisar palavras dentro do conteúdo do anexo no Outlook facilmente.
Manter anexos ao responder no Outlook
Quando encaminhamos uma mensagem de e-mail no Microsoft Outlook, os anexos originais nessa mensagem de e-mail permanecem na mensagem encaminhada. No entanto, ao responder a uma mensagem de e-mail, os anexos originais não serão anexados na nova mensagem de resposta. Aqui vamos introduzir alguns truques sobre como manter os anexos originais ao responder no Microsoft Outlook.
Melhores Ferramentas de Produtividade para Office
Notícia Urgente: Kutools para Outlook lança versão gratuita!
Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com vários destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir emails duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e divertidos / Aviso de chegada de emails importantes / Minimizar Outlook em vez de fechar...
👍 Praticidade com um clique: Responder a Todos com Anexos / Anti-Phishing Emails / 🕘Exibir fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
Use o Kutools no idioma que preferir – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
