2 Metode rapide de imprimare a listelor de atașamente ale mai multor e-mailuri Outlook

Uneori, va trebui să extrageți și să tipăriți listele de atașamente ale mai multor e-mailuri. În acest articol, vă vom învăța 2 metode pentru a-l obține.

Dacă primiți mai multe e-mailuri cu mai multe atașamente pentru referințe, este posibil să doriți să tipăriți aceste nume de atașamente. În această situație, cum îl puteți obține în vrac? Ulterior, vă vom învăța 2 moduri de a imprima rapid listele de atașamente numai ale mai multor e-mailuri Outlook.

Metoda 1: Imprimați și copiați lista de atașamente în format text îmbogățit

1. De la bun început, deschideți un e-mail Outlook.
2. Apoi, în fereastra Mesaj, faceți clic pe „Acțiuni” și selectați „Editați mesajul”.
3. Apoi, accesați fila „Format text”, pe care selectați formatul „Text îmbogățit”.
4. Imediat, puteți vedea că atașamentele de e-mail sunt mutate în corp.
5. După aceea, faceți clic pe butonul „Răspuns” din grupul „Răspuns” din fila „Mesaj”.
6. În e-mailul următor, lista de atașamente a fost deja în corp, ca în captura de ecran de mai jos.
7. Acum puteți copia lista de atașamente într-un nou e-mail.
8. Mai târziu, utilizați această metodă pentru a copia listele de atașamente ale altor e-mailuri în noul e-mail.
9. În cele din urmă, puteți imprima acest nou e-mail ca de obicei.

Metoda 2: Imprimați liste de atașamente prin Outlook VBA

1. Pentru început, apăsați „Alt + F11” pentru a deschide editorul VBA din Outlook.
2. Apoi, copiați următorul cod VBA într-un modul.

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. După aceea, adăugați această macrocomandă la Bara de instrumente Acces rapid, referindu-vă la articolul – „Cum să rulați codul VBA în Outlook".
4. În cele din urmă, încercați această macrocomandă.

• La început, alegeți mai multe e-mailuri.
• Apoi, faceți clic pe butonul macro din Bara de instrumente Acces rapid.
• Deodată, listele de atașamente ale acestor e-mailuri trebuie să fi fost tipărite.

Apelați la un instrument de reparare Outlook tip-top

Când întâlniți deteriorarea fișierelor Outlook, trebuie să fie cea mai bună veste că aveți o copie de rezervă recentă a datelor Outlook în mână. Vă poate permite să scăpați de remedierea complicată a fișierelor Outlook. Dar, uneori, backup-ul nu poate fi restaurat. În acel moment, va trebui să recurgeți la un instrument de remediere mai stelar și mai profesionist, cum ar fi DataNumen Outlook Repair. Se poate repara PST corupt în câteva minute.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com