Si trabaja en una industria en la que recibe innumerables correos electrónicos todos los días, es probable que reciba muchos correos electrónicos con varios archivos adjuntos. Usar un método manual para extraer archivos adjuntos puede llevar mucho tiempo si hay muchos para descargar. Afortunadamente, es fácil guardar varios archivos adjuntos de correo electrónico a la vez usando Microsoft Outlook .

En este tutorial, le mostraremos cómo descargar todos los archivos adjuntos de Outlook .

Cómo descargar todos los archivos adjuntos de correo electrónico de Microsoft Outlook^{(Microsoft Outlook Email Attachments)} a la vez^(Once) en Windows

Para descargar todos los archivos adjuntos a la vez usando la aplicación Windows Microsoft Outlook , haga lo siguiente:

1. Abra Outlook e inicie sesión en su perfil de Outlook .^(Outlook)
2. Seleccione el correo electrónico con los archivos adjuntos de Outlook^(Outlook) que desee .
3. Haga clic derecho en cualquiera de los archivos adjuntos y seleccione Guardar^(Save) todos los archivos adjuntos en el menú desplegable. Si solo desea guardar un archivo, seleccione Guardar como^{(Save As)} .

1. En el nuevo cuadro de diálogo, mantenga presionada la tecla CTRL en su teclado y seleccione todos los archivos adjuntos que desea descargar. Haga clic en Aceptar^{(Click OK)} .

1. Seleccione la ubicación en la que desea guardar los archivos y presione el botón Aceptar.

Cómo descargar todos los archivos adjuntos de correo electrónico de Microsoft Outlook^{(Microsoft Outlook Email Attachments)} a la vez^(Once) en Mac

A continuación se explica cómo descargar todos los archivos adjuntos usando Outlook para Mac :

1. Abra la aplicación MS Outlook.
2. Seleccione el mensaje de correo electrónico^(Email) que contiene sus archivos adjuntos.
3. Haga clic^(Click) en Adjuntos^{(Attachments)} y seleccione Descargar todo^{(Download All)} .

1. Seleccione la ubicación donde desea guardar sus archivos adjuntos y seleccione Elegir^(Choose) .

Cómo descargar varios archivos adjuntos de Outlook^{(Download Multiple Outlook Attachments)} desde varios correos electrónicos^{(Multiple Emails)}

También es posible descargar varios archivos adjuntos de muchos correos electrónicos a la vez. Para hacerlo:

Usar código VBA

Si está utilizando Outlook 2019 , 2016, 2013, 2010, 2007 o 2003, puede utilizar el editor VBA^{(VBA editor)} para descargar varios archivos adjuntos de varios correos electrónicos.

1. Abra su carpeta Documentos y cree una nueva carpeta llamada "Adjuntos". Aquí es donde se descargarán sus archivos adjuntos.
2. Abra Microsoft Outlook.
3. Presione^(Press) las teclas Alt y F11 en el teclado para abrir el editor VBA .
4. Haga clic derecho en Microsoft Outlook Object > Insert > Insert Module .

1. Copie el siguiente código en el editor y presione Enter:

Dim GCount como entero

Dim GFilepath como cadena

Public Sub SaveAttachments()

'Actualización 20200821

Atenuar xMailItem como Outlook.MailItem

Atenuar^(Dim) xAttachments como Outlook.Attachments

Atenuar^(Dim) xSelection como Outlook.Selection

Atenuar mientras dure

Dim xAttCount mientras sea largo

Atenuar^(Dim) xFilePath como cadena^(String) , xFolderPath como cadena^(String) , xSaveFiles como cadena^(String)

En caso de error Continuar siguiente

xFolderPath = CreateObject (“WScript.Shell”).SpecialFolders(16)

Establecer^(Set) xSelection = Outlook.Application.ActiveExplorer.Selection

xFolderPath = xFolderPath y “Adjuntos”

Si VBA.Dir ( xFolderPath , vbDirectory) = vbNullString Entonces

VBA.MkDir xFolderPath

Terminara si

GFilepath = “”

Para cada xMailItem en xSelection

Establecer^(Set) xAttachments = xMailItem.Attachments

xAttCount = xAdjuntos.Count

xGuardarArchivos = “”

Si xAttCount > 0 Entonces

Para i = xAttCount a 1 Paso^(Step) -1

GCuenta = 0

xFilePath = xFolderPath y xAttachments.Item (i).FileName

GFilepath = xFilePath

xFilePath = ArchivoRenombrar^(FileRename) (xFilePath)

Si IsEmbeddedAttachment ( xAttachments.Item (i)) = False Entonces

xAttachments.Item(i).SaveAsFile xFilePath

Si xMailItem.BodyFormat <> olFormatHTML Entonces

xGuardarArchivos = xSaveFiles & vbCrLf & “Referencia de hipervínculo no válida.>”

Demás

xSaveFiles = xSaveFiles & “
” & “ xFilePath & “‘>” & xFilePath & “ ”

Terminara si

Terminara si

Siguiente yo

Terminara si

Próximo

Establecer xAttachments = Nada

Establecer xMailItem = Nada

Establecer xSelection = Nada

Subtítulo final

Función FileRename ( FilePath como cadena^(String) ) como cadena^(String)

Atenuar xPath como cadena

Dim xFso como FileSystemObject

En caso de error Continuar siguiente

Set xFso = CreateObject (“ Scripting.FileSystemObject ”)

xPath = ruta del archivo

ArchivoRenombrar = xPath

Si xFso.FileExists (xPath) Entonces

GCuenta = GCuenta + 1

xPath = xFso.GetParentFolderName( GFilepath ) & “” & xFso.GetBaseName ( GFilepath ) & ” ” & GCount & “.” + xFso.GetExtensionName( GFilepath )

ArchivoRenombrar = ArchivoRenombrar(xPath)

Terminara si

xFso = Nada

Función final

Función IsEmbeddedAttachment^{(Function IsEmbeddedAttachment)} ( Adjuntar^(Attach) como archivo adjunto^(Attachment) )

Atenuar xItem como MailItem

Dim xCid como cadena

Dim xID como cadena

Dim xHtml como cadena

En caso de error Continuar siguiente

IsEmbeddedAttachment = Falso

Establecer xItem = Adjuntar.Parent

Si xItem.BodyFormat <> olFormatHTML entonces salga de la función^(Function)

xCid = “”

