¿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
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
Ahora solo se guardan los archivos adjuntos de formato de archivo específico.
Presione aquí para saber más sobre esta función.
Si desea tener una prueba gratuita (30-día) 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?
Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.
- Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
- Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
- Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
- Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
- Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.
