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.
Note: 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! (trilha gratuita de 30 dias)
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.
Observação: Você pode selecionar mensagens de e-mail inconsecutivas mantendo o Ctrl tecla e clicando.
Você pode selecionar mensagens de e-mail consecutivas mantendo o Shift 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 Desanexar tudo utilitários de anexos de Kutools for Outlook pode remover rapidamente todos os anexos de um ou vários e-mails selecionados no Outlook. Faça o seguinte.
Kutools for Outlook : com mais de 100 suplementos úteis do Outlook, grátis para experimentar sem limitação em 60 dias.
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 for 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 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.
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.