Note: The other languages of the website are Google-translated. Back to English
English English

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

O Outlook fornece o recurso Salvar Todos os Anexos para ajudá-lo a salvar todos os anexos de um email em uma pasta específica de uma só vez. No entanto, se você deseja 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 fazer isso? Neste tutorial, fornecemos dois métodos para resolver esse problema.

Salve 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


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

O código VBA a seguir pode ajudar a salvar apenas anexos de formato de arquivo específico em um ou mais emails selecionados em uma pasta específica. Por favor, faça o seguinte.

1. Inicie o Outlook. Na lista Mail, selecione um ou mais e-mails dos quais você deseja salvar apenas anexos em um formato de arquivo específico.

2. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela. Na janela de abertura, clique em inserção > Móduloe, em seguida, copie o código VBA abaixo para a janela Módulo.

Código VBA: salve apenas anexos específicos em um e-mail ou vários e-mails em 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 Ferramentas > Referências, Na Referências - Projeto caixa de diálogo, verifique o Tempo de execução de scripts da Microsoft caixa e clique no OK botão.

4. aperte o F5 chave para executar o código. No estalou para fora Navegar pela pasta caixa de diálogo, escolha uma pasta para salvar os anexos.

5. E então, clique OK, na sequência Kutools para Outlook caixa de diálogo, insira a extensão do arquivo do anexo que você salvará na caixa de texto e clique OK.

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

Em seguida, apenas os anexos especificados sã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 você use o Salvar todos os anexos característica de Kutools para Outlook. Com esse recurso, você pode salvar facilmente 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 Kutools > Ferramentas de Anexo > Salve Todos.

3. No Salvar configurações caixa de diálogo, você precisa configurar da seguinte maneira.

3.1) No Salve o (s) anexo (s) nesta pasta seção, clique no botão para selecionar uma pasta para salvar os anexos;
3.2) Clique no opções avançadas botão para desdobrar a caixa de diálogo;
3.3) No Condições de filtro seção, verifique o Tipo de anexo caixa de seleção e digite a extensão do arquivo dos anexos que você salvará no texto.
Dicas: Para várias extensões de arquivo, você precisa separá-las com ponto e vírgula.
3.4) Clique no OK botão. Veja a imagem:

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

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

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

Clique aqui para saber mais sobre este recurso.

  Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.


Artigos relacionados:


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos