3 formas de descargar todos los archivos adjuntos de Outlook

Lea esta guía para aprender todas las formas

Como usuario profesional, descargar toneladas de archivos adjuntos de los correos electrónicos recibidos en Outlook puede ser monótono y llevar mucho tiempo.

Afortunadamente, puede descargar fácilmente varios archivos adjuntos de un correo electrónico en Outlook a la vez sin tener que presionar el botón Guardar para cada uno de ellos. Además, también es posible descargar varios archivos adjuntos presentes en varios correos electrónicos a través de una solución sencilla.

Si tiene curiosidad por conocer el procedimiento paso a paso, quédese con nosotros mientras lo guiamos a través del procedimiento.

¿Cómo descargo todos los archivos adjuntos de un correo electrónico?

1. Usando la aplicación de escritorio

1. Lanzar el Microsoft Outlook aplicación en su PC con Windows.
2. Busque y abra ese correo electrónico en el panel de lectura desde el que descarga los archivos adjuntos.
3. Cambiar a la Archivos adjuntos de la barra de menú superior, haga clic con el botón derecho en uno de los archivos adjuntos en la sección derecha y seleccione Guardar todos los archivos adjuntos en el menú desplegable.
4. presione el Control y seleccione todos los archivos adjuntos que desea descargar en el pequeño cuadro de diálogo que se abre.
5. presione el DE ACUERDO después de seleccionar los archivos adjuntos requeridos.
6. un nuevo Guardar como Se abrirá una ventana emergente para guardar sus archivos adjuntos. Busque la carpeta donde desea guardar los archivos adjuntos y presione el botón DE ACUERDO en la parte inferior derecha para iniciar la descarga del archivo adjunto.

Puede descargar fácilmente todos los archivos adjuntos a un correo electrónico a la vez en lugar de descargar cada archivo individualmente.

2. Uso de la aplicación web

1. Acceder al Aplicación web de Microsoft Outlook utilizando su navegador web preferido y proporcione sus credenciales de inicio de sesión cuando se le solicite iniciar sesión.
2. Selecciona el Bandeja de entrada carpeta de la barra de menú izquierda en el Hogar sección de la aplicación web.
3. Haga doble clic en el correo electrónico en cuestión para ver el contenido del correo electrónico en una nueva ventana.
4. Haga clic en el Descargar todo para descargar los archivos adjuntos en forma de archivo ZIP.
5. Elija la ubicación de descarga y presione el botón DE ACUERDO botón si el Guardar como se abre el cuadro de diálogo.

Este es un método sencillo para descargar todos los archivos adjuntos de correo electrónico de un correo electrónico si prefiere la aplicación web en lugar de la aplicación de Outlook.

¿Cómo descargo todos los archivos adjuntos de varios correos electrónicos?

NOTA

Puede probar este método solo si está utilizando Outlook 2019, 2016, 2013, 2010, 2007 o 2003.

1. Crear una nueva carpeta

1. Utilizar el ventanas + mi atajo para lanzar Explorador de archivos.
2. Navegar a la Documentos carpeta de la barra lateral izquierda.
3. Haga clic con el botón derecho en cualquier parte de la sección derecha y seleccione Nuevo seguido por Carpeta del menú contextual.
4. Haga doble clic en el nombre de la carpeta y cámbiele el nombre como Archivos adjuntos.

2. Crear un script de VBA

1. Ahora inicie la aplicación de Outlook en su PC con Windows.
2. Elegir el Archivo opción y luego seleccione Opciones de la barra lateral izquierda.
3. Seleccionar Personalizar la cinta desde el panel izquierdo de la Opciones de palabra ventana.
4. Selecciona el Desarrollador opción en el Pestañas principales y presione el botón Más icono para agregar el modo Desarrollador al menú de cinta de Outlook.
5. Cierre la ventana emergente Opciones de Word y luego seleccione Modo desarrollador seguido por básico visual desde el menú principal.
6. Seleccionar Proyecto 1 se muestra por defecto y luego seleccione Insertar seguido por Módulo para acceder a la ventana Módulo.
7. Ahora copie y pegue el siguiente código en Módulo 1 y cierra la ventana.

Dim GCount As Integer. Dim GFilepath As String. Public Sub SaveAttachments()
'Update 20200821. Dim xMailItem As Outlook.MailItem. Dim xAttachments As Outlook.Attachments. Dim xSelection As Outlook.Selection. Dim i As Long. Dim xAttCount As Long. Dim xFilePath As String, xFolderPath As String, xSaveFiles As String. On Error Resume Next. xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection. xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then VBA.MkDir xFolderPath. End If. GFilepath = ""
For Each xMailItem In xSelection Set xAttachments = xMailItem.Attachments xAttCount = xAttachments.Count xSaveFiles = "" If xAttCount > 0 Then For i = xAttCount To 1 Step -1 GCount = 0 xFilePath = xFolderPath & xAttachments.Item(i).FileName GFilepath = xFilePath xFilePath = FileRename(xFilePath) If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then xAttachments.Item(i).SaveAsFile xFilePath If xMailItem.BodyFormat <> olFormatHTML Then xSaveFiles = xSaveFiles & vbCrLf & "" Else xSaveFiles = xSaveFiles & "
" & "" & xFilePath & "" End If End If Next i End If. Next. Set xAttachments = Nothing. Set xMailItem = Nothing. Set xSelection = Nothing. End Sub Function FileRename(FilePath As String) As String. Dim xPath As String. Dim xFso As FileSystemObject. On Error Resume Next. Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath. FileRename = xPath. If xFso.FileExists(xPath) Then GCount = GCount + 1 xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath) FileRename = FileRename(xPath)
End If. xFso = Nothing. End Function Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem. Dim xCid As String. Dim xID As String. Dim xHtml As String. On Error Resume Next. IsEmbeddedAttachment = False. Set xItem = Attach.Parent. If xItem.BodyFormat <> olFormatHTML Then Exit Function. xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then xHtml = xItem.HTMLBody xID = "cid:" & xCid If InStr(xHtml, xID) > 0 Then IsEmbeddedAttachment = True End If. End If. End Function

3. Ejecute el script VBS

1. Cambiar a la Modo desarrollador y luego seleccione básico visual desde la cinta de Outlook.
2. Seleccionar Módulo 1 y golpea el F5 clave para ejecutar el código.
3. Haga clic en el Guardar archivo adjunto después de seleccionar los archivos adjuntos para confirmar la acción.

Los scripts de VBA le permiten automatizar el proceso de descarga de archivos adjuntos en Microsoft Outlook. Sin embargo, debe proceder con cuidado con los scripts de VBA para evitar dañar su computadora.

¡Eso es todo en esta guía! Espero que conozca las diferentes formas en que puede descargar fácilmente todos los archivos adjuntos de correo electrónico desde la aplicación Microsoft Outlook.

Si te encuentras con el Algo salió mal error en Outlook app, pruebe las soluciones sugeridas en esta guía.

Si tienes alguna duda, o conoces otros métodos, háznoslo saber en la sección de comentarios.