Como guardar apenas um anexo específico do Excel no Outlook?

O Outlook oferece a funcionalidade **Guardar Todos os Anexos**, que lhe permite guardar todos os anexos de uma mensagem de correio eletrónico numa pasta específica de uma só vez. No entanto, se pretender guardar apenas determinados tipos de anexos — como Pastas de Trabalho do Excel, documentos do Word, entre outros — em um ou mais e-mails, como o pode fazer? Neste tutorial, apresentamos-lhe dois métodos para resolver este desafio.

Guarde apenas anexos específicos Tipo de Arquivo no Outlook com código VBA
Guarde facilmente apenas anexos específicos Tipo de Arquivo no Outlook com uma ferramenta incrível

Guarde apenas anexos específicos Tipo de Arquivo no Outlook com código VBA

O código VBA seguinte permite-lhe guardar apenas anexos de um tipo de ficheiro específico, provenientes de um ou mais e-mails selecionados, numa pasta à sua escolha. Siga os passos abaixo indicados.

1. Inicie o seu Outlook. Na lista de e-mails, selecione um ou mais correios dos quais pretende guardar apenas anexos com uma extensão específica de tipo de ficheiro.

2. Prima «Alt» + "F11" para abrir a janela do Microsoft Visual Basic for Applications. Na janela que surgir, clique em «Inserir» > «Módulo» e, de seguida, copie o código VBA abaixo para a janela do módulo.

Código VBA: Guarde apenas um anexo específico num correio ou em vários correios 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 opção «Microsoft Scripting Runtime» e clique em «OK».

4. Prima a tecla "F5" para executar o código. Na caixa de diálogo «Procurar Pasta» que aparece, selecione a pasta onde pretende guardar os anexos.

5. Em seguida, clique em «OK». Na caixa de diálogo seguinte do «Kutools para Outlook», introduza a extensão do ficheiro do anexo que pretende guardar na caixa de texto e clique novamente em «OK».

Nota: Para várias extensões de ficheiro, separe-as por vírgulas.

Só os anexos especificados são guardados.

Guarde facilmente apenas anexos específicos Tipo de Arquivo no Outlook com uma ferramenta incrível

Se é novo no VBA, recomendamos que utilize a funcionalidade Guardar Todos os Anexosdo «Kutools para Outlook». Com esta funcionalidade, pode guardar facilmente apenas anexos com uma extensão específica de tipo de ficheiro no Outlook.

1. Selecione os correios dos quais pretende guardar apenas anexos com uma extensão específica de tipo de ficheiro.

2. Clique em «Kutools» > «Ferramentas de Anexo» > «Guardar Todos».

3. Na caixa de diálogo «Configurações de Salvamento», configure da seguinte forma:

3,1) Na secção «Salvar anexos nesta pasta», clique no botão para Selecionar uma pasta guardar os anexos;

3,2) Clique no botão «Opções avançadas» para expandir a caixa de diálogo;

3,3) Na secção «Condições de Filtro», assinale a caixa de verificação «O tipo do anexo é» e, em seguida, introduza a extensão dos anexos que pretende guardar no campo de texto.

Dica: Para várias extensões de ficheiro, deverá separá-las por ponto e vírgula.

3,4) Clique no botão «OK». Veja a imagem:

4. Surge uma caixa de diálogo a lembrá-lo se pretende guardar os anexos; clique em «OK» para continuar.

5. Surge, então, outra caixa de diálogo a indicar quantos anexos foram guardados; clique no botão «OK».

Agora, apenas os anexos do tipo de arquivo específico são guardados.

Artigos relacionados:

• Como guardar todos os anexos das mensagens de e-mail no Outlook?
• Como remover todos os anexos das mensagens no Outlook?

---

Melhores Ferramentas de Produtividade para o Office

Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!

🤖KUTOOLS AI:Utiliza tecnologia avançada de IA para gerir e-mails sem esforço, incluindo responder, resumir, otimizar, alongar, traduzir e redigir mensagens.

📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...

📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...

📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...

🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...

👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...

👩🏼‍🤝‍👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...

Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique! Não espere mais — transfira já e aumente a sua eficiência!

Lista de Funcionalidades do Kutools para Outlook      Transferir Já      Ir para Compra

🚀 Transferência com um Clique — Obtenha Todos os Extras do Office

Altamente Recomendado: Kutools for Office (5 em 1)

Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!

• ✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
• 🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
• 🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Sobre o Conjunto⬇ Transferir o Conjunto💳 Comprar o Conjunto