Como salvar anexos sem abrir o e-mail no Outlook?

Você pode frequentemente precisar salvar anexos de e-mails recebidos em discos de seu computador. É fácil salvar um anexo ou todos os anexos de uma mensagem de e-mail, mas como salvar anexos de vários e-mails de uma vez? Normalmente, você precisa abrir repetidamente os e-mails e salvar os anexos. Existe algum truque para se livrar das operações repetidas? Aqui, os métodos deste tutorial podem ajudá-lo.

Salve anexos de um ou mais e-mails sem abrir com o código VBA
Salve anexos de um ou mais e-mails sem abrir com uma ferramenta incrível

Salve anexos de um ou mais e-mails sem abrir com o código VBA

O código VBA abaixo pode ajudar a salvar anexos de um ou mais e-mails ao mesmo tempo, sem abrir os e-mails no Outlook. Faça o seguinte.

1. Selecione um e-mail ou vários e-mails nos quais você salvará os anexos, pressione o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Expanda o Objetos do Microsoft Outlook pasta, clique duas vezes no Esta sessão do Outlook para abrir o Code janela e, em seguida, copie o código VBA abaixo para ele.

Código VBA: Salve anexos sem abrir os e-mails

Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xSavePath = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
    Set xAttachments = xMailItem.Attachments
    xCount = xAttachments.Count
    xOriginalFiles = ""
    If xCount > 0 Then
        For i = xCount To 1 Step -1
            Set xAttachment = xAttachments.Item(i)
            If IsEmbeddedAttachment(xAttachment) = False Then
                xFileName = xSavePath & xAttachment.FileName
                xAttachment.SaveAsFile xFileName
                xAttachment.Delete
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
                Else
                    xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
                End If
            End If
        Next i
        If xMailItem.BodyFormat <> olFormatHTML Then
            xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
        Else
            xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
        End If
        xMailItem.Save
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

4. aperte o F5 chave para executar o código. Então uma BrowseForFolder a janela for exibida, selecione uma pasta para salvar os anexos e clique no botão OK botão.

Em seguida, todos os anexos em e-mails selecionados são salvos na pasta selecionada imediatamente.

Observação: Todos os anexos serão desanexados dos emails e manterão os links do caminho de salvamento correspondentes no corpo do email.

Salve anexos de um ou mais e-mails sem abrir com uma ferramenta incrível

Se você for um novato no VBA, o método nesta seção será sua boa escolha.

Aqui recomendo o Salvar todos os anexos utilitários de Kutools for Outlook para você. Se você deseja apenas salvar os anexos sem separar dos e-mails selecionados, o recurso Salvar todos os anexos pode ajudá-lo a fazer isso facilmente. Faça o seguinte.
Antes de aplicar o Kutools para Outlook, por favor faça o download e instale primeiramente.

1. Selecione os e-mails contendo os anexos que você salvará e clique em Kutools > Ferramentas de Anexo > Salve Todos.

2. No Salvar configurações caixa de diálogo, você precisa:

2.1) No Salve o (s) anexo (s) nesta pasta seção, escolha uma pasta para salvar os anexos;
O Salvar anexo (s) no estilo abaixo A caixa é opcional para você criar uma subpasta com estilo certian para salvar os anexos, ou renomear os anexos salvos com estilo certian.
2.3) Clique OK para começar a salvar todos os anexos de e-mails selecionados.

Tips: Com as configurações acima, todos os anexos serão salvos na pasta especificada. Se você deseja salvar apenas alguns anexos do certificado, como apenas salvar os arquivos PDF com a palavra do certificado "invoice" no nome do arquivo, você pode configurar as condições de filtro da seguinte maneira.

Clique na opções avançadas botão para expandir o Condição do filtros;
Especifique as condições com base em suas necessidades.
Dicas: Aqui eu verifico o Nome do anexo contém e, em seguida, insira "fatura" na caixa de texto e marque a caixa Tipo de anexo caixa, digite ".pdf" na caixa de texto.

3. Na próxima caixa de diálogo pop-up, clique em Sim para continuar.

Em seguida, os anexos em e-mails selecionados são salvos na pasta especificada de uma vez.

Tips: Para desanexar anexos de e-mails selecionados e deixar apenas os hiperlinks do anexo no corpo do e-mail, o Desanexar todos os anexos recurso pode ajudar.

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