2 brze metode za ispis popisa privitaka više Outlook e-pošte

Ponekad ćete morati izdvojiti i ispisati popise privitaka više poruka e-pošte. U ovom članku ćemo vas naučiti 2 metode kako ga dobiti.

Ako primite nekoliko e-poruka s više privitaka za svoje reference, možda ćete htjeti ispisati nazive ovih privitaka. U ovoj situaciji, kako to možete nabaviti na veliko? Nakon toga ćemo vas naučiti 2 načina za brzi ispis popisa privitaka samo višestrukih Outlook e-poruka.

Metoda 1: Ispis i kopiranje popisa privitaka u formatu obogaćenog teksta

1. Na samom početku otvorite Outlook e-poštu.
2. Zatim u prozoru s porukom kliknite “Akcije” i odaberite “Uredi poruku”.
3. Zatim idite na karticu "Format Text", na kojoj odaberite format "Rich Text".
4. Odmah možete vidjeti da su privici e-pošte premješteni u tijelo.
5. Nakon toga kliknite gumb "Odgovori" u grupi "Odgovori" na kartici "Poruka".
6. U sljedećoj pošti, popis privitaka je već bio u tijelu, kao na slici ispod.
7. Sada možete kopirati popis privitaka u novu e-poštu.
8. Kasnije upotrijebite ovu metodu za kopiranje popisa privitaka drugih poruka e-pošte u novu poštu.
9. Konačno, možete ispisati ovu novu poštu kao i obično.

Metoda 2: Ispis popisa privitaka putem programa Outlook VBA

1. Za početak, pritisnite "Alt + F11" da biste otvorili Outlook VBA editor.
2. Zatim kopirajte sljedeći VBA kod u 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. Nakon toga dodajte ovu makronaredbu na alatnu traku za brzi pristup prema članku – "Kako pokrenuti VBA kod u vašem Outlooku".
4. Naposljetku, isprobajte ovu makronaredbu.

• Najprije odaberite nekoliko e-mailova.
• Zatim kliknite gumb makronaredbe na alatnoj traci za brzi pristup.
• Moraju biti odmah ispisani popisi privitaka ovih poruka e-pošte.

Pribjegnite vrhunskom Outlook alatu za popravak

Kada naiđete na oštećenje Outlook datoteke, sigurno je najbolja vijest da imate nedavnu sigurnosnu kopiju Outlook podataka pri ruci. Može vam omogućiti da se riješite kompliciranih popravaka Outlook datoteka. No, ponekad se sigurnosna kopija ne može vratiti. U tom trenutku morat ćete pribjeći zvjezdanijem i profesionalnijem alatu za popravak, kao što je DataNumen Outlook Repair. Može se popraviti pokvareni PST u roku od nekoliko minuta.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak mdf-a i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com