Os cookies nos ajudam a oferecer nossos serviços. Ao utilizar nossos serviços, você concorda com a nossa utilização de cookies.
Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Cadastre-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!

Kutools for Outlook: 100 + Novas Ferramentas Avançadas para o Outlook.
Office Tab: Ativar edição com guias e navegação no Office, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menu Clássico: Traga os velhos menus e as barras de ferramentas de volta para Office 2007, 2010, 2013, 2016 e 2019.

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

Mais do que 100 Funções avançadas para o Outlook 2010, 2013, 2016, 2019 e 365

screen shot kutools para outlook minúsculo para banner 201812

mais recursos | Download grátis | Apenas $ 39.00 para centenas de funções

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.