Fərqli Rəng Kateqoriyaları olan E-poçtları Outlook-da Fərqli Qovluqlara Avtomatik olaraq necə köçürmək olar

Outlook-un e-poçtlara fərqli rəng kateqoriyaları təyin etdiyiniz zaman avtomatik olaraq fərqli qovluqlara köçürməsini istəyirsinizsə, bu yazıda təqdim olunan metoddan istifadə edə bilərsiniz.

Bir çox istifadəçi e-poçtun müəyyən bir rəng kateqoriyası təyin edildiyi zaman onu avtomatik olaraq xüsusi qovluğa köçürmək üsullarını arzulayır. Şübhəsiz ki, Outlook bunu həyata keçirmək üçün belə bir birbaşa xüsusiyyət təklif etmir. Buna görə də, aşağıdakı məqalələrdə onu əldə etmək üçün sizə bir vasitə öyrədəcəyik. İndi ətraflı addımları əldə etmək üçün oxuyun.

Fərqli Rəng Kateqoriyaları olan E-poçtları Fərqli Qovluqlara Avtomatik köçürün

1. Başlamaq üçün Outlook proqramınızı işə salın.
2. Sonra, Outlook-da VBA redaktoruna daxil olmaq üçün “Alt + F11” düymələrini basın.
3. Sonra, aşağıdakı VBA kodunu “ThisOutlookSession” layihəsinə daxil edin.

Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items

'Process inbox mails
Private Sub Application_Startup()
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInboxFolder.Items
End Sub

'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objTargetFolder As Outlook.Folder
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Move mails based on color category
       If InStr(objMail.Categories, "Private") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
          objMail.Move objTargetFolder
       ElseIf InStr(objMail.Categories, "Business") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
          objMail.Move objTargetFolder
       End If
    End If
End Sub

Qeydlər:

• Digər qovluqlardakı elementləri emal etmək üçün siz “Göndərilmiş Elementlər” qovluğu üçün “Application.Session.GetDefaultFolder(olFolderSentMail)” kimi “objInboxFolder” obyektini dəyişə bilərsiniz.
• Həmçinin, yuxarıdakı kodda əvvəlcədən təyin edilmiş rəng kateqoriyalarını və hədəf qovluqlarını faktiki hallarınıza uyğun olaraq dəyişdirin.
• Bundan əlavə, digər isteğe bağlı rəng kateqoriyalarını əlavə etmək üçün “ElseIf” istifadə edə bilərsiniz.

4. Bundan sonra, kursoru "Application_Startup" alt proqramına keçirin və bu makronu aktivləşdirəcək "F5" düyməsini basın.
5. Nəhayət, bir atış edə bilərsiniz. Budur mənim nümunəm.

• Gələnlər qutusu qovluğunda e-poçt seçin.
• Sonra, ona "Şəxsi" rəng kateqoriyasını təyin edin.
• Bu məktub dərhal "Gələnlər qutusu" altındakı "Şəxsi" qovluğuna köçürüləcək.

Outlookunuzu Diqqətlə İdarə edin

Bəlkə də Outlook-da bir neçə problemlə qarşılaşmısınız. Çox vaxt onlar sizin düzgün olmayan davranışlarınızdan yaranır. Məsələn, siz həmişə Outlook-u səhv bağlayırsınız, məsələn, qəfil elektrik kəsilməsi. Və ya Outlook məlumatlarınızı müntəzəm olaraq ehtiyat nüsxəsini çıxarmamısınız. Bütün oxşar hərəkətlər Outlook-u daha həssas edə bilər. Bildiyiniz kimi, PST faylı zədələndikdən sonra onu təmir etmək olduqca çətindir. Ümumiyyətlə, inbox təmir aləti effekt verməyəcək. kimi xarici yardım proqramlarından istifadə etməkdən başqa seçiminiz yoxdur 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 sql bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com