Cómo descargar todos los archivos adjuntos de los correos electrónicos de Outlook

Si está en una industria donde recibe innumerables correos electrónicos todos los días, es probable que reciba muchos correos electrónicos con múltiples archivos adjuntos. El uso de 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 con 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 a la vez en Windows

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

  1. Abierto panorama e inicie sesión en su perfil de Outlook.
  2. Seleccione el correo electrónico con los archivos adjuntos de Outlook que desee.
  3. Haga clic derecho en cualquiera de los archivos adjuntos y seleccione Guardar todos los archivos adjuntos en el menú desplegable. Si solo desea guardar un archivo, seleccione Guardar como.
  1. En el nuevo cuadro de diálogo, mantenga presionada la tecla CONTROL en su teclado y seleccione todos los archivos adjuntos que desea descargar. Hacer clic DE ACUERDO.
  1. Seleccione la ubicación en la que le gustaría guardar los archivos y presione el botón DE ACUERDO botón.

Cómo descargar todos los archivos adjuntos de correo electrónico de Microsoft Outlook a la vez en Mac

Aquí se explica cómo descargar todos los archivos adjuntos con Outlook para Mac:

  1. Abra la aplicación MS Outlook.
  2. Selecciona el Mensaje de correo electrónico que contiene sus archivos adjuntos.
  3. Haga clic en Adjuntos y seleccione Descargar todo.
  1. Seleccione la ubicación en la que le gustaría guardar sus archivos adjuntos y seleccione Elegir.

Cómo descargar múltiples archivos adjuntos de Outlook desde múltiples correos electrónicos

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

Usar VBA Código

Si usa Outlook 2019, 2016, 2013, 2010, 2007 o 2003, puede usar el editor de VBA para descargar varios archivos adjuntos de varios correos electrónicos.

  1. Abre tu Documentos carpeta y cree una nueva carpeta llamada «Archivos adjuntos». Aquí es donde se descargarán sus archivos adjuntos.
  2. Abierto Microsoft Outlook.
  3. presione el alternativa y F11 teclas del teclado para abrir el editor de VBA.
  4. Botón derecho del ratón Objeto de Microsoft Outlook > Insertar > Insertar Módulo.
  1. Copie el siguiente código en el editor y presione Ingresar:

Dim GCount como entero

Dim GFilepath como cadena

Archivos adjuntos públicos sub guardados ()

‘Actualización 20200821

Dim xMailItem como Outlook.MailItem

Dim xAdjuntos como Outlook.Adjuntos

Dim xSelección como Outlook.Selección

Dim i tan largo

Dim xAttContar siempre

Dim xFilePath como cadena, xFolderPath como cadena, xSaveFiles como cadena

En caso de error Reanudar siguiente

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

Establecer xSelection = Outlook.Application.ActiveExplorer.Selection

xFolderPath = xFolderPath & “\Archivos adjuntos\”

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

VBA.MkDir xFolderPath

Terminara si

GFilepath = “”

Para cada xMailItem en xSelection

Establecer xArchivos adjuntos = xMailItem.Archivos adjuntos

xAttCount = xArchivos adjuntos.Count

xGuardarArchivos = “”

Si xAttCount > 0 Entonces

Para i = xAttCuenta a 1 Paso -1

CuentaG = 0

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

GFilepath = xFilePath

xFilePath = FileRename(xFilePath)

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

xAttachments.Item(i).SaveAsFile xFilePath

Si xMailItem.BodyFormat <> olFormatHTML Entonces

xSaveFiles = xSaveFiles & vbCrLf & “

Demás

xSaveFiles = xSaveFiles & “
” & “” & xFilePath & “

Terminara si

Terminara si

Siguiente yo

Terminara si

Próximo

Establecer xArchivos adjuntos = Nada

Establecer xMailItem = Nada

Establecer xSelection = Nada

Finalizar sub

Función FileRename(FilePath As String) As String

Atenuar xPath como cadena

Dim xFso como FileSystemObject

En caso de error Reanudar siguiente

Establezca xFso = CreateObject («Scripting.FileSystemObject»)

xPath = ruta del archivo

Renombrar archivo = xPath

Si xFso.FileExists(xPath) Entonces

CuentaG = CuentaG + 1

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

FileRename = FileRename(xPath)

Terminara si

xFso = Nada

función final

Función IsEmbeddedAttachment(Adjuntar como archivo adjunto)

Atenuar xItem como MailItem

Dim xCid como cadena

Dim xID como cadena

Dim xHtml como cadena

En caso de error Reanudar siguiente

IsEmbeddedAttachment = Falso

Establecer xItem = Adjuntar.Padre

Si xItem.BodyFormat <> olFormatHTML entonces salga de la función

xCid = “”

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

Si xCid <> “” Entonces

xHtml = xItem.HTMLBody

xID = “cid:” & xCid

Si InStr(xHtml, xID) > 0 Entonces

IsEmbeddedAttachment = Verdadero

Terminara si

Terminara si

función final

Nota: Puede copiar el código original anterior de Extend Office y pegarlo en el editor.

  1. Prensa F5 para ejecutar el script. Es posible que aparezca una ventana emergente que le solicite que permita la acción.

Usar una herramienta externa

Si está utilizando otra versión de Outlook, desea descargar un tipo de archivo que no sea PST, o encuentra engorroso el método VBA, puede descargar una herramienta que puede ayudarlo a descargar varios archivos adjuntos de Outlook a la vez.

Las 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 OST, BAK, MSG, OLK y OLM. También puede configurar la aplicación para filtrar los archivos adjuntos por tamaño de archivo, fecha o remitente.

Cómo descargar todos los archivos adjuntos de un archivo dañado

Si no puede abrir, ver o guardar archivos adjuntos en Outlook, el archivo PST de Microsoft Outlook puede estar corrupto o dañado. Puede reparar el archivo PST para recuperar el archivo adjunto utilizando herramientas como la aplicación SCANPST.exe.

Para usar 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\raíz\Office16
  2. Outlook 2016: C:\Archivos de programa (x86)\Microsoft Office\raíz\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 SCANPST.EXE.

Seleccionar Navegarubique el archivo de datos de Outlook que desea escanear y presione Comenzar.

Si la herramienta encuentra errores, seleccione Reparar para intentar arreglarlos. Una vez completado, reinicie Outlook y verifique si ahora funciona.

Optimice sus actividades de correo electrónico

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