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

Como remover todos os anexos de e-mail no Outlook?

Normalmente, quando você está visualizando um e-mail, pode excluir um anexo clicando com o botão direito e selecionando o Remover anexo item. Às vezes, pode haver muitos anexos em uma mensagem de e-mail e será tedioso removê-los um por um. Aqui, nós o organizamos com dois truques fáceis para remover todos os anexos em um e-mail e remover todos os anexos de vários e-mails também no Outlook.

Remova manualmente todos os anexos em uma mensagem de e-mail no Outlook
Remova todos os anexos de várias mensagens de e-mail no Outlook com código VBA
Remova facilmente todos os anexos de um ou vários e-mails com o Kutools para Outlook


Remova manualmente todos os anexos em uma mensagem de e-mail no Outlook

É fácil remover todos os anexos em mensagens de e-mail selecionadas com o Remover anexos recurso no Outlook.

Etapa 1: selecione a mensagem de e-mail cujos anexos você removerá posteriormente.

Etapa 2: Clique em um dos anexos no Painel de Leitura para ativar as Ferramentas de Anexos.

Etapa 3: clique no botão Selecionar tudo botão no Seleção grupo no Anexos aba.

Esta etapa permitirá que você selecione todos os anexos nas mensagens de e-mail selecionadas de uma vez.

Etapa 4: clique no botão Remover anexo botão no Opções grupo no Anexos aba.

Etapa 5: na caixa de diálogo de aviso, clique no botão Remover anexos botão.

Então, todos os anexos nas mensagens de e-mail selecionadas são excluídos assim que possível.

Nota: O recurso Remover Anexos funciona bem no Outlook 2010 e na versão posterior, mas não no Outlook 2007.


Remova facilmente todos os anexos de vários e-mails selecionados no Outlook:

Com o Desanexar todos os anexos utilidade de Kutools for Excel, você pode remover facilmente todos os anexos de vários e-mails selecionados, conforme mostrado na demonstração abaixo. (Os anexos serão salvos em uma pasta especificada) Baixe e experimente agora! (

-dia de trilha livre)


Remova todos os anexos de várias mensagens de e-mail no Outlook com código VBA

Se você deseja remover todos os anexos de várias mensagens de e-mail no Microsoft Outlook, o método a seguir o ajudará a fazer isso facilmente. Nós recomendamos você habilite todas as macros em seu Microsoft Outlook primeiramente.

Etapa 1: vá para a pasta de Meu documento, crie uma nova pasta e nomeie-a como Anexos OLA

Etapa 2: selecione várias mensagens de e-mail cujos anexos você removerá posteriormente.

NOTA Você pode selecionar mensagens de e-mail inconsecutivas mantendo o Ctrl tecla e clicando.

Você pode selecionar mensagens de e-mail consecutivas mantendo o mudança tecla e clicando.

Etapa 3: Abra o Editor VBA pressionando o outro chave e F11 chave ao mesmo tempo.

Etapa 4: expandir o Project1 > Objetos do Microsoft Outlook na barra esquerda e, em seguida, clique duas vezes no Esta sessão do Outlook para abri-lo no Editor. Veja a seguinte captura de tela:

Etapa 5: copie e cole o seguinte código VBA no painel de edição.

Public Sub ReplaceAttachmentsToLink()
Dim objApp As Outlook.Application
Dim aMail As Outlook.MailItem 'Object
Dim oAttachments As Outlook.Attachments
Dim oSelection As Outlook.Selection
Dim i As Long
Dim iCount As Long
Dim sFile As String
Dim sFolderPath As String
Dim sDeletedFiles As String
 
    ' Get the path to your My Documents folder
    sFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next
 
    ' Instantiate an Outlook Application object.
    Set objApp = CreateObject("Outlook.Application")
 
    ' Get the collection of selected objects.
    Set oSelection = objApp.ActiveExplorer.Selection
 
    ' Set the Attachment folder.
    sFolderPath = sFolderPath & "\OLAttachments"
 
    
    ' Check each selected item for attachments. If attachments exist,
    ' save them to the Temp folder and strip them from the item.
    For Each aMail In oSelection
 
    ' This code only strips attachments from mail items.
    ' If aMail.class=olMail Then
    ' Get the Attachments collection of the item.
    Set oAttachments = aMail.Attachments
    iCount = oAttachments.Count
     
       
    If iCount > 0 Then
     
        ' We need to use a count down loop for removing items
        ' from a collection. Otherwise, the loop counter gets
        ' confused and only every other item is removed.
         
        For i = iCount To 1 Step -1
         
            ' Save attachment before deleting from item.
            ' Get the file name.
            sFile = oAttachments.Item(i).FileName
             
            ' Combine with the path to the Temp folder.
            sFile = sFolderPath & "\" & sFile
             
            ' Save the attachment as a file.
            oAttachments.Item(i).SaveAsFile sFile
             
            ' Delete the attachment.
            oAttachments.Item(i).Delete
             
            'write the save as path to a string to add to the message
            'check for html and use html tags in link
            If aMail.BodyFormat <> olFormatHTML Then
                sDeletedFiles = sDeletedFiles & vbCrLf & "<file://" & sFile & ">"
            Else
                sDeletedFiles = sDeletedFiles & "<br>" & "<a href='file://" & _
                sFile & "'>" & sFile & "</a>"
            End If
             
                         
        Next i
        'End If
             
       ' Adds the filename string to the message body and save it
       ' Check for HTML body
       If aMail.BodyFormat <> olFormatHTML Then
           aMail.Body = aMail.Body & vbCrLf & _
           "The file(s) were saved to " & sDeletedFiles
       Else
           aMail.HTMLBody = aMail.HTMLBody & "<p>" & _
           "The file(s) were saved to " & sDeletedFiles & "</p>"
       End If
       
       aMail.Save
       'sets the attachment path to nothing before it moves on to the next message.
       sDeletedFiles = ""
    
       End If
    Next 'end aMail
     
ExitSub:
 
Set oAttachments = Nothing
Set aMail = Nothing
Set oSelection = Nothing
Set objApp = Nothing
End Sub

Etapa 6: Pressione a tecla de F5 para executar este código VBA.

Agora todos os anexos das mensagens de e-mail selecionadas são removidos, deixando hiperlinks para cada anexo excluído na parte inferior de todas as mensagens de e-mail selecionadas.


Remova facilmente todos os anexos de um ou vários e-mails com o Kutools para Outlook

A vida do Desanexar tudo utilitários de anexos de Kutools para Outlook pode remover rapidamente todos os anexos de um ou vários e-mails selecionados no Outlook. Faça o seguinte.

Kutools para Outlook : com mais de 100 suplementos úteis do Outlook, livre para tentar sem limitação em

dias.

1. Selecione uma ou várias mensagens de e-mail com os anexos que deseja remover e clique em Kutools > Ferramentas de AnexoDesanexar tudo. Veja a imagem:

2. No Desanexar configurações caixa de diálogo, configure como segue.

  • 2.1 Clique no Procurar para selecionar uma pasta para salvar todos os anexos excluídos.
  • 2.2 Por padrão, o Desanexar anexo (s) no estilo abaixo estiver marcada, escolha uma opção para salvar os anexos em pastas diferentes com base em e-mails conforme necessário.
  • 2.3 Clique no OK botão. Veja a imagem:

Notas:
1. Se você deseja salvar todos os anexos na mesma pasta, desmarque a Crie subpastas no seguinte estilo caixa.
2. Após remover os anexos, o ícone do anexo desaparecerá do e-mail da lista de distribuição. Você pode verificar o O ícone de anexo ainda permanece nos e-mails caixa para mantê-lo sempre.
2. Além de remover todos os anexos de e-mails selecionados, você pode remover anexos apenas por condições específicas. Por exemplo, se você deseja remover apenas os anexos com mais de 500 KB, clique no botão opções avançadas para expandir as condições e, em seguida, configurar conforme mostrado a seguir.

3. Clique na Sim botão no Desanexar tudo caixa de diálogo.

4. Então um Kutools para Outlook A caixa de diálogo aparecerá para informar quantos anexos foram excluídos. Por favor clique no OK botão. 

