2 métodos rápidos para imprimir las listas de archivos adjuntos de varios correos electrónicos de Outlook

A veces, necesitará extraer e imprimir las listas de archivos adjuntos de varios correos electrónicos. En este artículo te enseñaremos 2 métodos para conseguirlo.

Si recibe varios correos electrónicos con varios archivos adjuntos para sus referencias, es posible que desee imprimir estos nombres de archivos adjuntos. En esta situación, ¿cómo se puede conseguir a granel? A continuación, le enseñaremos 2 formas de imprimir rápidamente las listas de archivos adjuntos solo de varios correos electrónicos de Outlook.

Método 1: Imprima y copie la lista de archivos adjuntos en formato de texto enriquecido

1. Desde el principio, abra un correo electrónico de Outlook.
2. Luego, en la ventana Mensaje, haga clic en "Acciones" y seleccione "Editar mensaje".
3. A continuación, vaya a la pestaña "Formato de texto", en la que seleccione el formato "Texto enriquecido".
4. De inmediato, puede ver que los archivos adjuntos del correo electrónico se mueven al cuerpo.
5. Después de eso, haga clic en el botón "Responder" en el grupo "Responder" en la pestaña "Mensaje".
6. En el correo posterior, la lista de archivos adjuntos ya estaba en el cuerpo, como la captura de pantalla a continuación.
7. Ahora puede copiar la lista de archivos adjuntos a un nuevo correo electrónico.
8. Posteriormente, use este método para copiar las listas de archivos adjuntos de otros correos electrónicos al correo nuevo.
9. Finalmente, puede imprimir este nuevo correo como de costumbre.

Método 2: Imprimir listas de archivos adjuntos a través de Outlook VBA

1. Para empezar, pulse “Alt + F11” para abrir el editor de VBA de Outlook.
2. Luego, copie el siguiente código VBA en un módulo.

Sub PrintAttachmentListsOfManyEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objTempMail As Outlook.MailItem
    
    'Get the selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       'Input the attachment lists into a temp mail
       Set objTempMail = Outlook.Application.CreateItem(olMailItem)
 
       For i = 1 To objSelection.Count
           If objSelection(i).Class = olMail Then
              Set objMail = objSelection(i)
              If objMail.Attachments.Count > 0 Then
 
                 objTempMail.Body = objTempMail.Body & vbCr & "-------------------------------------------------------------------------------------------------------------" & vbCr & vbCr & i & ". " & objMail.Subject & vbCr & vbCr & "Attachment List:" & vbCr
 
                 For n = 1 To objMail.Attachments.Count
                     Set objAttachment = objMail.Attachments(n)
                     objTempMail.Body = objTempMail.Body & vbCr & "<<" & objAttachment.FileName & " Size: " & Round(objAttachment.Size / 1024, 1) & " KB>>"
                 Next
              End If
           End If
       Next

       'Print the temp mail
       objTempMail.PrintOut
     End If
End Sub

3. Luego, agregue esta macro a la barra de herramientas de acceso rápido consultando el artículo - "Cómo ejecutar código VBA en su Outlook".
4. Eventualmente, pruebe esta macro.

• Al principio, elija varios correos electrónicos.
• Luego, haga clic en el botón de macro en la barra de herramientas de acceso rápido.
• De inmediato, se deben haber impreso las listas de archivos adjuntos de estos correos electrónicos.

Recurra a una herramienta de reparación de Outlook de punta

Cuando se encuentra con daños en los archivos de Outlook, debe ser la mejor noticia que tenga una copia de seguridad de datos de Outlook reciente en la mano. Puede permitirle deshacerse de la complicada corrección de archivos de Outlook. Pero, a veces, la copia de seguridad puede fallar al restaurar. En ese momento, deberá recurrir a una herramienta de reparación más estelar y profesional, como DataNumen Outlook Repair. Puede reparar PST corrupto en minutos.

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 reparar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com