¿Cómo eliminar todos los archivos adjuntos del correo electrónico en Outlook?

Normalmente, cuando obtiene una vista previa de un correo electrónico, puede eliminar un archivo adjunto haciendo clic derecho y seleccionar el Eliminar archivo adjunto articulo. A veces, puede haber muchos archivos adjuntos en un mensaje de correo electrónico, y será tedioso eliminarlos uno por uno. Aquí lo organizamos con dos trucos fáciles para eliminar todos los archivos adjuntos en un correo electrónico y eliminar todos los archivos adjuntos de varios correos electrónicos también en Outlook.

Elimine manualmente todos los archivos adjuntos en un mensaje de correo electrónico en Outlook
Elimine todos los archivos adjuntos de varios mensajes de correo electrónico en Outlook con el código VBA
Elimine fácilmente todos los archivos adjuntos de uno o varios correos electrónicos con Kutools para Outlook

Elimine manualmente todos los archivos adjuntos en un mensaje de correo electrónico en Outlook

Es fácil eliminar todos los archivos adjuntos en un mensaje de correo electrónico seleccionado con el Eliminar archivos adjuntos característica en Outlook.

Paso 1: seleccione el mensaje de correo electrónico cuyos archivos adjuntos eliminará más adelante.

Paso 2: haga clic en uno de los archivos adjuntos en el panel de lectura para activar las herramientas de archivos adjuntos.

Paso 3: haga clic en Seleccionar todo botón en el Selección grupo en el Archivos adjuntos .

Este paso le permitirá seleccionar todos los archivos adjuntos en estos mensajes de correo electrónico seleccionados a la vez.

Paso 4: haga clic en Eliminar archivo adjunto botón en el Acciones grupo en el Archivos adjuntos .

Paso 5: en el cuadro de diálogo de advertencia, haga clic en el Eliminar archivos adjuntos del botón.

Luego, todos los archivos adjuntos en estos mensajes de correo electrónico seleccionados se eliminan lo antes posible.

Note: La función Eliminar archivos adjuntos funciona bien en Outlook 2010 y la versión posterior, pero no en Outlook 2007.

Elimine todos los archivos adjuntos de varios mensajes de correo electrónico en Outlook con el código VBA

Si desea eliminar todos los archivos adjuntos de varios mensajes de correo electrónico en Microsoft Outlook, el siguiente método lo ayudará a hacerlo fácilmente. Te recomendamos habilitar todas las macros en su Microsoft Outlook en primer lugar.

Paso 1: ve a la carpeta de Mi documento, cree una nueva carpeta y asígnele el nombre Adjuntos OLA

Paso 2: seleccione varios mensajes de correo electrónico cuyos archivos adjuntos eliminará más adelante.

Nota: Puede seleccionar mensajes de correo electrónico no consecutivos sosteniendo el Ctrl y haciendo clic.

Puede seleccionar mensajes de correo electrónico consecutivos sosteniendo el Shift y haciendo clic.

Paso 3: Abra el Editor de VBA presionando el otro clave y F11 clave al mismo tiempo.

Paso 4: expanda el Proyecto1 > Objetos de Microsoft Outlook en la barra izquierda, y luego haga doble clic en el Esta sesión de Outlook 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 Sub

Paso 6: Presione la tecla de F5 para ejecutar este código VBA.

Ahora se eliminan todos los archivos adjuntos de los mensajes de correo electrónico seleccionados, dejando hipervínculos a cada archivo adjunto eliminado en la parte inferior de todos los mensajes de correo electrónico seleccionados.

Elimine fácilmente todos los archivos adjuntos de uno o varios correos electrónicos con Kutools para Outlook

La Separar todo utilidad de adjuntos de Kutools para Outlook puede eliminar rápidamente todos los archivos adjuntos de uno o varios correos electrónicos seleccionados en Outlook. Haz lo siguiente.

Kutools para Outlook : con más de 100 útiles complementos de Outlook, gratis para probar sin límite en 60 días.

1. Seleccione uno o varios mensajes de correo electrónico con los archivos adjuntos que desea eliminar, luego haga clic en Kutools > Herramientas de adjunto > Separar todo. Ver captura de pantalla:

2. En el Desconectar configuración cuadro de diálogo, configure de la siguiente manera.

• 2.1 Haga clic en Explorar para seleccionar una carpeta para guardar todos los archivos adjuntos eliminados.
• 2.2 Por defecto, el Separe los accesorios en el siguiente estilo La casilla está marcada, elija una opción para guardar los archivos adjuntos en diferentes carpetas según los correos electrónicos que necesite.
• 2.3 Haga clic en OK botón. Ver captura de pantalla:

3. Haga clic en el Sí botón en el Separar todo caja de diálogo.

4. Entonces un Kutools para Outlook Aparecerá un cuadro de diálogo para indicarle cuántos archivos adjuntos se eliminan. Haga clic en el OK del botón. 

Ahora todos los archivos adjuntos se eliminan inmediatamente y solo quedan los hipervínculos en los correos electrónicos seleccionados. Puede hacer clic en el hipervínculo para abrir el archivo adjunto correspondiente según lo necesite.

---

Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionales: Guardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

Leer Mas       Descargar gratis      Comprar