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

Normalmente, ao pré-visualizar um e-mail, pode eliminar um anexo clicando com o botão direito do rato e selecionando a opção Remover Anexo. Contudo, quando uma mensagem contém muitos anexos, remover cada um individualmente torna-se cansativo. Por isso, apresentamos-lhe duas soluções simples para remover todos os anexos — quer de um único e-mail, quer de vários e-mails no Outlook.

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

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

É fácil remover todos os anexos de uma mensagem de e-mail selecionada com a funcionalidade Remover Anexos no Outlook.

Passo 1: Selecione a mensagem de e-mail da qual pretende remover os anexos posteriormente.

Passo 2: Clique num dos anexos no Painel de Leitura para ativar as Ferramentas de Anexo.

Passo 3: Clique no botão Selecionar Tudo no grupo Seleção no separador Anexos.

Este passo permite-lhe selecionar todos os anexos da mensagem de e-mail selecionada de uma só vez.

Passo 4: Clique no botão Remover Anexo no grupo Ações no separador Anexos.

Passo 5: Na caixa de diálogo de aviso, clique no botão Remover Anexos.

De seguida, todos os anexos nesta mensagem de e-mail selecionada são eliminados o mais rapidamente possível.

Nota: A funcionalidade Remover Anexos funciona corretamente no Outlook 2010 e versões posteriores, mas não está disponível no Outlook 2007.

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

Se pretender remover todos os anexos de várias mensagens de e-mail no Microsoft Outlook, o método seguinte ajudá-lo-á a fazê-lo facilmente. Recomendamos que ative todas as macros no seu Microsoft Outlook em primeiro lugar.

Passo 1: Aceda à pasta Os Meus Documentos, crie uma Nova Pasta e dê-lhe o nome OLAttachments

Passo 2: Selecione várias mensagens de e-mail cujos anexos pretende remover mais tarde.

Nota: Pode selecionar mensagens de e-mail não consecutivas mantendo premida a tecla Ctrl e clicando.

Pode selecionar mensagens de e-mail consecutivas mantendo a tecla Shift premida e clicando.

Passo 3: Abra o Editor do VBA premindo simultaneamente as teclas Alt e F11.

Passo 4: Expanda Projeto1 > Objetos do Microsoft Outlook na barra esquerda e, em seguida, faça duplo clique em ThisOutlookSession para o abrir no Editor. Veja a seguinte captura de ecrã:

Passo 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

Passo 6: Prima a tecla F5 para executar este código VBA.

Agora, todos os anexos das mensagens de e-mail selecionadas foram removidos, substituídos por hiperligações para cada anexo eliminado na parte inferior de todas as mensagens selecionadas.

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

A funcionalidade Desanexar Todos do Kutools para Outlook permite remover rapidamente todos os anexos de um ou vários e-mails selecionados no Outlook. Siga estes passos:

Kutools para Outlook: com mais de 100 add-ins úteis para o Outlook,experimente gratuitamente e sem limitações durante 30 dias.

1. Selecione uma ou várias mensagens de e-mail com os anexos que pretende remover e, em seguida, clique em Kutools > Ferramentas de Anexo > Desanexar Todos. Veja a captura de ecrã:

2. Na caixa de diálogo Configurações de desanexação, configure da seguinte forma:

• 2,1 Clique no botão Procurar para selecionar uma pasta onde guardar todos os anexos eliminados.
• 2,2 Por predefinição, a caixa Desanexar anexos com o seguinte estilo está marcada; escolha uma opção para guardar os anexos em pastas diferentes com base nos e-mails, conforme necessário.
• 2,3 Clique no botão OK. Veja a captura de ecrã:

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

4. Em seguida, aparecerá uma caixa de diálogo Kutools para Outlook a indicar quantos anexos foram eliminados. Clique no botão OK.

Agora, todos os anexos foram removidos imediatamente, restando apenas as hiperligações nos e-mails selecionados. Basta clicar numa hiperligação para abrir o respetivo anexo, sempre que necessário.

---

Melhores Ferramentas de Produtividade para o Office

Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!

🤖KUTOOLS AI:Utiliza tecnologia avançada de IA para gerir e-mails sem esforço, incluindo responder, resumir, otimizar, alongar, traduzir e redigir mensagens.

📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...

📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...

📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...

🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...

👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...

👩🏼‍🤝‍👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...

Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique! Não espere mais — transfira já e aumente a sua eficiência!

Lista de Funcionalidades do Kutools para Outlook      Transferir Já      Ir para Compra

🚀 Transferência com um Clique — Obtenha Todos os Extras do Office

Altamente Recomendado: Kutools for Office (5 em 1)

Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!

• ✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
• 🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
• 🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Sobre o Conjunto⬇ Transferir o Conjunto💳 Comprar o Conjunto