2 Raske metoder for å skrive ut vedleggslistene med flere Outlook-e-poster

Noen ganger må du trekke ut og skrive ut vedleggslistene for flere e-poster. I denne artikkelen vil vi lære deg 2 metoder for å få det.

Hvis du mottar flere e-poster med flere vedlegg for referansene dine, kan det være lurt å skrive ut disse vedleggsnavnene. Hvordan kan du få det i bulk i denne situasjonen? Deretter vil vi lære deg to måter å raskt skrive ut vedleggslistene kun av flere Outlook-e-poster.

Metode 1: Skriv ut og kopier vedleggsliste i rikt tekstformat

1. Helt i begynnelsen åpner du en Outlook-e-post.
2. Klikk deretter "Handlinger" i meldingsvinduet og velg "Rediger melding".
3. Deretter går du til "Format Text"-fanen, der du velger "Rich Text"-format.
4. Med en gang kan du se at e-postvedleggene er flyttet til brødteksten.
5. Deretter klikker du på "Svar"-knappen i "Svar"-gruppen på fanen "Melding".
6. I den påfølgende e-posten har vedleggslisten allerede vært i brødteksten, som skjermbildet nedenfor.
7. Nå kan du kopiere vedleggslisten til en ny e-post.
8. Bruk senere denne metoden til å kopiere vedleggslistene til andre e-poster til den nye e-posten.
9. Til slutt kan du skrive ut denne nye e-posten som vanlig.

Metode 2: Skriv ut vedleggslister via Outlook VBA

1. For å starte, trykk «Alt + F11» for å åpne Outlook VBA-editoren.
2. Kopier deretter følgende VBA-kode til en 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. Etterpå, legg til denne makroen til Quick Access Toolbar ved å referere til artikkelen – “Hvordan kjøre VBA-kode i Outlook".
4. Til slutt, prøv denne makroen.

• Velg først flere e-poster.
• Klikk deretter på makroknappen i verktøylinjen for hurtigtilgang.
• Med en gang må vedleggslistene til disse e-postene ha blitt skrevet ut.

Bruk et tip-top Outlook-reparasjonsverktøy

Når du kommer over Outlook-filskade, må det være den beste nyheten at du har en fersk Outlook-datasikkerhetskopi i hånden. Det kan tillate deg å bli kvitt komplisert Outlook-filfiks. Men noen ganger kan sikkerhetskopien ikke gjenopprettes. På det tidspunktet må du bruke et mer fantastisk og profesjonelt fikseringsverktøy, som DataNumen Outlook Repair. Den kan reparere korrupt PST innen minutter.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med