xCid = Attach.PropertyAccessor.GetProperty (“http://schemas.microsoft.com/mapi/proptag/0x3712001F”)

Si xCid <> “” Entonces

xHtml = xItem.HTMLCuerpo

xID = “cid:” & xCid

Si InStr(xHtml, xID) > 0 Entonces

IsEmbeddedAttachment = Verdadero^(True)

Terminara si

Terminara si

Función final

Nota: Puede copiar el código original anterior desde Extend Office^{(original code above from Extend Office)} y pegarlo en el editor.

1. Presione F5^{(Press F5)} para ejecutar el script. Es posible que aparezca una ventana emergente solicitándole que permita la acción.

Usando una herramienta externa

Si está utilizando otra versión de Outlook , desea descargar un tipo de archivo que no sea PST^{(a file type other than PST)} o le resulta complicado el método VBA , puede descargar una herramienta que puede ayudarle a descargar varios archivos adjuntos de Outlook^(Outlook) a la vez.

Aplicaciones como Outlook Attachment Extractor tienen la funcionalidad de guardar archivos adjuntos no solo de archivos PST , sino también de otros formatos de archivo como archivos OST , BAK , MSG , OLK y OLM . También puede configurar la aplicación para filtrar archivos adjuntos por tamaño de archivo, fecha o remitente.

Cómo descargar todos los archivos adjuntos de un archivo dañado^(Corrupted)

Si no puede abrir, ver o guardar archivos adjuntos en Outlook , es posible que el archivo PST de Microsoft Outlook^{(Microsoft Outlook PST)} esté corrupto o dañado. Puede reparar el archivo PST^{(repair the PST file)} para recuperar el archivo adjunto utilizando herramientas como la aplicación SCANPST.exe .

Para utilizar esta herramienta, cierre Outlook y navegue a una de las siguientes ubicaciones, según su versión de Outlook :

1. Outlook 2019: C: Archivos de programa (x86) Microsoft Office\root\Office16
2. Outlook 2016: C: Archivos de programa (x86) Microsoft Office\root\Office16
3. Outlook 2013: C: Archivos de programa (x86) Microsoft Office\Office15
4. Outlook 2010: C: Archivos de programa (x86) Microsoft Office\Office14
5. Outlook 2007: C: Archivos de programa (x86) Microsoft Office\Office12

Luego, haga doble clic en SCANPST.EXE.

Seleccione Examinar^{(Select Browse)} , busque el archivo de datos de Outlook^(Outlook) que desea escanear y presione Iniciar^(Start) .

Si la herramienta encuentra errores, seleccione Reparar^(Repair) para intentar solucionarlos. Una vez completado, reinicie Outlook y compruebe si ahora funciona.

Optimice sus actividades de correo electrónico

Descargar varios archivos de Outlook es fácil e incluso puedes descargar varios archivos de varios correos electrónicos a la vez. Si los métodos integrados en Outlook le resultan demasiado difíciles, puede descargar herramientas como Outlook Attachment Extractor para ayudarle.

How to Download All Attachments From Outlook Emails

If you’re in an industry where you receivе countless emails every day, you likely get many emаils with multiple attachments. Using a manual method to extract attachments can be time-consuming if there are many to dоwnload. Luckily, it’s easy to ѕave multiple email attachments at once using Microsoft Outloоk.

In this tutorial, we’ll show you how to download all attachments from Outlook.

How to Download All Microsoft Outlook Email Attachments at Once on Windows

To download all attachments at once using the Windows Microsoft Outlook app, do the following:

1. Open Outlook and sign in to your Outlook profile.
2. Select the email with your desired Outlook attachments.
3. Right-click any of the attachment files and select Save all attachments in the drop-down menu. If you only want to save one file, select Save As.

1. In the new dialog box, hold down the CTRL key on your keyboard and select all of the attachments you want to download. Click OK.

1. Select the location that you would like to save the files to and press the OK button.

How to Download All Microsoft Outlook Email Attachments at Once on Mac

Here’s how to download all attachments using Outlook for Mac:

1. Open the MS Outlook application.
2. Select the Email message that contains your attachments.
3. Click on Attachments and select Download All.

1. Select the location that you would like to save your attachments and select Choose.

How to Download Multiple Outlook Attachments From Multiple Emails

It’s also possible to download multiple attachments from many emails at once. To do so:

Use VBA Code

If you are using Outlook 2019, 2016, 2013, 2010, 2007, or 2003, you can use the VBA editor to download multiple attachments from multiple emails.

1. Open your Documents folder and create a new folder named “Attachments.” This is where your attachments will download to.
2. Open Microsoft Outlook.
3. Press the Alt and F11 keys on the keyboard to open the VBA editor.
4. Right-click Microsoft Outlook Object > Insert > Insert Module.

1. Copy the following code into the editor and press Enter:

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 & “<Error! Hyperlink reference not valid.>”

Else

xSaveFiles = xSaveFiles & “<br>” & “<a href=’file://” & xFilePath & “‘>” & xFilePath & “</a>”

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

Note: You can copy the original code above from Extend Office and paste it into the editor.

1. Press F5 to run the script. You may get a pop-up window prompting you to allow the action.

Using an External Tool

If you’re using another version of Outlook, want to download a file type other than PST, or find the VBA method cumbersome, you can download a tool that can help you download multiple Outlook attachments at once.

Apps such as Outlook Attachment Extractor have the functionality to save attachments not only from PST files, but from other file formats such as OST, BAK, MSG, OLK, and OLM files, too. You can also configure the app to filter attachments by file size, date, or sender.

How to Download All Attachments From a Corrupted File

If you cannot open, view, or save file attachments in Outlook, the Microsoft Outlook PST file may be corrupted or damaged. You can repair the PST file to retrieve the attachment using tools such as the SCANPST.exe application.

To use this tool, close Outlook and navigate to one of the following locations, depending on your version of Outlook:

1. Outlook 2019: C:\Program Files (x86)\Microsoft Office\root\Office16
2. Outlook 2016: C:\Program Files (x86)\Microsoft Office\root\Office16
3. Outlook 2013: C:\Program Files (x86)\Microsoft Office\Office15
4. Outlook 2010: C:\Program Files (x86)\Microsoft Office\Office14
5. Outlook 2007: C:\Program Files (x86)\Microsoft Office\Office12

Then, double-click SCANPST.EXE.

Select Browse, locate the Outlook data file you want to scan and press Start.

If the tool finds errors, select Repair to attempt to fix them. Once complete, restart Outlook and check whether it now works.

Streamline Your Email Activities

Downloading multiple files from Outlook is easy and you can even download multiple files from multiple emails all at once. If you find the built-in methods in Outlook too difficult, you can download tools such as Outlook Attachment Extractor to help you out.

Related posts

• Cómo escribir caracteres acentuados y especiales usando el teclado en inglés

• Insertar caracteres especiales y símbolos usando WinCompose para Windows

• KeyTweak: reasignar y redefinir las teclas del teclado en una PC con Windows

• Software gratuito de atajos de teclado para PC con Windows

• Microsoft Keyboard Layout Creator: cree diseños de teclado personalizados

• OpenCPN tiene como objetivo ofrecer una navegación de calidad en mar abierto

• ¡Cree imágenes compatibles con la web con Bzzt! Editor de imágenes para PC con Windows

• Software gratuito para eliminar carpetas vacías en Windows 11/10

• El mejor software de escáner de código de barras gratuito para Windows 10

• Document Converter: Convert DOC, PDF, DOCX, RTF, TXT, HTML files

• Las mejores herramientas y software gratuitos de Photo to Cartoon en línea para PC con Windows

• Vuelva a abrir carpetas, archivos, programas, ventanas cerrados recientemente

• El mejor software gratuito de modelado molecular para Windows 10

• Invoice Expert: software gratuito de facturación, inventario y facturación para Windows

• IconRestorer ayuda a guardar, restaurar y administrar las posiciones de los iconos de su escritorio

• Edite, agregue, restaure y elimine elementos del nuevo menú contextual en Windows

• Windows File Analyzer lo ayuda a decodificar y analizar archivos especiales del sistema operativo

• El mejor software gratuito de Keyboard and Mouse Locker para Windows 11/10

• ManicTime es un software gratuito de gestión y seguimiento del tiempo

• Comet (Limpieza de disco administrada): alternativa a la herramienta de limpieza de disco de Windows