¿Cómo guardar solo un tipo específico de archivo adjunto (Excel) en Outlook?
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 Sub3. 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".
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.
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.
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.
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".
3. En el cuadro de diálogo "Configuración de guardado", necesitas configurar lo siguiente.
botón para seleccionar una carpeta donde guardar los archivos adjuntos;
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".
Ahora solo se han guardado los archivos adjuntos en un formato específico.
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 un correo en Outlook?
Las mejores herramientas de productividad para Office
Últimas noticias: ¡Kutools para Outlook lanza una versión gratuita!
¡Descubre el nuevo Kutools para Outlook con más de100 funciones increíbles! ¡Haz clic para descargarlo ahora!
📧 Automatización de Email: Respuesta automática (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con varios destinatarios en mensajes individuales ...
📨 Gestión de Email: Recuperar correos electrónicos / Bloquear correos sospechosos por asunto y otros criterios / Eliminar correos electrónicos 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 de la Interfaz: 😊Más emojis atractivos y geniales / Recibe avisos cuando lleguen emails importantes / Minimiza Outlook en vez de cerrarlo ...
👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos Anti-Phishing / 🕘Mostrar la zona horaria del remitente ...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar en lote contactos de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños ...
Utiliza Kutools en tu idioma preferido; ¡compatible con Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales!
