2 hitri metodi za tiskanje seznamov prilog več Outlookovih e-poštnih sporočil

Včasih boste morali ekstrahirati in natisniti sezname prilog več e-poštnih sporočil. V tem članku vas bomo naučili 2 metod, kako ga pridobiti.

Če prejmete več e-poštnih sporočil z več prilogami za svoje reference, boste morda želeli natisniti ta imena prilog. Kako ga lahko v tem primeru dobite v razsutem stanju? Nato vas bomo naučili dveh načinov za hitro tiskanje seznamov prilog samo za več Outlookovih e-poštnih sporočil.

1. način: Natisnite in kopirajte seznam prilog v obliki obogatenega besedila

1. Na samem začetku odprite Outlookovo e-pošto.
2. Nato v oknu Sporočilo kliknite »Dejanja« in izberite »Uredi sporočilo«.
3. Nato pojdite na zavihek »Oblikuj besedilo«, kjer izberite obliko »Obogateno besedilo«.
4. Takoj lahko vidite, da so e-poštne priloge premaknjene v telo.
5. Po tem kliknite gumb »Odgovori« v skupini »Odgovori« na zavihku »Sporočilo«.
6. V naslednji pošti je bil seznam prilog že v telesu, kot na spodnjem posnetku zaslona.
7. Zdaj lahko kopirate seznam prilog v novo e-pošto.
8. Pozneje uporabite to metodo za kopiranje seznamov prilog drugih e-poštnih sporočil v novo pošto.
9. Končno lahko to novo pošto natisnete kot običajno.

2. način: Natisnite sezname prilog prek programa Outlook VBA

1. Za začetek pritisnite »Alt + F11«, da odprete urejevalnik VBA v Outlooku.
2. Nato v modul kopirajte naslednjo kodo VBA.

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. Nato dodajte ta makro v orodno vrstico za hitri dostop s sklicevanjem na članek – “Kako zagnati kodo VBA v Outlooku".
4. Sčasoma preizkusite ta makro.

• Najprej izberite več e-poštnih naslovov.
• Nato v orodni vrstici za hitri dostop kliknite gumb makra.
• Takoj so morali biti natisnjeni seznami prilog teh e-poštnih sporočil.

Uporabite vrhunsko orodje za popravilo Outlooka

Ko naletite na poškodovano Outlookovo datoteko, je zagotovo najboljša novica, da imate pri roki nedavno varnostno kopijo Outlookovih podatkov. Lahko vam omogoči, da se znebite zapletenih popravkov datoteke Outlook. Toda včasih varnostne kopije ni mogoče obnoviti. Takrat se boste morali zateči k bolj zvezdnemu in profesionalnemu orodju za popravilo, kot je DataNumen Outlook Repair. Lahko se popravi pokvarjen PST v nekaj minutah.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com