Como remover todos os anexos de um e-mail no Outlook?
Normalmente, ao visualizar um e-mail, você pode excluir um anexo clicando com o botão direito do mouse e selecionando a opção Remover Anexo. Às vezes, pode haver muitos anexos em uma mensagem de e-mail, e será tedioso removê-los um por um. Aqui apresentamos dois truques fáceis para remover todos os anexos de um e-mail e também remover todos os anexos 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
Remova facilmente todos os anexos de um ou vários e-mails com o 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 o recurso Remover Anexos no Outlook.
Passo 1: Selecione a mensagem de e-mail cujos anexos você deseja remover posteriormente.
Passo 2: Clique em um dos anexos no Painel de Leitura para ativar as Ferramentas de Anexo.
Passo 3: Clique no botão Selecionar Tudo no grupo Intervalo na guia Anexos.
Este passo permitirá que você selecione todos os anexos desta mensagem de e-mail selecionada de uma só vez.
Passo 4: Clique no botão Remover Anexo no grupo Ações na guia Anexos.
Passo 5: Na caixa de diálogo de aviso, clique no botão Remover Anexos.
Então, todos os anexos nesta mensagem de e-mail selecionada serão excluídos assim que possível.
Observação: O recurso Remover Anexos funciona bem no Outlook 2010 e nas versões posteriores, mas não no Outlook 2007.
Remova facilmente todos os anexos de vários e-mails selecionados no Outlook:
Com a utilidade Desanexar Todos os anexos do Kutools para Excel, você pode facilmente remover todos os anexos de vários e-mails selecionados, conforme mostrado na demonstração abaixo. (Os anexos serão salvos em uma pasta específica) Baixe e experimente agora! (30-dias de teste grátis)
Remover todos os anexos de várias mensagens de e-mail no Outlook com código VBA
Se você quiser remover todos os anexos de várias mensagens de e-mail no Microsoft Outlook, o método a seguir ajudará você a fazer isso facilmente. Recomendamos que habilite todas as macros no seu Microsoft Outlook primeiro.
Passo 1: Vá para a pasta Meus Documentos, crie uma nova pasta e nomeie-a como OLAttachments.
Passo 2: Selecione várias mensagens de e-mail cujos anexos você deseja remover posteriormente.
Observação: Você pode selecionar mensagens de e-mail não consecutivas mantendo a tecla Ctrl pressionada e clicando.
Você pode selecionar mensagens de e-mail consecutivas mantendo a tecla Shift pressionada e clicando.
Passo 3: Abra o Editor VBA pressionando simultaneamente as teclas Alt e F11.
Passo 4: Expanda o Projeto1 > Objetos do Microsoft Outlook na barra lateral esquerda e, em seguida, clique duas vezes em ThisOutlookSession para abri-lo no Editor. Veja a captura de tela a seguir:
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 SubPasso 6: Pressione a tecla 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 utilidade Desanexar Todos os anexos do Kutools para Outlook pode remover rapidamente todos os anexos de um ou vários e-mails selecionados no Outlook. Por favor, siga os passos abaixo.
Kutools para Outlook : com mais de 100 complementos úteis para o Outlook, grátis para experimentar sem limitações por 30 dias.
1. Selecione uma ou várias mensagens de e-mail com os anexos que deseja remover, depois clique em Kutools > Ferramentas de Anexo > Desanexar Todos. Veja a captura de tela:
2. No diálogo Configurações de Desanexação, configure da seguinte forma.
- 2.1 Clique no botão Procurar para selecionar uma pasta para salvar todos os anexos excluídos.
- 2.2 Por padrão, a caixa Desanexar anexos com o estilo abaixo está marcada, escolha uma opção para salvar os anexos em diferentes pastas com base nos e-mails conforme necessário.
- 2.3 Clique no botão OK. Veja a captura de tela:
3. Clique no botão Sim na caixa de diálogo Desanexar Todos.
4. Em seguida, uma caixa de diálogo do Kutools para Outlook aparecerá informando quantos anexos foram excluídos. Por favor, clique no botão OK.
Agora, todos os anexos são removidos imediatamente, restando apenas os hiperlinks nos e-mails selecionados. Você pode clicar no hiperlink para abrir o anexo correspondente conforme necessário.
Se você deseja experimentar este utilitário gratuitamente (30 dias), clique para baixá-lo e, em seguida, vá aplicar a operação de acordo com os passos acima.
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
