2 greiti kelių Outlook el. laiškų priedų sąrašų spausdinimo būdai

Kartais reikės išskleisti ir atspausdinti kelių el. laiškų priedų sąrašus. Šiame straipsnyje mes išmokysime jus 2 būdų, kaip tai padaryti.

Jei gaunate kelis el. laiškus su keliais nuorodų priedais, galbūt norėsite atsispausdinti šiuos priedų pavadinimus. Kaip šioje situacijoje galite jį gauti urmu? Toliau mes išmokysime jus 2 būdų, kaip greitai atspausdinti tik kelių „Outlook“ el. laiškų priedų sąrašus.

1 būdas: spausdinkite ir kopijuokite priedų sąrašą raiškiojo teksto formatu

1. Pačioje pradžioje atidarykite „Outlook“ el.
2. Tada pranešimų lange spustelėkite „Veiksmai“ ir pasirinkite „Redaguoti pranešimą“.
3. Tada eikite į skirtuką „Format Text“, kuriame pasirinkite „Rich Text“ formatą.
4. Iš karto galite pamatyti, kad el. pašto priedai perkeliami į turinį.
5. Po to spustelėkite mygtuką „Atsakyti“ skirtuke „Pranešimas“ esančioje grupėje „Atsakyti“.
6. Vėlesniame laiške priedų sąrašas jau buvo tekste, kaip ir toliau pateiktoje ekrano kopijoje.
7. Dabar galite nukopijuoti priedų sąrašą į naują el. laišką.
8. Vėliau naudokite šį metodą, norėdami nukopijuoti kitų el. laiškų priedų sąrašus į naują laišką.
9. Galiausiai, kaip įprasta, galite atsispausdinti šį naują laišką.

2 būdas: spausdinkite priedų sąrašus per Outlook VBA

1. Norėdami pradėti, paspauskite „Alt + F11“, kad atidarytumėte „Outlook VBA“ redaktorių.
2. Tada nukopijuokite šį VBA kodą į 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. Po to pridėkite šią makrokomandą prie greitosios prieigos įrankių juostos, vadovaudamiesi straipsniu „Kaip paleisti VBA kodą „Outlook“.".
4. Galiausiai išbandykite šią makrokomandą.

• Iš pradžių pasirinkite kelis el.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
• Šių el. laiškų priedų sąrašai turi būti iš karto išspausdinti.

Pasinaudokite geriausiu „Outlook“ taisymo įrankiu

Kai susiduriate su „Outlook“ failo pažeidimu, geriausia žinia, kad turite naujausią „Outlook“ duomenų atsarginę kopiją. Tai gali leisti jums atsikratyti sudėtingų „Outlook“ failų taisymo. Tačiau kartais gali nepavykti atkurti atsarginės kopijos. Tuo metu turėsite pasinaudoti geresniu ir profesionalesniu taisymo įrankiu, pvz., DataNumen Outlook Repair. Gali taisyti sugadintas PST per kelias minutes.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontuoti mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com