Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

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

O Outlook fornece um recurso Salvar todos os anexos para você salvar rapidamente todos os anexos em um email em uma pasta específica de uma só vez. No entanto, se você quiser salvar apenas um tipo específico de anexo em um email, como um anexo do Excel, um documento do Word, etc., o que você pode fazer para obtê-lo? Aqui nós fornecemos um método VBA para resolver o problema.

Salvar somente anexo específico no Outlook


Guarde facilmente todos os anexos de vários e-mails selecionados para a pasta:

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

Kutools for Outlook: com mais de 40 acessíveis suplementos do Outlook, pode tentar sem limitação em dias 45. Baixe e teste grátis agora!

Guia do Office - Habilite a edição e navegação com guias no Office e torne o trabalho muito mais fácil ...
Kutools for Outlook - Traz Recursos Avançados Poderosos do 100 para o Microsoft Outlook
  • Auto CC / BCC por regras ao enviar email; Avanço automático Vários e-mails por regras; Resposta automatica sem servidor de troca 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 faltam anexose mais lembrar recursos ...
  • Responder (todos) com todos os anexos na conversa por email; Responder muitos e-mails de uma só vez; Auto Adicionar saudação quando responder; Adicionar data e hora automaticamente ao assunto ...
  • Ferramentas de anexos: Auto desanexar, compactar tudo, renomear tudo, salvar automaticamente todos ... Relatório Rápido, Contar e-mails selecionados, Remover e-mails duplicados e contatos ...
  • Mais do que os recursos avançados do 100 resolver a maioria dos seus problemas no Outlook 2010-2019 e 365. Recursos completos Avaliação gratuita de um dia de 60.

Salvar somente anexo específico no Outlook

O código VBA abaixo pode ajudar a salvar somente anexos específicos em um email ou vários emails em uma pasta específica. Por favor faça o seguinte.

1. Inicie o seu Outlook, na lista de discussão, selecione um e-mail ou vários e-mails que 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 abaixo do código do VBA para a janela do módulo.

Código VBA: Salvar somente anexo específico em um email ou vários emails 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 > caso, Na Referências - Projeto diálogo, verifique o Microsoft Scripting Runtime caixa e clique no OK botão.

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

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

Então, apenas os anexos especificados são salvos.

Notas:

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

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


Artigos relacionados:


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

  • Auto CC / BCC por regras ao enviar email; Avanço automático Vários e-mails personalizados Resposta automatica sem servidor de troca 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 de BCC; Lembrar quando faltam anexose mais lembrar recursos ...
  • Responder (todos) com todos os anexos na conversa de email; Responder muitos e-mails em segundos; Auto Adicionar saudação quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Auto Detach, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar mensagens selecionadas...
  • Lixo Eletrônico Poderoso pelo costume; Remover emails e contatos duplicados... Permitir que você faça de forma mais inteligente, rápida e melhor no Outlook.
tiro kutools outlook kutools aba 1180x121
tiro kutools outlook kutools mais aba 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
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.