2 kiirmeetodit mitme Outlooki meili manuste loendite printimiseks

Mõnikord peate välja võtma ja printima mitme meili manuste loendid. Selles artiklis õpetame teile 2 meetodit selle saamiseks.

Kui saate oma viideteks mitu mitme manusega meili, võiksite need manuste nimed välja printida. Kuidas saate selle sellises olukorras hulgi hankida? Edaspidi õpetame teile kahte võimalust, kuidas kiiresti printida ainult mitme Outlooki meili manuste loendid.

1. meetod: manuste loendi rikastekstivormingus printimine ja kopeerimine

1. Kohe alguses avage Outlooki meil.
2. Seejärel klõpsake sõnumiaknas "Toimingud" ja valige "Muuda sõnumit".
3. Järgmisena minge vahekaardile "Teksti vormindamine", kus valige vorming "Rikastekst".
4. Näete korraga, et meilimanused teisaldatakse kehasse.
5. Pärast seda klõpsake vahekaardi "Sõnum" rühmas "Vasta" nuppu "Vasta".
6. Järgmises kirjas on manuste loend juba kehas, nagu alloleval ekraanipildil.
7. Nüüd saate kopeerida manuste loendi uude meili.
8. Hiljem kasutage seda meetodit teiste meilide manuste loendite kopeerimiseks uude kirja.
9. Lõpuks saate selle uue kirja nagu tavaliselt välja printida.

2. meetod: printige manuste loendid Outlook VBA kaudu

1. Alustamiseks vajutage Outlook VBA redaktori avamiseks klahvikombinatsiooni „Alt + F11”.
2. Seejärel kopeerige järgmine VBA kood moodulisse.

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. Seejärel lisage see makro kiirpääsu tööriistaribale, viidates artiklile – "Kuidas Outlookis VBA-koodi käivitada".
4. Lõpuks proovige seda makrot.

• Kõigepealt valige mitu meili.
• Seejärel klõpsake kiirjuurdepääsu tööriistaribal makronuppu.
• Nende meilide manuste loendid peavad olema kohe välja prinditud.

Kasutage Outlooki tipptasemel parandustööriista

Kui märkate Outlooki failikahjustusi, peab see olema parim uudis, et teil on käes hiljutine Outlooki andmete varukoopia. See võimaldab teil vabaneda keerulisest Outlooki failiparandusest. Kuid mõnikord ei õnnestu varukoopiat taastada. Sel hetkel peate kasutama täpsemat ja professionaalsemat parandustööriista, näiteks DataNumen Outlook Repair. Seda saab parandada korrumpeerunud PST mõne minuti jooksul.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom