2 nopeaa tapaa tulostaa liitteiden luettelot useista Outlook-sähköposteista

Joskus sinun on purettava ja tulostettava useiden sähköpostien liiteluettelot. Tässä artikkelissa opetamme sinulle 2 tapaa saada se.

Jos saat useita viitteitä sisältäviä sähköpostiviestejä, joissa on useita liitteitä, kannattaa ehkä tulostaa nämä liitteiden nimet. Kuinka voit saada sen tässä tilanteessa irtotavarana? Seuraavassa opetamme sinulle kaksi tapaa tulostaa vain useiden Outlook-sähköpostien liiteluettelot.

Tapa 1: Tulosta ja kopioi liiteluettelo Rich Text -muodossa

1. Avaa heti Outlook-sähköposti.
2. Napsauta sitten Viesti-ikkunassa ”Toiminnot” ja valitse ”Muokkaa viestiä”.
3. Siirry seuraavaksi Muotoile teksti -välilehdelle, jossa valitse "Rich Text" -muoto.
4. Voit heti nähdä, että sähköpostiliitteet siirretään runkoon.
5. Sen jälkeen napsauta Vastaa-painiketta Vastaa-ryhmässä Viesti-välilehdessä.
6. Seuraavassa sähköpostissa liiteluettelo on jo ollut rungossa, kuten alla oleva kuvakaappaus.
7. Nyt voit kopioida liiteluettelon uuteen sähköpostiin.
8. Käytä myöhemmin tätä tapaa kopioidaksesi muiden sähköpostien liiteluettelot uuteen postiin.
9. Lopuksi voit tulostaa uuden sähköpostin tavalliseen tapaan.

Tapa 2 ： Tulosta liiteluettelot Outlook VBA: n kautta

1. Aloita painamalla "Alt + F11" avataksesi Outlook VBA -editorin.
2. Kopioi sitten seuraava VBA-koodi moduuliin.

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. Lisää tämän jälkeen tämä makro Pikakäyttötyökaluriville viittaamalla artikkeliin - “Kuinka suorittaa VBA-koodi Outlookissa".
4. Kokeile lopulta tätä makroa.

• Valitse ensin useita sähköpostiviestejä.
• Napsauta sitten pikakäynnistystyökalurivin makropainiketta.
• Näiden sähköpostien liiteluettelot on kerralla tulostettava.

Käytä Tip-top Outlook -korjaustyökalua

Kun törmäät Outlook-tiedostovaurioihin, sen on oltava paras uutinen siitä, että sinulla on äskettäinen Outlook-varmuuskopio kädessäsi. Sen avulla voit päästä eroon monimutkaisista Outlook-tiedostojen korjauksista. Mutta joskus varmuuskopion palauttaminen voi epäonnistua. Siinä vaiheessa sinun on käytettävä tähtien ja ammattilaisten korjaustyökalua, kuten DataNumen Outlook Repair. Se voi korjata korruptoitunut PST muutamassa minuutissa.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaus mdf ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com