¿Cómo eliminar todos los archivos adjuntos de un correo electrónico en Outlook?
Normalmente, cuando estás viendo un correo electrónico, puedes eliminar un archivo adjunto haciendo clic derecho y seleccionando la opción Eliminar Adjunto. A veces puede haber muchos archivos adjuntos en un mensaje de correo electrónico, y sería tedioso eliminarlos uno por uno. Aquí te mostramos dos trucos fáciles para eliminar todos los archivos adjuntos de un solo correo, así como de varios correos 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 con 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 correo seleccionado utilizando la función Eliminar Adjuntos en Outlook.
Paso 1: Selecciona el mensaje de correo cuyos archivos adjuntos eliminarás más tarde.
Paso 2: Haz clic en uno de los archivos adjuntos en el Panel de Lectura para activar las Herramientas de Archivos Adjuntos.
Paso 3: Haz clic en el botón Seleccionar todo en el grupo Selección en la pestaña Adjuntos.
Este paso te permitirá seleccionar todos los archivos adjuntos en este correo seleccionado de una vez.
Paso 4: Haz clic en el botón Eliminar Adjunto en el grupo Acciones en la pestaña Adjuntos.
Paso 5: En el cuadro de diálogo de advertencia, haz clic en el botón Eliminar Adjuntos.
Luego, todos los archivos adjuntos en este correo seleccionado se eliminarán lo antes posible.
Nota: La función Eliminar Adjuntos funciona bien en Outlook 2010 y versiones posteriores, pero no en Outlook 2007.
Eliminar fácilmente todos los archivos adjuntos de varios correos seleccionados en Outlook:
Con la utilidad Desvincular Todos los archivos adjuntos de Kutools para Excel, puedes eliminar fácilmente todos los archivos adjuntos de varios correos seleccionados como se muestra en la siguiente demostración. (Los archivos adjuntos se guardarán en una carpeta específica) ¡Descarga y prueba ahora! (30-días de prueba gratuita)
Eliminar todos los archivos adjuntos de varios mensajes de correo electrónico en Outlook con código VBA
Si deseas eliminar todos los archivos adjuntos de varios mensajes de correo electrónico en Microsoft Outlook, el siguiente método te ayudará a hacerlo fácilmente. Te recomendamos que habilites todas las macros en tu Microsoft Outlook primero.
Paso 1: Ve a la carpeta Mis Documentos, crea una nueva carpeta y nómbrala como OLAttachments.
Paso 2: Selecciona varios mensajes de correo cuyos archivos adjuntos eliminarás más tarde.
Nota: Puedes seleccionar mensajes de correo no consecutivos manteniendo presionada la tecla Ctrl y haciendo clic.
Puedes seleccionar mensajes de correo consecutivos manteniendo presionada la tecla Shift y haciendo clic.
Paso 3: Abre el Editor de VBA presionando al mismo tiempo las teclas Alt y F11.
Paso 4: Expande Proyecto1 > Objetos de Microsoft Outlook en la barra izquierda, y luego haz doble clic en EstaSesiónOutlook para abrirla en el Editor. Ver captura de pantalla a continuación:
Paso 5: Copia y pega 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: Presiona la tecla F5 para ejecutar este código VBA.
Ahora se han eliminado todos los archivos adjuntos de los correos seleccionados, dejando hipervínculos hacia cada archivo adjunto eliminado al final de todos los correos seleccionados.
Eliminar fácilmente todos los archivos adjuntos de uno o varios correos con Kutools para Outlook
La utilidad Desvincular Todos los archivos adjuntos de Kutools para Outlook puede eliminar rápidamente todos los archivos adjuntos de uno o varios correos seleccionados en Outlook. Por favor, sigue los siguientes pasos.
Kutools para Outlook : con más de 100 complementos útiles para Outlook, pruébalos gratis sin limitaciones durante 30 días.
1. Selecciona uno o varios correos con los archivos adjuntos que deseas eliminar, luego haz clic en Kutools > Herramientas de Archivos Adjuntos > Desvincular Todos. Ver captura de pantalla:
2. En el cuadro de diálogo Configuración de Desanexado, configura lo siguiente.
- 2.1 Haz clic en el botón Examinar para seleccionar una carpeta donde guardar todos los archivos adjuntos eliminados.
- 2.2 Por defecto, la casilla Desanexar adjuntos con el siguiente estilo está marcada, elige una opción para guardar los archivos adjuntos en diferentes carpetas según los correos según sea necesario.
- 2.3 Haz clic en el botón Aceptar. Ver captura de pantalla:
3. Haz clic en el botón Sí en el cuadro de diálogo Desvincular Todos.
4. Luego aparecerá un cuadro de diálogo de Kutools para Outlook indicándote cuántos archivos adjuntos se han eliminado. Haz clic en el botón Aceptar.
Ahora todos los archivos adjuntos se han eliminado inmediatamente, dejando solo los hipervínculos en los correos seleccionados. Puedes hacer clic en el hipervínculo para abrir el archivo adjunto correspondiente según sea necesario.
Si desea probar gratis (30-día) esta utilidad, haga clic para descargarla y luego vaya a aplicar la operación siguiendo los pasos mencionados anteriormente.
Las mejores herramientas de productividad para Office
Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!
¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.
📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...
📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar duplicados / Búsqueda Avanzada / Organizar carpetas...
📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...
🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan emails importantes / Minimizar Outlook en vez de cerrar...
👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.
🚀 Descarga con un solo clic — Consigue todos los complementos para Office
Muy recomendado: Kutools para Office (5 en1)
Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.
- ✅ Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
- 🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
- 🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint