2 rýchle metódy na tlač zoznamov príloh viacerých e-mailov Outlook

Niekedy budete musieť extrahovať a vytlačiť zoznamy príloh viacerých e-mailov. V tomto článku vás naučíme 2 metódy, ako to získať.

Ak dostanete viac e-mailov s viacerými prílohami pre vaše referencie, môžete si tieto názvy príloh vytlačiť. Ako v tejto situácii môžete získať hromadne? Ďalej vás naučíme 2 spôsoby, ako rýchlo vytlačiť iba zoznam príloh viacerých e-mailov Outlook.

Metóda 1: Tlač a kopírovanie zoznamu príloh vo formáte RTF

1. Hneď na úvod otvorte e-mail Outlooku.
2. Potom v okne správy kliknite na „Akcie“ a vyberte „Upraviť správu“.
3. Ďalej sa obráťte na kartu „Formátovať text“, na ktorej vyberte formát „Rich Text“.
4. Hneď vidíte, že prílohy e-mailov sú presunuté do tela.
5. Potom kliknite na tlačidlo „Odpovedať“ v skupine „Odpovedať“ na karte „Správa“.
6. V nasledujúcej pošte bol zoznam príloh už v tele, ako napríklad snímka obrazovky nižšie.
7. Teraz môžete skopírovať zoznam príloh do nového e-mailu.
8. Neskôr použijete túto metódu na skopírovanie zoznamov príloh iných e-mailov do novej pošty.
9. Na záver si môžete túto novú poštu vytlačiť ako obvykle.

Metóda 2 ： Tlač zoznamov príloh pomocou Outlooku VBA

1. Pre začiatok stlačte klávesy „Alt + F11“ a otvorte editor VBA v programe Outlook.
2. Potom skopírujte nasledujúci kód VBA do modulu.

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. Potom pridajte toto makro na panel s nástrojmi Rýchly prístup podľa článku - „Ako spustiť kód VBA v programe Outlook".
4. Nakoniec vyskúšajte toto makro.

• Najskôr vyberte niekoľko e-mailov.
• Potom kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Zoznamy príloh týchto e-mailov musia byť vytlačené naraz.

Uchýliť sa k špičkovému nástroju na opravu programu Outlook

Keď narazíte na poškodenie súborov Outlooku, musí byť najlepšou správou, že máte v ruke nedávnu zálohu dát Outlooku. Môže vám umožniť zbaviť sa komplikovanej opravy súborov Outlooku. Obnovenie zálohy však niekedy môže zlyhať. V tom okamihu sa budete musieť obrátiť na hviezdnejší a profesionálnejší nástroj na opravu, ako je DataNumen Outlook Repair. Môže to opraviť skorumpovaný PST do niekoľkých minút.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S