Outlook VBA yordamida elektron pochta ro'yxatida qo'shimchalar sonini qanday ko'rsatish mumkin

Agar siz elektron pochta ro'yxatidagi har bir elektron pochtadagi qo'shimchalar sonini tezda olishni istasangiz, ushbu maqoladagi VBA kodidan foydalanishingiz mumkin. U har bir kiruvchi elektron pochtadagi biriktirmalarni avtomatik hisoblab chiqadi va hisobni yangi ustunda ko'rsatadi.

Ba'zi foydalanuvchilar tez-tez elektron pochta qo'shimchalarini hisoblashlari kerak. Ushbu stsenariyda nega biriktirma sonini ko'rsatish uchun eksklyuziv ustunni yaratib, yoqmaysiz? Quyida biz Outlook-da elektron pochta qo'shimchalarini avtomatik hisoblashni va hisobni shunday yangi ustunda ko'rsatishni o'rgatamiz.

E-pochta ro'yxatida biriktirmalar sonini ko'rsatish

1. Boshlash uchun Outlook ilovangizni ishga tushiring.
2. Keyin asosiy Outlook oynasida "Alt + F11" tugmachalarini bosing.
3. Keyin yangi Outlook VBA muharriri oynasida foydalanilmayotgan modulni ochishingiz kerak.
4. Keyinchalik, ushbu modulga quyidagi VBA kodini nusxa ko'chiring va joylashtiring.

Sub AutoCountAttachments(objMail As Outlook.MailItem)
    Dim objAttachments As Outlook.Attachments
    Dim objProperties As Outlook.UserProperties
    Dim objProperty As Outlook.UserProperty
    Dim strPropertyName As String
 
    Set objAttachments = objMail.Attachments
 
    strPropertyName = "Attachment Count"
    Set objProperties = objMail.UserProperties
 
    'Check if there is already a column in this name
    Set objProperty = objProperties.Find(strPropertyName, True)
    If objProperty Is Nothing Then
       'If not, add this column
       Set objProperty = objProperties.Add(strPropertyName, olText, True)
    End If
 
    'Set the column value equal to the count of attachments
    objProperty.value = objAttachments.Count
    objMail.Save
End Sub

5. Shundan so'ng, joriy "Microsoft Visual Basic for Applications" oynasidan chiqishingiz mumkin.
6. Keyinchalik har bir kiruvchi elektron pochtada ushbu skriptni ishga tushirish uchun yangi qoida yaratishingiz kerak.

• Birinchidan, "Fayl" menyusiga o'ting va "Ma'lumot" yorlig'i ostidagi "Qoidalar va ogohlantirishlarni boshqarish" tugmasini bosing.
• Keyin yangi dialog oynasida "Yangi qoida" tugmasini bosing.
• Keyingi "Qoidalar ustasi" ekranida "Men qabul qilgan xabarlarga qoidani qo'llash" ni tanlang va "Keyingi" tugmasini bosing.
• Keyin "Shartlarni tanlash" bandiga e'tibor bermang va "Keyingi" tugmasini bosing.
• Keyin "skriptni ishga tushirish" amalini tanlang va quyidagi skrinshot kabi avval qo'shilgan makrosni tanlang.
• Shundan so'ng, oxirgi "Qoidani sozlashni tugatish" ekraniga kelgunga qadar bir nechta "Keyingi" tugmasini bosing.
• Keyinchalik, ushbu qoida uchun yangi nom ko'rsatishingiz va "Ushbu qoidani "Kiruvchi xabarlar qutisi" dagi xabarlarda ishga tushirish" va "Ushbu qoidani yoqish" parametrlarini yoqishingiz kerak.
• Nihoyat, "Finish" tugmasini bosing.

7. Shundan so'ng, VBA kodi tomonidan yaratilgan "Biriktirmalar soni" ustunini qo'shishingiz kerak. Faqat quyidagi amallarni bajaring:

• Birinchidan, elektron pochta ro'yxati ekranidagi "Ko'rish" yorlig'iga o'ting.
• Keyin "Sozlamalarni ko'rish" tugmasini bosing.
• Yangi ochilgan dialog oynasida "Ustunlar" tugmasini bosing.
• Keyin "Ustunlarni ko'rsatish" oynasida "Kirish qutisidagi foydalanuvchi tomonidan belgilangan ustunlar" ostidagi "Biriktirmalar soni" ustunini toping va tanlang va "Qo'shish" tugmasini bosing.
• Nihoyat, o'zgarishlarni saqlash uchun "OK" tugmasini bosing.

8. Oxir-oqibat, siz elektron pochta ro'yxatida quyidagi rasmda ko'rsatilgan har bir elektron pochta uchun biriktirmalar sonini ko'rsatadigan "Biriktirmalar soni" ustunini ko'rishingiz mumkin:

PST ma'lumotlarini yo'qotishdan saqlaning

Hech kim PST ma'lumotlarining yo'qolishini qabul qilishni xohlamaydi, deb ishoniladi. Xuddi shu narsa sizga ham tegishli bo'lishi kerak. Shuning uchun, siz PST faylingizning ma'lumotlarining zaxira nusxasini yaratish va shunga o'xshash nufuzli tuzatish vositasidan foydalanish kabi ba'zi ehtiyot choralarini ko'rishingiz kerak. DataNumen Outlook Repair. U qila oladi Outlook-ni ta'mirlash ter to'kmasdan muammolar.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com