Ba'zan siz bir nechta elektron xatlarning biriktirma ro'yxatini chiqarib olishingiz va chop etishingiz kerak bo'ladi. Ushbu maqolada biz sizga uni olishning 2 usulini o'rgatamiz.
Agar siz havolalaringiz uchun bir nechta biriktirmalari bo'lgan bir nechta elektron pochta xabarlarini olsangiz, ushbu biriktirma nomlarini chop etishingiz mumkin. Bunday holatda, uni qanday qilib ommaviy ravishda olishingiz mumkin? Keyinchalik, biz sizga bir nechta Outlook elektron pochta xabarlarining biriktirma ro'yxatini tezda chop etishning 2 usulini o'rgatamiz.
1-usul: Ilovalar ro'yxatini Rich Text Formatda chop etish va nusxalash
- Eng boshida Outlook elektron pochta manzilini oching.
- Keyin, Xabar oynasida "Amallar" ni bosing va "Xabarni tahrirlash" ni tanlang.
- Keyin, "Matnni formatlash" yorlig'iga o'ting, unda "Rich Text" formatini tanlang.
- Bir vaqtning o'zida siz elektron pochta qo'shimchalari tanaga ko'chirilganligini ko'rishingiz mumkin.
- Shundan so'ng, "Xabar" yorlig'idagi "Javob berish" guruhidagi "Javob berish" tugmasini bosing.
- Keyingi pochtada, biriktirmalar ro'yxati quyida keltirilgan skrinshot kabi allaqachon tanada bo'lgan.
- Endi siz qo'shimchalar ro'yxatini yangi elektron pochtaga nusxalashingiz mumkin.
- Keyinchalik, boshqa elektron pochta xabarlarining biriktirma ro'yxatlarini yangi pochtaga nusxalash uchun ushbu usuldan foydalaning.
- Nihoyat, bu yangi xatni odatdagidek chop etishingiz mumkin.
2-usul: Outlook VBA orqali qo'shimchalar ro'yxatini chop eting
- Boshlash uchun Outlook VBA muharririni ochish uchun "Alt + F11" tugmalarini bosing.
- Keyin quyidagi VBA kodini modulga nusxalang.
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
- Keyinchalik, maqolaga murojaat qilib, ushbu makrosni Tez kirish asboblar paneliga qo'shing - "Outlook-da VBA kodini qanday ishlatish kerak".
- Oxir-oqibat, ushbu makroni sinab ko'ring.
- Avvaliga bir nechta elektron pochta xabarlarini tanlang.
- Keyin, Tez kirish asboblar panelidagi makros tugmasini bosing.
- Bir vaqtning o'zida ushbu elektron xatlarning biriktirilgan ro'yxatlari chop etilgan bo'lishi kerak.
Eng yaxshi Outlook ta'mirlash vositasiga murojaat qiling
Outlook faylining shikastlanishiga duch kelganingizda, sizning qo'lingizda yaqinda Outlook ma'lumotlarining zaxira nusxasi borligi eng yaxshi xabar bo'lishi kerak. Bu sizga murakkab Outlook fayllarini tuzatishdan xalos bo'lishga imkon beradi. Biroq, ba'zida zaxira nusxasini tiklab bo'lmaydi. O'sha paytda siz yanada ajoyib va professional tuzatish vositasiga murojaat qilishingiz kerak bo'ladi, masalan DataNumen Outlook Repair. Ta'mirlash mumkin buzilgan PST daqiqada.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc ta'mirlash mdf va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com





