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

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 Código 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.

NOTA 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 para 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 AnexoSalve 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.


Artigos relacionados

Baixar / salvar automaticamente anexos do Outlook para uma determinada pasta
De um modo geral, você pode salvar todos os anexos de um e-mail clicando em Anexos> Salvar todos os anexos no Outlook. Mas, se precisar salvar todos os anexos de todos os emails recebidos e recebidos, algum ideal? Este artigo apresentará duas soluções para baixar automaticamente anexos do Outlook para uma determinada pasta.

Mantenha os anexos ao responder no Outlook
Quando encaminhamos uma mensagem de e-mail no Microsoft Outlook, os anexos originais dessa mensagem de e-mail permanecem na mensagem encaminhada. No entanto, quando respondemos a uma mensagem de e-mail, os anexos originais não serão anexados na nova mensagem de resposta. Aqui, vamos apresentar alguns truques sobre como manter os anexos originais ao responder no Microsoft Outlook.

Pesquisar palavras em anexo (conteúdo) no Outlook
Quando digitamos uma palavra-chave na caixa de Pesquisa Instantânea do Outlook, ele vai pesquisar a palavra-chave nos assuntos, corpos, anexos, etc. dos emails. Mas agora só preciso pesquisar a palavra-chave no conteúdo dos anexos apenas no Outlook, alguma ideia? Este artigo mostra as etapas detalhadas para pesquisar palavras no conteúdo de anexos no Outlook com facilidade.


    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