Ba'zi Outlook foydalanuvchilari elektron pochta xabarlarini jo'natuvchilarning kontakt rangi toifalariga ko'ra tasniflashni afzal ko'rishadi. Kategoriyani qo'lda belgilash mashaqqatli bo'lishi kerak. Ushbu maqola Outlook VBA yordamida uni avtomatik ravishda qanday amalga oshirishni taqdim etadi.
Outlook-da ish samaradorligini oshirish uchun siz elektron pochta xabarlaringizni yaxshiroq boshqarishga harakat qilasiz. Shubhasiz, "Rang toifalari" bu jihatdan yaxshi xususiyatdir. Ko'pgina foydalanuvchilar o'zlarining pochtalarini tartibga solish va farqlash uchun undan foydalanishni afzal ko'rishadi. Albatta, ranglarni tasniflashning aniq asosi sizning shaxsiy odatlaringizga bog'liq. Misol uchun, ba'zi foydalanuvchilar o'zlarining kontaktlarini rangli toifalarga ajratdilar, shuning uchun ular elektron pochta xabarlarini jo'natuvchilarning kontakt toifalariga ko'ra tasniflashga umid qilishadi. Agar siz buni qo'lda qilsangiz, avval jo'natuvchining kontakt toifalarini tekshirishingiz va keyin uni elektron pochtaga qo'lda belgilashingiz kerakligi aniq bo'ladi.
Ushbu talabni hal qilish uchun siz Outlook VBA-dan foydalanishingiz mumkin, bu Outlook-ga yuboruvchining kontakt toifalarini avtomatik tekshirish va uni yangi elektron pochta xabarlariga belgilash imkonini beradi. Agar siz ushbu xususiyatga qiziqsangiz, batafsil qadamlar va kodlarni olish uchun o'qing.
Kiruvchi elektron pochta xabarlarini jo'natuvchilarning kontakt toifalari bo'yicha avtomatik toifalarga ajratish
- Birinchidan, Outlook-ni ishga tushiring va "Alt + F11" tugmachalarini bosing.
- Keyin VBA muharriri oynasi paydo bo'ladi, unda siz "ThisOutlookSession" loyihasini topishingiz va ochishingiz kerak.
- Keyingi VBA kodlarini nusxa ko'chiring va "ThisOutlookSession" ga joylashtiring.
Public WithEvents olItems As Outlook.Items
Private Sub Application_Startup()
Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub olItems_ItemAdd(ByVal Item As Object)
Dim oMail As MailItem
Dim olContacts As Outlook.Items
Dim obj As Object
Dim objVariant As Variant
Dim olCategory As String
Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
If TypeOf Item Is MailItem Then
Set oMail = Item
For Each obj In olContacts
If TypeOf obj Is ContactItem Then
Set objVariant = obj
If objVariant.Email1Address = oMail.SenderEmailAddress Then
olCategory = objVariant.Categories
oMail.Categories = olCategory
End If
End If
Next
End If
End Sub
- Keyinchalik, yangi makroga raqamli sertifikatni belgilashingiz kerak.
- Birinchidan, VBA loyihalari uchun raqamli sertifikatlar orqali yangi sertifikat yarating.
- Keyin ushbu kodni raqamli imzolang.
- Shundan so'ng, siz Outlook makro xavfsizligini faqat raqamli imzolangan makrolarga ruxsat bergan holda o'zgartirishingiz mumkin.
- Oxir-oqibat, qayta tiklashingiz mumkintart Outlook yangi makroni faollashtirish uchun. Bundan buyon Inbox jildiga kelgan barcha kiruvchi xatlar jo‘natuvchilarning kontakt toifalari bo‘yicha avtomatik ravishda tasniflanadi.
Kutilmagan Outlook ishdan chiqishini hal qiling
Outlook ko'p foydalanuvchilar tomonidan afzal qilingan bo'lsa-da, u hali ham halokatdan xalos bo'lolmaydi. Kutilmagan Outlook ishdan chiqqanida vahima his qilishingiz kerak. Xavotir olmang, xavotirlanmang. Muammolarni mustaqil ravishda tashxislash va hal qilish uchun choralar ko'rishingiz mumkin, masalan, restarOutlook, uchinchi tomon plaginlarini o'chirib qo'yish, yangi pochta profilini yaratish va Office to'plamini tuzatish va hokazo. Eng yomon holat bo'lishi kerak buzilgan Outlook PST ma'lumotlari, bu juda tugunli. Ushbu stsenariyda siz kuchli tashqi vositaga o'tishingiz kerak, masalan DataNumen Outlook Repair.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan SQL mdf db-ni ta'mirlash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com