2 metodi rapidi per stampare gli elenchi di allegati di più e-mail di Outlook

A volte, dovrai estrarre e stampare gli elenchi di allegati di più e-mail. In questo articolo, ti insegneremo 2 metodi per ottenerlo.

Se ricevi diverse e-mail con più allegati per i tuoi riferimenti, potresti voler stampare questi nomi di allegati. In questa situazione, come puoi ottenerlo all'ingrosso? Successivamente, ti insegneremo 2 modi per stampare rapidamente gli elenchi di allegati solo di più e-mail di Outlook.

Metodo 1: stampa e copia dell'elenco degli allegati in formato RTF

1. All'inizio, apri un'e-mail di Outlook.
2. Quindi, nella finestra del messaggio, fai clic su "Azioni" e seleziona "Modifica messaggio".
3. Quindi, passa alla scheda "Formato testo", in cui seleziona il formato "Rich Text".
4. Immediatamente, puoi vedere che gli allegati e-mail vengono spostati nel corpo.
5. Successivamente, fai clic sul pulsante "Rispondi" nel gruppo "Rispondi" nella scheda "Messaggio".
6. Nella mail successiva, l'elenco degli allegati era già nel corpo, come lo screenshot qui sotto.
7. Ora puoi copiare l'elenco degli allegati in una nuova email.
8. Successivamente, utilizzare questo metodo per copiare gli elenchi di allegati di altre e-mail nella nuova posta.
9. Infine, puoi stampare questa nuova mail come di consueto.

Metodo 2: Stampa elenchi di allegati tramite VBA di Outlook

1. Innanzitutto, premi “Alt + F11” per aprire l’editor VBA di Outlook.
2. Quindi, copia il seguente codice VBA in un modulo.

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. Successivamente, aggiungi questa macro alla barra degli strumenti di accesso rapido facendo riferimento all'articolo - "Come eseguire il codice VBA in Outlook".
4. Alla fine, prova questa macro.

• All'inizio, scegli diverse e-mail.
• Quindi, fai clic sul pulsante macro nella barra di accesso rapido.
• Immediatamente, gli elenchi degli allegati di queste e-mail devono essere stati stampati.

Ricorri a uno strumento di riparazione di Outlook di punta

Quando ti imbatti in danni ai file di Outlook, deve essere la migliore notizia che tu abbia in mano un recente backup dei dati di Outlook. Può permetterti di sbarazzarti di complicate correzioni di file di Outlook. Tuttavia, a volte il backup non può essere ripristinato. A quel punto, dovrai ricorrere a uno strumento di correzione più stellare e professionale, come DataNumen Outlook Repair. Può riparare PST corrotto entro pochi minuti.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparazione mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com