2 hurtige metoder til at udskrive vedhæftede lister over flere Outlook-e-mails

Nogle gange bliver du nødt til at udtrække og udskrive vedhæftede lister over flere e-mails. I denne artikel vil vi lære dig 2 metoder til at få det.

Hvis du modtager flere e-mails med flere vedhæftede filer til dine referencer, kan du udskrive disse vedhæftede navne. Hvordan kan du få det i bulk i denne situation? Derefter vil vi lære dig 2 måder til hurtigt at udskrive vedhæftede lister kun af flere Outlook-e-mails.

Metode 1: Udskriv og kopier bilagsliste i Rich Text-format

1. Helt i starten skal du åbne en Outlook-e-mail.
2. Klik derefter på "Handlinger" i meddelelsesvinduet og vælg "Rediger meddelelse".
3. Gå derefter til fanen "Formater tekst", hvor du vælger "Rich Text"-format.
4. På én gang kan du se, at de vedhæftede e-mails er flyttet til brødteksten.
5. Derefter skal du klikke på knappen "Svar" i gruppen "Svar" på fanen "Besked".
6. I den efterfølgende mail har den vedhæftede liste allerede været i brødteksten, som skærmbilledet nedenfor.
7. Nu kan du kopiere den vedhæftede liste til en ny e-mail.
8. Brug senere denne metode til at kopiere de vedhæftede lister over andre e-mails til den nye e-mail.
9. Endelig kan du printe denne nye mail ud som normalt.

Metode 2: Udskriv bilagslister via Outlook VBA

1. Til at starte med skal du trykke på “Alt + F11” for at åbne Outlook VBA-editoren.
2. Kopier derefter følgende VBA-kode til et 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. Tilføj derefter denne makro til værktøjslinjen Hurtig adgang ved at henvise til artiklen - "Sådan køres VBA-kode i din Outlook".
4. Prøv til sidst denne makro.

• Først skal du vælge flere e-mails.
• Klik derefter på makroknappen i værktøjslinjen Hurtig adgang.
• Med det samme skal de vedhæftede lister over disse e-mails være blevet udskrevet.

Brug et tip-top Outlook-reparationsværktøj

Når du støder på skader på en Outlook-fil, må det være den bedste nyhed, at du har en nylig Outlook-datasikkerhedskopi i hånden. Det kan tillade dig at slippe af med komplicerede Outlook-filfix. Men nogle gange kan backup ikke blive gendannet. På det tidspunkt bliver du nødt til at ty til et mere fantastisk og professionelt fixværktøj, f.eks DataNumen Outlook Repair. Det kan reparere korrupt PST inden for få minutter.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparation mdf og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com