Note: The other languages of the website are Google-translated. Back to English
Registo de cliente  \/ 
x
or
x
Registe-se  \/ 
x

or

Como salvar apenas anexos específicos (excel) no Outlook?

O Outlook fornece um recurso Salvar todos os anexos para que você salve rapidamente todos os anexos de um e-mail em uma pasta específica de uma vez. No entanto, se você quiser salvar apenas um tipo específico de anexo em um e-mail, como anexo do Excel, documento do Word e assim por diante, o que pode fazer para conseguir isso? Aqui, fornecemos um método VBA para resolver o problema.

Salvar apenas anexos específicos no Outlook


Salve facilmente todos os anexos de vários e-mails selecionados na pasta:

Com o Desanexar todos os anexos utilidade de Kutools for Excel, você pode salvar facilmente todos os anexos de vários e-mails selecionados para a pasta especificada no Outlook, conforme mostrado abaixo.

Kutools para Outlook: com mais de 40 suplementos úteis do Outlook, grátis para testar sem limitação em 45 dias. Baixe e teste grátis agora!

Guia Office - Habilite a edição e navegação com guias no Office e torne o trabalho muito mais fácil ...
Kutools for Outlook - traz 100 recursos avançados poderosos para o Microsoft Outlook
  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários e-mails por regras; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tenta 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 de uma vez; Adicionar saudação automaticamente quando responder; Adicionar data e hora automaticamente ao assunto ...
  • Ferramentas de Anexo: Desanexar automaticamente, Comprimir tudo, Renomear tudo, Salvar tudo automaticamente ... Relatório Rápido, Contar e-mails selecionados, Remover e-mails e contatos duplicados ...
  • Mais de 100 recursos avançados resolva a maioria dos seus problemas no Outlook 2010-2019 e 365. Recursos completos de avaliação gratuita de 60 dias.

Salvar apenas anexos específicos no Outlook

O código VBA abaixo pode ajudar a salvar apenas anexos específicos em um e-mail ou vários e-mails em uma pasta específica. Faça o seguinte.

1. Inicie o Outlook, na lista de distribuição, selecione um ou mais e-mails dos quais você salvará um anexo 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 20181130
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 & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next
        If xItem.BodyFormat <> olFormatHTML Then
            xItem.Body = vbCrLf & "The file(s) were saved to " & xFilesSavePath & vbCrLf & xItem.Body
        Else
            xItem.HTMLBody = "<p>" & "The file(s) were saved to " & xFilesSavePath & "</p>" & xItem.HTMLBody
        End If
        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.

Em seguida, apenas os anexos especificados são salvos.

Notas:

1. Se você deseja salvar diferentes tipos de anexos, insira as extensões dos arquivos na caixa de texto e separe-os por vírgula.

2. Depois de salvar, um caminho para salvar o anexo é exibido no corpo da mensagem. Você pode abrir o anexo clicando diretamente no hiperlink.


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
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.