Skip to main content

Como salvar apenas um anexo específico (Excel) no Outlook?

Author: Siluvia Last Modified: 2025-06-04

O Outlook oferece o recurso Salvar Todos os Anexos para ajudá-lo a salvar todos os anexos de um e-mail em uma pasta específica de uma só vez. No entanto, se você quiser salvar apenas determinados tipos de anexos em um ou mais e-mails, como pastas de trabalho do Excel, documentos do Word e assim por diante, como você faria isso? Neste tutorial, fornecemos dois métodos para resolver esse problema.

Salvar apenas anexos de formato de arquivo específico no Outlook com código VBA
Salve facilmente apenas anexos de formato de arquivo específico no Outlook com uma ferramenta incrível


Salvar apenas anexos de formato de arquivo específico no Outlook com código VBA

O seguinte código VBA pode ajudar a salvar apenas anexos de formato de arquivo específico de um ou mais e-mails selecionados em uma pasta específica. Por favor, siga os passos abaixo.

1. Abra seu Outlook. Na lista de e-mails, selecione um ou mais e-mails dos quais deseja salvar apenas anexos em um formato de arquivo específico.

2. Pressione "Alt" + "F11" para abrir a janela "Microsoft Visual Basic for Applications". Na janela que abrir, clique em "Inserir" > "Módulo", e depois copie o código VBA abaixo na janela Módulo.

Código VBA: Salvar apenas anexos específicos em um e-mail ou vários e-mails para uma pasta

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "" & "" & xFilePath & ""
                End If
            End If
        Next
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. Clique em "Ferramentas" > "Referências"; na caixa de diálogo "Referências – Projeto", marque a caixa "Microsoft Scripting Runtime" e clique no botão "OK".

steps on saving only Specific (Excel) Attachment In Outlook using vba

4. Pressione a tecla "F5" para executar o código. Na caixa de diálogo "Procurar Pasta" que aparecer, escolha uma pasta para salvar os anexos.

steps on saving only Specific (Excel) Attachment In Outlook using vba

5. Depois disso, clique em "OK", na próxima caixa de diálogo "Kutools para Outlook", insira a extensão do arquivo do anexo que deseja salvar na caixa de texto e clique em "OK".

Observação: Para várias extensões de arquivo, você precisa separá-las com vírgulas.

steps on saving only Specific (Excel) Attachment In Outlook using vba

Então, somente os anexos especificados serão salvos.


Salve facilmente apenas anexos de formato de arquivo específico no Outlook com uma ferramenta incrível

Se você é novo no VBA, aqui recomendamos que use o recurso Salvar Todos os Anexos do "Kutools para Outlook". Com este recurso, você pode facilmente salvar apenas anexos em um formato de arquivo específico no Outlook.

 👉 O Kutools para Outlook agora tem uma versão gratuita, com 70+ recursos disponíveis gratuitamente por toda a vida. Faça o download da Versão Gratuita Agora.

1. Selecione os e-mails dos quais deseja salvar apenas anexos em um formato de arquivo específico.

2. Clique em "Kutools" > "Ferramentas de Anexo" > "Salvar Todos".

steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

3. Na caixa de diálogo "Configurações de Salvamento", você precisa configurar conforme segue.

3.1) Na seção "Salvar anexos nesta pasta", clique no steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook botão para selecionar uma pasta para salvar os anexos;
3.2) Clique no botão "Opções avançadas" para expandir a caixa de diálogo;
3.3) Na seção "Condições de filtro", marque a caixa de seleção "Tipo de anexo", depois insira a extensão do arquivo dos anexos que deseja salvar no campo de texto.
Dica: Para várias extensões de arquivo, você precisa separá-las com ponto-e-vírgula.
3.4) Clique no botão "OK". Veja a captura de tela:
steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

4. Uma caixa de diálogo aparece lembrando se você deseja salvar os anexos, clique em "OK" para continuar.

5. Em seguida, outra caixa de diálogo aparece informando quantos anexos foram salvos, clique no botão "OK".

steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

Agora, apenas os anexos de formato de arquivo específico são salvos.


Artigos relacionados:


Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 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 múltiplos 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 estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...

👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o 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...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2