2 Ātras metodes vairāku Outlook e-pasta ziņojumu pielikumu sarakstu drukāšanai

Dažreiz jums būs jāizvelk un jāizdrukā vairāku e-pasta ziņojumu pielikumu saraksti. Šajā rakstā mēs jums iemācīsim 2 metodes, kā to iegūt.

Ja saņemat vairākus e-pasta ziņojumus ar vairākiem pielikumiem savām atsaucēm, iespējams, vēlēsities izdrukāt šos pielikumu nosaukumus. Kā šajā situācijā to var iegūt vairumā? Tālāk mēs jums iemācīsim 2 veidus, kā ātri izdrukāt tikai vairāku Outlook e-pasta ziņojumu pielikumu sarakstus.

1. metode: drukājiet un kopējiet pielikumu sarakstu bagātinātā teksta formātā

1. Pašā sākumā atveriet Outlook e-pastu.
2. Pēc tam ziņojuma logā noklikšķiniet uz “Darbības” un atlasiet “Rediģēt ziņojumu”.
3. Pēc tam atveriet cilni “Teksta formatēšana”, kurā atlasiet “Rich Text” formātu.
4. Uzreiz varat redzēt, ka e-pasta pielikumi tiek pārvietoti uz pamattekstu.
5. Pēc tam cilnes “Ziņojums” grupā “Atbildēt” noklikšķiniet uz pogas “Atbildēt”.
6. Nākamajā vēstulē pielikumu saraksts jau ir bijis pamattekstā, tāpat kā tālāk redzamajā ekrānuzņēmumā.
7. Tagad varat kopēt pielikumu sarakstu uz jaunu e-pastu.
8. Vēlāk izmantojiet šo metodi, lai kopētu citu e-pasta ziņojumu pielikumu sarakstus uz jauno e-pastu.
9. Visbeidzot, kā parasti, varat izdrukāt šo jauno pastu.

2. metode: drukājiet pielikumu sarakstus, izmantojot Outlook VBA

1. Lai sāktu, nospiediet taustiņu kombināciju “Alt + F11”, lai atvērtu Outlook VBA redaktoru.
2. Pēc tam modulī nokopējiet šo VBA kodu.

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. Pēc tam pievienojiet šo makro ātrās piekļuves rīkjoslai, atsaucoties uz rakstu - "Kā palaist VBA kodu programmā Outlook".
4. Galu galā izmēģiniet šo makro.

• Sākumā izvēlieties vairākas e-pasta adreses.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz pogas makro.
• Šo e-pastu pielikumu sarakstiem uzreiz jābūt izdrukātiem.

Izmantojiet vispiemērotāko Outlook labošanas rīku

Kad saskaraties ar Outlook faila bojājumiem, vislabākajai ziņai ir jābūt nesenai Outlook datu dublējumam. Tas var ļaut jums atbrīvoties no sarežģīta Outlook failu labojuma. Tomēr dažreiz dublējumu var neizdoties atjaunot. Tajā brīdī jums būs jāizmanto zvaigžņotāks un profesionālāks labošanas rīks, piemēram DataNumen Outlook Repair. To var salabot korumpēts PST dažu minūšu laikā.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonta mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar