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 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

1. Selecione uma ou várias mensagens de e-mail com os anexos que deseja remover e clique em Kutools > Ferramentas de Anexo > Desanexar 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:

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.

---

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.

Leia mais... Baixe Agora...