¿Cómo guardar únicamente un archivo adjunto específico de Excel en Outlook?

Outlook incluye la función **Guardar todos los archivos adjuntos**, que le permite guardar de una sola vez todos los archivos adjuntos de un correo electrónico en una carpeta específica. Pero, ¿qué ocurre si solo desea guardar ciertos tipos de archivos adjuntos —como libros de Excel o documentos de Word— de uno o varios mensajes? En este tutorial, le presentamos dos métodos para lograrlo.

Guarde únicamente archivos adjuntos específicos de Tipo de archivo en Outlook con código VBA
Guarde fácilmente únicamente archivos adjuntos específicos de Tipo de archivo en Outlook con una herramienta sorprendente

Guarde únicamente archivos adjuntos específicos de Tipo de archivo en Outlook con código VBA

El siguiente código VBA le permite guardar únicamente los archivos adjuntos de un tipo específico procedentes de uno o varios correos seleccionados en una carpeta determinada. Siga estos pasos:

1. Inicie Outlook. En la lista de correos electrónicos, seleccione uno o varios mensajes de los que desee guardar únicamente los archivos adjuntos con una extensión específica.

2. Pulse «Alt» + «F11» para abrir la ventana de «Microsoft Visual Basic para Aplicaciones». En la ventana que aparece, haga clic en «Insertar» > «Módulo» y, a continuación, copie el siguiente código VBA en la ventana del módulo.

Código VBA: Guarde únicamente un archivo adjunto específico de un correo o varios correos en una carpeta

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "" & "" & xFilePath & ""
                End If
            End If
        Next
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. Haga clic en «Herramientas» > «Referencias», marque la casilla «Microsoft Scripting Runtime» en el cuadro de diálogo «Referencias: Proyecto» y, a continuación, haga clic en «Aceptar».

4. Pulse la tecla «F5» para ejecutar el código. En el cuadro de diálogo emergente «Examinar en busca de carpetas», seleccione la carpeta donde desea guardar los archivos adjuntos.

5. A continuación, haga clic en «Aceptar». En el cuadro de diálogo «Kutools para Outlook» que aparece a continuación, introduzca la extensión del archivo adjunto que desea guardar en el cuadro de texto y haga clic en «Aceptar».

Nota: Para varias extensiones de archivo, sepárelas con comas.

De este modo, solo se guardarán los archivos adjuntos especificados.

Guarde fácilmente únicamente archivos adjuntos específicos de Tipo de archivo en Outlook con una herramienta sorprendente

Si no está familiarizado con VBA, le recomendamos utilizar la función Guardar todos los archivos adjuntos de «Kutools para Outlook». Con esta función, podrá guardar fácilmente solo los archivos adjuntos de una extensión específica en Outlook.

1. Seleccione los correos electrónicos de los que desee guardar únicamente los archivos adjuntos con una extensión específica.

2. Haga clic en «Kutools» > «Herramientas de archivos adjuntos» > «Guardar todos».

3. En el cuadro de diálogo «Configuración de guardado», configure lo siguiente:

3,1) En la sección «Guardar adjuntos en esta carpeta», haga clic en el botón para Seleccionar una carpeta y guardar los archivos adjuntos;

3,2) Haga clic en el botón «Opciones avanzadas» para desplegar el cuadro de diálogo;

3,3) En la sección «Condiciones de filtro», marque la casilla «El tipo de adjunto es» y, a continuación, introduzca la extensión de los archivos adjuntos que desea guardar en el cuadro de texto.

Consejo: Para varias extensiones de archivo, debe separarlas con puntos y comas.

3,4) Haga clic en el botón «Aceptar». Vea la captura de pantalla:

4. Aparece un cuadro de diálogo que le recuerda si desea guardar los archivos adjuntos; haga clic en «Aceptar» para continuar.

5. A continuación, aparecerá un cuadro de diálogo indicando cuántos archivos adjuntos se han guardado; haga clic en el botón «Aceptar».

Ahora solo se han guardado los archivos adjuntos del tipo de archivo especificado.

Artículos relacionados:

• ¿Cómo guardar todos los archivos adjuntos de los mensajes de correo en Outlook?
• ¿Cómo eliminar todos los archivos adjuntos de los correos en Outlook?

---

Las mejores herramientas de productividad para Office

¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!

🤖KUTOOLS AI:Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar correos.

📧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.

Desbloquee Kutools para Outlook al instante con un solo clic. ¡No espere más: descárguelo ahora y potencie su eficiencia!

Lista de funciones de Kutools para Outlook      Descargar ahora      Ir a comprar

🚀 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

Acerca del Conjunto⬇ Descargar el Conjunto💳 Comprar el Conjunto