Como salvar apenas um anexo específico (Excel) no Outlook?
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".
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.
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.
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.
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".

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


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".

Agora, apenas os anexos de formato de arquivo específico são salvos.
Artigos relacionados:
- Como salvar todos os anexos das mensagens de e-mail no Outlook?
- Como remover todos os anexos de um e-mail no Outlook?
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!
📧 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...

