Outlook-ի բազմաթիվ էլ. նամակների հավելվածների ցուցակները տպելու 2 արագ մեթոդ

Outlook լուծումներ Սեպտեմբեր 29, 2025

Երբեմն ձեզ հարկավոր է հանել և տպել բազմաթիվ էլ. նամակների կցված ցուցակները: Այս հոդվածում մենք ձեզ կսովորեցնենք այն ստանալու 2 եղանակ։

Եթե ձեր հղումների համար մի քանի նամակներ եք ստանում բազմաթիվ հավելվածներով, կարող եք տպել այս հավելվածների անունները: Այս իրավիճակում ինչպե՞ս կարող եք այն մեծաքանակ ձեռք բերել: Այնուհետև մենք ձեզ կսովորեցնենք 2 եղանակ՝ արագ տպելու միայն Outlook-ի մի քանի նամակների հավելվածների ցուցակները:

Մեթոդ 1. Տպել և պատճենել առդիրների ցանկը հարուստ տեքստի ձևաչափով

Հենց սկզբում բացեք Outlook էլ.
Այնուհետև «Հաղորդագրության» պատուհանում կտտացրեք «Գործողություններ» և ընտրեք «Խմբագրել հաղորդագրությունը»:
Հաջորդը, անցեք «Ձևաչափի տեքստ» ներդիրին, որի վրա ընտրեք «Հարուստ տեքստ» ձևաչափը:
Միանգամից կարող եք տեսնել, որ էլփոստի կցորդները տեղափոխվում են մարմին:
Դրանից հետո սեղմեք «Պատասխանել» կոճակը «Պատասխանել» խմբում «Հաղորդագրություն» ներդիրում:
Հետագա փոստում կցված ցուցակն արդեն եղել է հիմնական մասում, ինչպես ստորև ներկայացված սքրինշոթը:
Այժմ դուք կարող եք պատճենել հավելվածների ցանկը նոր էլ.
Ավելի ուշ օգտագործեք այս մեթոդը՝ այլ նամակների կցված ցուցակները նոր փոստին պատճենելու համար:
Վերջապես, դուք կարող եք տպել այս նոր նամակը, ինչպես միշտ:

Մեթոդ 2. Տպել հավելվածների ցուցակները Outlook VBA-ի միջոցով

Սկսելու համար սեղմեք «Alt + F11»՝ Outlook VBA խմբագրիչը բացելու համար։
Դրանից հետո պատճենեք հետևյալ 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

Այնուհետև ավելացրեք այս մակրոն Արագ մուտքի Գործիքադարակի մեջ՝ հղում կատարելով հոդվածին – «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".
Ի վերջո, փորձեք այս մակրոները:

Սկզբում ընտրեք մի քանի էլ.
Դրանից հետո կտտացրեք մակրո կոճակին Արագ մուտքի Գործիքադարակում:
Այս նամակների կցված ցուցակները պետք է միանգամից տպագրվեն:

Դիմեք լավագույն Outlook-ի վերանորոգման գործիքին

Երբ տեսնում եք Outlook ֆայլի վնասը, լավագույն նորությունը պետք է լինի, որ դուք ունեք վերջին Outlook տվյալների կրկնօրինակում: Այն կարող է թույլ տալ ձեզ ազատվել բարդ Outlook ֆայլի ուղղումից: Սակայն երբեմն կրկնօրինակը կարող է չվերականգնվել: Այդ պահին դուք պետք է դիմեք ավելի աստղային և պրոֆեսիոնալ շտկման գործիքի, օրինակ DataNumen Outlook Repair. Այն կարող է վերանորոգել կոռումպացված PST րոպեների ընթացքում:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերանորոգել mdf և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com