Skip to main content

Kutools para Office — Una Suite. Cinco Herramientas. Haz Más.

¿Cómo guardar solo un tipo específico de archivo adjunto (Excel) en Outlook?

Author Siluvia Last modified

Outlook proporciona la función Guardar todos los adjuntos para ayudarte a guardar todos los archivos adjuntos de un correo electrónico en una carpeta específica de una sola vez. Sin embargo, si deseas guardar solo ciertos tipos de adjuntos en uno o más correos electrónicos, como libros de Excel, documentos de Word, etc., ¿cómo lo logras? En este tutorial, te proporcionamos dos métodos para resolver este problema.

Guardar solo archivos adjuntos de un formato específico en Outlook con código VBA
Guardar fácilmente solo archivos adjuntos de un formato específico en Outlook con una herramienta increíble

Guardar solo archivos adjuntos de un formato específico en Outlook con código VBA

El siguiente código VBA puede ayudarte a guardar solo archivos adjuntos de un formato específico en uno o más correos electrónicos seleccionados en una carpeta específica. Por favor, sigue los siguientes pasos.

1. Abre tu Outlook. En la lista de correos, selecciona uno o más correos de los cuales deseas guardar solo los archivos adjuntos en un formato específico.

2. Presiona "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones". En la ventana que se abre, haz clic en "Insertar" > "Módulo", y luego copia el siguiente código VBA en la ventana del Módulo.

Código VBA: Guardar solo un archivo adjunto específico en 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. Haz clic en "Herramientas" > "Referencias"; en el cuadro de diálogo "Referencias – Proyecto", marca la casilla "Microsoft Scripting Runtime" y haz clic en el botón "Aceptar".

steps on saving only Specific (Excel) Attachment In Outlook using vba

4. Presiona la tecla "F5" para ejecutar el código. En el cuadro de diálogo emergente "Examinar carpeta", selecciona una carpeta para guardar los archivos adjuntos.

steps on saving only Specific (Excel) Attachment In Outlook using vba

5. Luego, haz clic en "Aceptar", en el siguiente cuadro de diálogo "Kutools para Outlook", introduce la extensión del archivo adjunto que deseas guardar en el cuadro de texto y haz clic en "Aceptar".

Nota: Para múltiples extensiones de archivo, necesitas separarlas con comas.

steps on saving only Specific (Excel) Attachment In Outlook using vba

Entonces, solo se guardarán los archivos adjuntos especificados.

Guardar fácilmente solo archivos adjuntos de un formato específico en Outlook con una herramienta increíble

Si eres nuevo en VBA, aquí te recomendamos usar la función Guardar todos los adjuntos de "Kutools para Outlook". Con esta función, puedes guardar fácilmente solo archivos adjuntos en un formato específico en Outlook.

 👉 Kutools para Outlook ahora tiene una versión gratuita, cuyas 70+ funciones son gratuitas de por vida. Descarga la versión gratuita ahora.

1. Selecciona los correos de los cuales deseas guardar solo archivos adjuntos en un formato específico.

2. Haz clic en "Kutools" > "Herramientas de archivos adjuntos" > "Guardar todo".

steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

3. En el cuadro de diálogo "Configuración de guardado", necesitas configurar lo siguiente.

3.1) En la sección "Guardar adjuntos en esta carpeta", haz clic en el steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook botón para seleccionar una carpeta donde guardar los archivos adjuntos;
3.2) Haz clic en el botón "Opciones avanzadas" para desplegar el cuadro de diálogo;
3.3) En la sección "Condiciones de filtro", marca la casilla "Tipo de adjunto", luego introduce la extensión del archivo adjunto que deseas guardar en el texto.
Consejo: Para múltiples extensiones de archivo, necesitas separarlas con punto y coma.
3.4) Haz clic en el botón "Aceptar". Ver captura de pantalla:
steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

4. Aparecerá un cuadro de diálogo recordándote si deseas guardar los archivos adjuntos, haz clic en "Aceptar" para continuar.

5. Luego aparecerá otro cuadro de diálogo indicando cuántos archivos adjuntos se han guardado, haz clic en el botón "Aceptar".

steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

Ahora solo se han guardado los archivos adjuntos en un formato específico.

Artículos relacionados:

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.

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

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

Activa Kutools para Outlook al instante con un solo clic. No esperes más, descarga ahora y maximiza tu productividad.

kutools for outlook features1 kutools for outlook features2

🚀 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