Bəzi Outlook istifadəçiləri e-poçtlarını göndərənlərin əlaqə rəng kateqoriyalarına uyğun olaraq təsnif etməyi üstün tuturlar. Kateqoriyanı əl ilə təyin etmək çətin olmalıdır. Bu məqalə Outlook VBA ilə avtomatik olaraq necə həyata keçiriləcəyini təqdim edəcəkdir.
Outlook-da işinizin səmərəliliyini artırmaq üçün siz e-poçtlarınızı daha yaxşı idarə etmək üçün səy göstərəcəksiniz. Şübhəsiz ki, “Rəng Kateqoriyaları” bu baxımdan yaxşı xüsusiyyətdir. Bir çox istifadəçi poçtlarını təşkil etmək və fərqləndirmək üçün ondan istifadə etməyi üstün tutur. Əlbəttə ki, e-poçtların rəng təsnifatının konkret əsası şəxsi vərdişlərinizdən asılıdır. Məsələn, bəzi istifadəçilər kontaktlarını rəngli kateqoriyalara ayırdılar, buna görə də e-poçtlarını göndərənlərin əlaqə kateqoriyalarına uyğun olaraq təsnif etməyə ümid edirlər. Bunu əl ilə etsəniz, ilk növbədə göndərənin əlaqə kateqoriyalarını yoxlamalı və sonra onu e-poçta əl ilə təyin etməlisiniz ki, bu, mütləq qarışıq olacaq.
Bu tələbi həll etmək üçün əslində Outlook VBA-dan istifadə edə bilərsiniz ki, bu da Outlook-a göndərənin əlaqə kateqoriyalarını avtomatik yoxlamağa və onu yeni e-poçtlara təyin etməyə imkan verir. Bu funksiya ilə maraqlanırsınızsa, ətraflı addımlar və kodları əldə etmək üçün oxuyun.
Gələn E-poçtları Göndərənlərin Əlaqə Kateqoriyalarına görə Avtomatik Kateqoriyalara ayırın
- İlk növbədə, Outlook-u işə salın və "Alt + F11" düymələrini basın.
- Sonra VBA redaktoru pəncərəsi görünəcək, orada "ThisOutlookSession" layihəsini tapıb açmalısınız.
- Sonra aşağıdakı VBA kodlarını kopyalayıb “ThisOutlookSession”a yapışdırın.
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
- Sonradan yeni makroya rəqəmsal sertifikat təyin etməlisiniz.
- Birincisi, VBA Layihələri üçün Rəqəmsal Sertifikatlar vasitəsilə yeni sertifikat yaradın.
- Sonra bu kodu rəqəmsal olaraq imzalayın.
- Bundan sonra, yalnız rəqəmsal imzalanmış makrolara icazə verməklə Outlook makro təhlükəsizliyinizi dəyişə bilərsiniz.
- Nəhayət, yenidən yaza bilərsiniztart Yeni makronu aktivləşdirmək üçün Outlook. Bundan sonra Gələnlər Qutusu qovluğuna daxil olan bütün daxil olan e-poçtlar göndərənlərin əlaqə kateqoriyalarına görə avtomatik olaraq təsnif ediləcək.
Gözlənilməz Outlook qəzasını həll edin
Outlook bir çox istifadəçi tərəfindən seçilsə də, hələ də çöküşdən xilas ola bilmir. Gözlənilməz Outlook qəzası zamanı çaxnaşma hiss etməlisiniz. Narahat olma. Problemləri özünüz diaqnoz etmək və həll etmək üçün tədbirlər görə bilərsiniz, məsələn, restarOutlook, üçüncü tərəf əlavələrini söndürmək, yeni poçt profili yaratmaq və Office paketini təmir etmək və s. Ən pis vəziyyət olmalıdır korlanmış Outlook PST məlumatı, bu son dərəcə düyünlüdür. Bu ssenaridə, kimi möhkəm xarici alətə müraciət etməlisiniz DataNumen Outlook Repair.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş SQL mdf db-ni təmir edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com