Outlook-da eyni söhbətdə bütün məktublara eyni rəng kateqoriyasını avtomatik olaraq necə təyin etmək olar

Eyni söhbətdəki bütün e-poçtlara eyni rəng kateqoriyasını təyin etmək istəyirsinizsə, bunu həyata keçirmək üçün bu məqalədə təqdim olunan VBA kodundan istifadə edə bilərsiniz.

E-poçtları daha yaxşı təsnif etmək və idarə etmək üçün siz rəng kateqoriyalarını tətbiq etməyə alışmış ola bilərsiniz. Bundan əlavə, bir söhbətdə e-poçtları daha yaxşı müəyyən etmək üçün Outlook-da çoxlu söhbətləriniz varsa, yəni e-poçt mövzuları varsa, eyni söhbətdəki bütün məktublara eyni rəng kateqoriyalarını tətbiq edə bilərsiniz. Şübhəsiz ki, rəng kateqoriyasını e-poçt mövzusuna əl ilə təyin etmək olduqca yorucudur. Buna görə də, söhbətdə e-poçtu kateqoriyalara ayırarkən Outlook-a avtomatik olaraq eyni rəng kateqoriyasını digərlərinə təyin etməyə icazə vermirsiniz? VBA kodunun bir parçasından tər tökmədən buna nail olmaq üçün aşağıdakılardan istifadə edə bilərsiniz.

Avtomatik Eyni Söhbətdə Bütün Poçtlara Eyni Rəng Kateqoriyasını təyin edin

1. Ən başlanğıcda Outlook proqramınızı işə salmalısınız.
2. Sonra əsas Outlook pəncərəsində "Alt + F11" düymələrini basın.
3. Sonra, “ThisOutlookSession” layihəsini tapıb açmalı olduğunuz Outlook VBA redaktoru pəncərəsinə daxil olacaqsınız.
4. Sonradan aşağıdakı VBA kodunu bu layihə pəncərəsinə köçürün.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    Dim objConversation As Outlook.Conversation
    Dim objStore As Outlook.Store
    Dim strCategories As String
 
    'When assigning color categories to the currently selected mail
    If Name = "Categories" Then
       strCategories = objMail.Categories
 
       Set objStore = objMail.parent.Store
 
       If objStore.IsConversationEnabled Then
          'Get the conversation
          Set objConversation = objMail.GetConversation
 
          If Not (objConversation Is Nothing) Then
             'Assign the same color categories to the mails in this conversation
             objConversation.SetAlwaysAssignCategories strCategories, objStore
          End If
       End If
    End If
End Sub

5. Bundan sonra bu kodu imzalamalısınız.
6. Daha sonra rəqəmsal imzalanmış makrolara icazə vermək üçün Outlook makro təhlükəsizlik parametrlərinizi dəyişdirməlisiniz.
7. Nəhayət, bu makronu aktivləşdirmək üçün Outlook tətbiqinizi yenidən başlada bilərsiniz.
8. Bundan sonra hər dəfə söhbətdə bir məktuba hər hansı rəng kateqoriyası təyin etdikdə, Outlook avtomatik olaraq bu söhbətdə qalan e-poçtlara eyni rəngi təyin edəcək.

PST faylınıza ehtiyatla diqqət yetirin

Word sənədləri və ya Excel cədvəlləri kimi, PST faylları da eyni həssasdır. Buna görə də, PST data korrupsiya qarşısını almaq və çətin qarşısını almaq üçün PST təmiri, yaxşı olar ki, hər zaman PST faylınıza diqqət yetirin. Məsələn, Outlook-da gündəlik işinizdən ehtiyatlı olmalısınız və PST faylınızın ehtiyat nüsxəsini müntəzəm surətdə çıxarmalısınız. Bundan əlavə, mümkünsə, məsələn, üstün bir alət hazırlaya bilərsiniz DataNumen Outlook Repair əvvəlcədən.

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 mdf təmiri və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com