2 métodos para abrir por lotes todos los archivos adjuntos en su correo electrónico de Outlook

Cuando recibe un correo electrónico que se adjunta con varios archivos adjuntos, a veces, puede esperar abrirlos de forma masiva. Este artículo analizará este problema y le presentará 2 enfoques para obtenerlo.

Alguna vez debe haber recibido un correo electrónico de este tipo que contiene varios archivos adjuntos. Es bastante fácil abrir uno de los archivos adjuntos simplemente haciendo doble clic en él. Pero si desea abrir rápidamente todos los archivos adjuntos por lotes, ¿cómo puede hacerlo? Es obvio que Outlook no nos proporciona esa característica. Por lo tanto, debe buscar otros medios. Los siguientes son 2 consejos.

Método 1: Abra por lotes todos los archivos adjuntos mediante Guardar todos los archivos adjuntos

Si los archivos adjuntos están en el mismo tipo de archivo, puede utilizar este método:

1. Para empezar, selecciona un correo electrónico.
2. Luego, agregue un archivo adjunto en el panel de lectura.
3. A continuación, en la cinta visible "Archivos adjuntos", puede buscar y hacer clic en el botón "Guardar todos los archivos adjuntos".
4. Posteriormente, en el pequeño cuadro de diálogo emergente, haga clic en "Aceptar".
5. En el siguiente cuadro de diálogo "Guardar todos los archivos adjuntos", seleccione una carpeta de destino para guardarlos y haga clic en "Aceptar".
6. Finalmente puede abrir la carpeta seleccionada.

• Presione "Ctrl + A" para seleccionar todos los archivos adjuntos guardados.
• Luego haga clic derecho sobre ellos.
• En el menú contextual, puede seleccionar la opción "Abrir".

El método anterior solo es aplicable si todos los archivos adjuntos son del mismo tipo. Si no es así, puede utilizar el siguiente método.

Método 2: Abra por lotes todos los archivos adjuntos a través de Outlook VBA

El método funcionará eficazmente si los archivos adjuntos pertenecen a tipos de archivos comunes: ".docx", ".doc", ".txt", ".xlsx", "xls", ".jpg", ".png", "jpeg ”.

1. En primer lugar, presione los botones de tecla "Alt + F11".
2. Luego accederá a la ventana del editor de VBA.
3. Ahora necesita abrir un módulo que no esté en uso.
4. Posteriormente, copie y pegue los siguientes códigos VBA en él.

Sub OpenAllAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim objTempFolder As Object
    Dim strFile As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objWordRange As Word.Range
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim objExcelRange As Excel.Range
 
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    Set objAttachments = objMail.attachments
 
    If objAttachments.Count > 0 Then
       For Each objAttachment In objAttachments
           'Save the attachments to Temp folder
           Set objFileSystem = CreateObject("Scripting.FileSystemObject")
           Set objTempFolder = objFileSystem.GetSpecialFolder(2)
           strFile = objTempFolder.Path & "\" & objAttachment.DisplayName
           objAttachment.SaveAsFile strFile
 
           'Batch open all the attached Word documents and Text Files
           If InStr(LCase(strFile), "docx") > 0 Or InStr(LCase(strFile), "doc") > 0 Or InStr(LCase(strFile), "txt") > 0 Then
              Set objWordApp = CreateObject("Word.Application")
              Set objWordDocument = objWordApp.Documents.Open(strFile)
              objWordDocument.Activate
              Set objWordRange = objWordDocument.Range(0, 0)
              objWordApp.Visible = True
              objWordDocument.ActiveWindow.Visible = True
           End If
 
          'Batch open all the attached Excel workbooks
          If InStr(LCase(strFile), "xlsx") > 0 Or InStr(LCase(strFile), "xls") > 0 Then
             Set objExcelApp = CreateObject("Excel.Application")
             Set objExcelWorkbook = objExcelApp.Workbooks.Open(strFile)
             Set objExcelWorkSheet = objExcelWorkbook.Sheets(1)
             objExcelWorkSheet.Activate
             Set objExcelRange = objExcelWorkSheet.Range("A1")
             objExcelRange.Activate
             objExcelApp.Visible = True
          End If
 
          'Batch open all the attached pictures via Windows image view
          If InStr(LCase(strFile), "jpg") > 0 Or InStr(LCase(strFile), "png") > 0 Or InStr(LCase(strFile), "jpeg") > 0 Then
             Shell "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & strFile
          End If
       Next
    End If
End Sub

5. Después de eso, puede cerrar el editor de VBA y agregar la macro a la barra de herramientas de acceso rápido.
6. Finalmente puedes intentarlo.

• En primer lugar, seleccione un correo electrónico.
• Luego haga clic en el botón de macro en la barra de herramientas de acceso rápido.
• Inmediatamente, todos los archivos adjuntos en el correo electrónico seleccionado se abrirán por lotes, como la siguiente captura de pantalla:

Proteja sus datos PST de forma eficaz

Como Outlook PST es vulnerable a varios factores, debe hacer un gran esfuerzo para evitar que se dañe. De lo contrario, una vez que su PST se corrompe, reparar PST será una tarea considerablemente ardua. Scanpst.exe no ayudará en tal caso. Así que su único recurso es aplicar una potente herramienta externa, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo mdf dañado y productos de software de reparación de Outlook. Para más información visite www.datanumen.com