¿Cómo guardar solo archivos adjuntos específicos (Excel) en Outlook?
Outlook proporciona la función Guardar todos los archivos adjuntos para ayudarlo a guardar todos los archivos adjuntos en un correo electrónico en una carpeta específica a la vez. Sin embargo, si desea guardar solo ciertos tipos de archivos adjuntos en uno o más correos electrónicos, como libros de Excel, documentos de Word, etc., ¿cómo lo logra? En este tutorial, le proporcionamos dos métodos para resolver este problema.
Guarde solo archivos adjuntos de formato de archivo específico en Outlook con código VBA
Guarde fácilmente solo archivos adjuntos de formato de archivo específico en Outlook con una herramienta increíble
Guarde solo archivos adjuntos de formato de archivo específico en Outlook con código VBA
El siguiente código de VBA puede ayudar a guardar solo archivos adjuntos de formato de archivo específico en uno o más correos electrónicos seleccionados en una carpeta específica. Por favor, haga lo siguiente.
1. Inicie su Outlook. En la lista Correo, seleccione uno o más correos electrónicos de los que desea guardar solo los archivos adjuntos en un formato de archivo específico.
2. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana. En la ventana inicial, haga clic en recuadro > Móduloy luego copie el código VBA a continuación en la ventana Módulo.
Código VBA: guarde solo archivos adjuntos específicos en un correo electrónico o varios correos electrónicos 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. Hacer clic en Herramientas > Referencias, En la Referencias - Proyecto diálogo, marque el Tiempo de ejecución de secuencias de comandos de Microsoft cuadro y haga clic en el OK del botón.
4. presione el F5 clave para ejecutar el código. En el estalló Busca por carpetas cuadro de diálogo, elija una carpeta para guardar los archivos adjuntos.
5. Y luego, haga clic en OK, en el siguiente Kutools para Outlook cuadro de diálogo, ingrese la extensión del archivo del adjunto que guardará en el cuadro de texto y haga clic en OK.
Nota: Para múltiples extensiones de archivo, debe separarlas con comas.
Entonces solo se guardan los archivos adjuntos especificados.
Guarde fácilmente solo archivos adjuntos de formato de archivo específico en Outlook con una herramienta increíble
Si eres nuevo en VBA, aquí te recomendamos usar el Guardar todos los archivos adjuntos característica de Kutools para Outlook. Con esta función, puede guardar fácilmente solo los archivos adjuntos en un formato de archivo específico en Outlook.
1. Seleccione los correos electrónicos de los que desea guardar solo los archivos adjuntos en un formato de archivo específico.
2. Hacer clic en Kutools > Herramientas de adjunto > Guardar todo.
3. En el Guardar configuración cuadro de diálogo, debe configurarlo de la siguiente manera.
botón para seleccionar una carpeta para guardar los archivos adjuntos;
4. Aparece un cuadro de diálogo que le recuerda que si desea guardar los archivos adjuntos, haga clic en OK para continuar.
5. Luego aparece otro cuadro de diálogo para decirle cuántos archivos adjuntos se han guardado, haga clic en el OK del botón.
Ahora solo se guardan los archivos adjuntos de formato de archivo específico.
Haga Clic en esta página para saber más sobre esta función.
Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.
Artículos relacionados:
- ¿Cómo guardar todos los archivos adjuntos de los mensajes de correo electrónico en Outlook?
- ¿Cómo eliminar todos los archivos adjuntos del correo electrónico en Outlook?
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.
