¿Cómo eliminar todos los archivos adjuntos de un correo electrónico en Outlook?
Normalmente, al previsualizar un correo electrónico, puede eliminar un archivo adjunto haciendo clic con el botón derecho y seleccionando la opción Quitar archivo adjunto. Sin embargo, si un mensaje contiene muchos archivos adjuntos, eliminarlos uno a uno puede volverse tedioso. Por eso, le ofrecemos dos métodos sencillos para eliminar todos los archivos adjuntos de un solo correo electrónico… ¡e incluso de varios correos a la vez en Outlook!
Eliminar manualmente todos los archivos adjuntos de un mensaje de correo electrónico en Outlook
Eliminar todos los archivos adjuntos de varios mensajes de correo electrónico en Outlook mediante código VBA
Eliminar fácilmente todos los archivos adjuntos de uno o varios correos electrónicos con Kutools para Outlook
Eliminar manualmente todos los archivos adjuntos de un mensaje de correo electrónico en Outlook
Es fácil eliminar todos los archivos adjuntos de un mensaje de correo electrónico seleccionado con la función Quitar archivos adjuntos en Outlook.
Paso 1: Seleccione el mensaje de correo electrónico del que desea eliminar los archivos adjuntos más adelante.
Paso 2: Haga clic en cualquiera de los archivos adjuntos del panel de lectura para activar la pestaña Herramientas de archivos adjuntos.
Paso 3: Haga clic en el botón Seleccionar todo del grupo Selección en la pestaña Archivos adjuntos.
Este paso le permite seleccionar todos los archivos adjuntos del mensaje de correo electrónico elegido de una sola vez.
Paso 4: Haga clic en el botón Quitar archivo adjunto del grupo Acciones en la pestaña Archivos adjuntos.
Paso 5: En el cuadro de diálogo de advertencia, haga clic en el botón Quitar archivos adjuntos.
Por lo tanto, todos los archivos adjuntos de este mensaje de correo electrónico seleccionado se eliminarán lo antes posible.
Nota: La función Quitar archivos adjuntos funciona correctamente en Outlook 2010 y versiones posteriores, pero no está disponible en Outlook 2007.
Elimine fácilmente todos los archivos adjuntos de varios correos electrónicos seleccionados en Outlook:
Con la utilidad Desconectar todos los archivos adjuntos de Kutools para Excel, podrá eliminar fácilmente todos los archivos adjuntos de varios correos electrónicos seleccionados, tal como se muestra en la siguiente demostración. (Los archivos adjuntos se guardarán en una carpeta especificada) ¡Descárguelo y pruébelo ahora! (prueba gratuita de 30 días)
Eliminar todos los archivos adjuntos de varios mensajes de correo electrónico en Outlook mediante código VBA
Si desea eliminar todos los archivos adjuntos de varios mensajes de correo electrónico en Microsoft Outlook, el siguiente método le ayudará a hacerlo fácilmente. Le recomendamos que, en primer lugar, active todas las macros en su Microsoft Outlook.
Paso 1: Vaya a la carpeta Mis documentos, cree una Nueva carpeta y asígnela el nombre OLAttachments
Paso 2: Seleccione varios mensajes de correo electrónico cuyos archivos adjuntos desee eliminar posteriormente.
Nota: Puede seleccionar mensajes de correo electrónico no consecutivos manteniendo pulsada la tecla Ctrl y haciendo clic.
Puede seleccionar mensajes de correo electrónico consecutivos manteniendo pulsada la tecla Mayús y haciendo clic.
Paso 3: Abra el Editor de VBA pulsando simultáneamente las teclas Alt y F11.
Paso 4: Expanda Proyecto1 > Objetos de Microsoft Outlook en la barra izquierda y, a continuación, haga doble clic en ThisOutlookSession para abrirlo en el editor. Vea la siguiente captura de pantalla:
Paso 5: Copie y pegue el siguiente código VBA en el panel de edición.
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 SubPaso 6: Pulse la tecla F5 para ejecutar este código VBA.
Ahora se han eliminado todos los archivos adjuntos de los mensajes de correo electrónico seleccionados, y al final de cada mensaje aparece un hipervínculo que enlaza con el archivo adjunto correspondiente.
Eliminar fácilmente todos los archivos adjuntos de uno o varios correos electrónicos con Kutools para Outlook
La utilidad Desconectar todos archivos adjuntos de Kutools para Outlook permite eliminar rápidamente todos los archivos adjuntos de uno o varios correos electrónicos seleccionados en Outlook. Siga estos pasos.
Kutools para Outlook: con más de 100 complementos prácticos para Outlook, ¡pruébelo gratis sin limitaciones durante 30 días!
1. Seleccione uno o varios mensajes de correo electrónico que contengan los archivos adjuntos que desea eliminar y, a continuación, haga clic en Kutools > Herramientas de archivos adjuntos > Desconectar todos. Vea la captura de pantalla:
2. En el cuadro de diálogo Configuración de desanexado, realice la siguiente configuración.
- 2,1 Haga clic en el botón Examinar para seleccionar una carpeta y guardar todos los archivos adjuntos eliminados.
- 2,2 De forma predeterminada, la casilla Desanexar adjuntos con el siguiente estilo está marcada; seleccione una opción para guardar los archivos adjuntos en carpetas distintas según el correo electrónico, adaptándolo a sus necesidades.
- 2,3 Haga clic en el botón Aceptar. Vea la captura de pantalla:
3. Haga clic en el botón Sí en el cuadro de diálogo Desconectar todos.
4. A continuación, aparecerá un cuadro de diálogo Kutools para Outlook informándole de cuántos archivos adjuntos se han eliminado. Haga clic en el botón Aceptar.
Ahora todos los archivos adjuntos se han eliminado inmediatamente, dejando únicamente los hipervínculos en los correos electrónicos seleccionados. Puede hacer clic en el hipervínculo para abrir el archivo adjunto correspondiente cuando lo necesite.
Si desea probar gratuitamente (30 días) esta utilidad, haga clic aquí para descargarla y, a continuación, siga los pasos anteriores para aplicar la operación.
Las mejores herramientas de productividad para Office
¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!
📧Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar el envío de correos electrónicos / CC/BCC automático según reglas al enviar correos / Reenvío automático (regla avanzada) / Añadir saludo automáticamente / Dividir automáticamente los correos con múltiples destinatarios en mensajes individuales...
📨Gestión de correo electrónico: Recupera tus correos electrónicos / Bloquea correos fraudulentos por asunto y otros criterios / Elimina correos electrónicos duplicados / Búsqueda avanzada / Organiza tus carpetas…
📁Archivos adjuntos Pro: Guardar en lote / Desvincular en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto comprimir...
🌟Magia de la interfaz: 😊Más emojis bonitos y modernos / Le avisa cuando llegan correos importantes / Minimiza Outlook en lugar de cerrarlo…
👍Maravillas con un solo clic: Responder a Todos con Adjuntos / Correos electrónicos antiphishing / 🕘 Mostrar zona horaria: hora actual del remitente...
👩🏼🤝👩🏻Contactos y calendario: Crear contactos en lote a partir de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
Utilice Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y más de 40 idiomas adicionales.
🚀 Descarga con un solo clic — Obtenga todos los complementos de Office
Muy recomendado: Kutools for Office (5 en 1)
Un solo clic para descargar cinco instaladoresa la vez —Kutools para Excel, Outlook, Word, PowerPointy Office Tab Pro.¡Haga clic para descargar ahora!
- ✅Comodidad con un solo clic: Descargue los cinco paquetes de instalación de una sola vez.
- 🚀Listo para cualquier tarea de Office: Instale los complementos que necesite, justo cuando los necesite.
- 🧰Incluido: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint