2 brze metode za štampanje lista priloga više Outlook e-poruka

Ponekad ćete morati izdvojiti i odštampati liste priloga više e-poruka. U ovom članku ćemo vas naučiti 2 načina da ga dobijete.

Ako primite nekoliko e-poruka sa više priloga za vaše reference, možda ćete želeti da odštampate ove nazive priloga. Kako ga u ovoj situaciji nabaviti na veliko? Nakon toga ćemo vas naučiti 2 načina da brzo odštampate liste priloga samo za više Outlook e-poruka.

Metoda 1: Štampajte i kopirajte listu priloga u formatu obogaćenog teksta

1. Na samom početku otvorite Outlook e-poštu.
2. Zatim u prozoru poruke kliknite na “Radnje” i odaberite “Uredi poruku”.
3. Zatim idite na karticu “Format Text”, na kojoj odaberite format “Rich Text”.
4. Odmah možete vidjeti da su prilozi e-pošte premješteni u tijelo.
5. Nakon toga kliknite na dugme “Odgovori” u grupi “Odgovori” na kartici “Poruka”.
6. U sljedećem mailu, lista priloga je već bila u tijelu, kao na slici ispod.
7. Sada možete kopirati listu priloga u novu e-poštu.
8. Kasnije koristite ovaj metod da kopirate liste priloga drugih e-poruka u novu poštu.
9. Konačno, ovu novu poštu možete odštampati kao i obično.

Metod 2: Štampajte liste priloga preko 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 ovaj makro na alatnu traku za brzi pristup pozivajući se na članak – “Kako pokrenuti VBA kod u vašem Outlooku".
4. Na kraju, isprobajte ovaj makro.

• Prvo odaberite nekoliko e-poruka.
• Zatim kliknite na dugme makro na traci sa alatkama za brzi pristup.
• Liste priloga ovih e-poruka moraju odmah biti odštampane.

Pribjegavajte vrhunskom Outlook alatu za popravak

Kada naiđete na oštećenje Outlook datoteke, sigurno je najbolja vijest da imate nedavnu sigurnosnu kopiju Outlookovih podataka u ruci. Može vam omogućiti da se riješite komplikovane popravke Outlook datoteke. Međutim, ponekad se sigurnosna kopija ne može vratiti. U tom trenutku, morat ćete pribjeći zvjezdanijem i profesionalnijem alatu za popravke, na primjer DataNumen Outlook Repair. Može se popraviti corrupt PST u roku od nekoliko minuta.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com