Agora, todos os anexos são removidos imediatamente, deixando apenas os hiperlinks nos e-mails selecionados. Você pode clicar no hiperlink para abrir o anexo correspondente conforme necessário.

  Se você quiser ter uma avaliação gratuita (

60
-dia) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.

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 (32)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Obrigada!!! Isso funcionou um prazer.
Este comentário foi feito pelo moderador no site
ótimo, obrigado (que vergonha para MS !!!)
Este comentário foi feito pelo moderador no site
Funcionou como um encanto! Muito obrigado
Este comentário foi feito pelo moderador no site
Exatamente o que eu estava procurando - ótimo pedaço de código - obrigado
Este comentário foi feito pelo moderador no site
Isso é incrível. No entanto, tenha em mente que se 2 anexos tiverem o mesmo nome, o mais antigo acabará sendo sobrescrito.
Este comentário foi feito pelo moderador no site
Você pode resolver o problema de dois anexos com o mesmo nome e criar rastreabilidade reversa alterando a seguinte linha no código. ' Salva o anexo antes de deletar do item. ' Obtém o nome do arquivo. sFile = Format(aMail.SentOn, "YYYYMMDDHHNNSS") & "_" & oAttachments.Item(i).FileName Isso adicionará um carimbo de data e hora na frente do nome do anexo.
Este comentário foi feito pelo moderador no site
Os anexos feitos parecem estar se soltando, ainda consigo abrir os emails e os pdfs, alguma ideia? obrigado.
Este comentário foi feito pelo moderador no site
bom trabalho. era o que eu precisava, muito obrigado
Este comentário foi feito pelo moderador no site
Isso funciona parcialmente; alguns anexos são removidos, mas muitos não são. Executando o Outlook 2013, 15.0.4701.1000. Eu hesitaria em comprar KU Tools se isso não puder ser resolvido primeiro.
Este comentário foi feito pelo moderador no site
Este código remove apenas anexos do item de e-mail selecionado. Estou usando 2013 se isso for um problema
Este comentário foi feito pelo moderador no site
O código funciona fabuloso, é possível alterar o local em que os anexos são salvos? Eu uso vários PCs diferentes no trabalho e tenho os anexos salvos no arquivo C:/. Posso salvar na unidade de rede se souber o caminho?
Este comentário foi feito pelo moderador no site
Acho o VBA muito bom, mas é possível converter o hiperlink em texto puro, pois parece que muitos hiperlinks no arquivo .pst do Outlook consumirão memória. Na verdade, eu só desejo manter os nomes dos arquivos anexos, pois os arquivos relevantes já foram salvos (se necessário) quando o e-mail é lido. Alguém ajudaria? Thx muito.
Este comentário foi feito pelo moderador no site
Ótimas dicas! Obrigado!
Este comentário foi feito pelo moderador no site
Thx muito. Na verdade, tenho usado os códigos vba conforme mostrado em "Remover todos os anexos de várias mensagens de email no Outlook com código VBA" e os códigos funcionam bem. Meu ponto é que não posso modificar os códigos para converter o hiperlink em texto simples . Não adianta mostrar o hiperlink, pois a pasta/arquivos vinculados serão excluídos mais cedo ou mais tarde à medida que o volume aumentar para um determinado tamanho. Aguardo seus conselhos adicionais. Atenciosamente
Este comentário foi feito pelo moderador no site
exclua a seção inferior da macro

If aMail.BodyFormat <> olFormatHTML Then

sDeletedFiles = sDeletedFiles & vbCrLf & "
Este comentário foi feito pelo moderador no site
Ótimo, obrigado, exatamente o que eu estava procurando!
Este comentário foi feito pelo moderador no site
Funciona para mensagens individuais do Outlook, mas para várias mensagens, os anexos sobrescrevem uns aos outros onde os anexos foram nomeados da mesma forma.
Este comentário foi feito pelo moderador no site
Como alterar o caminho da pasta para, digamos, D em vez de Meus Documentos?
Este comentário foi feito pelo moderador no site
Eu uso o KU para remover anexos em vários e-mails (cerca de 100 até agora), mas não reduziu o tamanho do arquivo da minha caixa de correio. Você pode explicar por que isso pode ser?
Este comentário foi feito pelo moderador no site
O código funciona lindamente. Apenas uma coisa que notei, o código não registra anexos em certos tipos de e-mails, como convites ou e-mails não entregues. Portanto, se esses e-mails estiverem em uma linha de e-mails selecionados, o código será interrompido quando chegar a um desses e-mails. Você precisa excluir esses anexos manualmente (ou todo o e-mail) e executar o código novamente. Não tenho certeza se há alguma maneira de alterar o código para levar esses tipos de e-mails em consideração. Caso contrário, isso tem sido extremamente útil.
Este comentário foi feito pelo moderador no site
Este código era exatamente o que eu estava procurando. Se você quiser dar um passo adiante .. Use "Mais Comandos", Escolha os comandos no menu suspenso e escolha "Macros"... você verá esta macro e "Adicionar>>"... Agora você tem um botão bem no topo. Selecione e-mails personalizados com anexos e clique no botão de nova macro na parte superior. Obrigado novamente por postar este código!!!!! :-)
Este comentário foi feito pelo moderador no site
Oi, isso foi realmente útil, mas como todos os anexos não foram salvos quando tentei novamente, ele deu uma mensagem "as macros neste projeto estão desabilitadas" ..... tentei habilitar macros no Outlook, mas sem sorte, qualquer um pode ajudar! Cumprimentos Lisa
Este comentário foi feito pelo moderador no site
O código VBA funcionou muito bem. Muito Obrigado!
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL