Outlook Gələnlər Qutunuzda Həddindən artıq oxunmamış e-poçt varsa, necə xəbərdar olmaq olar

Bəzi istifadəçilər, alt qovluqlar da daxil olmaqla, gələnlər qutusunda oxunmamış e-poçtların çox olması halında Outlook-un sizi xəbərdar etməsini istəyir. Outlook belə bir funksiyanı təklif etməsə də, yenə də VBA kodu ilə həyata keçirilə bilər. Bu məqalə bu kodu sizə göstərəcək.

Bəzən məşğul cədvəllərinizə görə Gələnlər Qutunuzda çoxlu sayda oxunmamış məktublar qoya bilərsiniz. Getdikcə daha çox e-poçt yığıldığı üçün onlarla sonradan məşğul olmaq olduqca yorucu və əziyyətli bir iş olacaq. Bu halda ümid edə bilərsiniz ki, Outlook oxunmamış e-poçtların sayı müəyyən həddi keçərsə, sizə xatırlada bilər. Aşağıda bu funksiyaya nail olmaq üçün bir vasitə paylaşacağıq.

Çox Oxunmamış E-poçtlar Varsa Xəbərdar Olun

1. Başlamaq üçün Outlook proqramınızı həmişəki kimi işə salın.
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 "Proqramlar üçün Microsoft Visual Basic" pəncərəsinə daxil olacaqsınız.
4. Sonradan bu layihəyə aşağıdakı VBA kodunu kopyalamalısınız.

Private objInbox As Outlook.Folder
Private WithEvents objItems As Outlook.Items
Private lUnreadItemCount As Long

Private Sub Application_Startup()
    Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
    Set objItems = objInbox.Items
 
    lUnreadItemCount = 0
    Call CountUnreadEmails(objInbox, lUnreadItemCount)
 
    'If there are more than 10 unread emails
    If lUnreadItemCount > 10 Then
       MsgBox "Too many unread emails in Inbox!" & vbCr & "Please deal with them as soon as possible!", vbExclamation + vbOKOnly, "Check Unread Emails"
    End If
End Sub

Private Sub objItems_ItemAdd(ByVal Item As Object)
    Call CountUnreadEmails(objInbox, lUnreadItemCount)
 
    lUnreadItemCount = 0
    If lUnreadItemCount > 10 Then
       MsgBox "Too many unread emails!" & vbCr & "Please deal with them as soon as possible!", vbExclamation + vbOKOnly, "Check Unread Emails"
    End If
End Sub

Private Sub CountUnreadEmails(ByVal objFolder As Outlook.Folder, ByRef lCount As Long)
    Dim objUnreadItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    Set objUnreadItems = objFolder.Items.Restrict("[Unread] = True")
    lCount = objUnreadItems.count + lCount
 
    'Process all subfolders under Inbox recursively
    If objFolder.Folders.count > 0 Then
       For Each objSubfolder In objFolder.Folders
           Call CountUnreadEmails(objSubfolder, lCount)
       Next
    End If
End Sub

5. Bundan sonra bu kodu imzalamalısınız.
6. Daha sonra, cari pəncərədən çıxın və rəqəmsal imzalanmış makroları aktivləşdirmək üçün Outlook makro parametrlərinizi dəyişdirin.
7. Nəhayət, bu yeni makronu aktivləşdirmək üçün Outlook-u yenidən başlada bilərsiniz.
8. Bundan sonra, Outlook-u hər dəfə işə saldıqda və poçt qutunuza yeni e-poçtlar gəldikdə, Outlook avtomatik olaraq Gələnlər qutusundakı və onun alt qovluqlarındakı oxunmamış e-poçtların sayını yoxlayacaq.
9. Əgər nömrə əvvəlcədən təyin etdiyiniz limiti keçərsə, Outlook aşağıdakı ekran görüntüsü kimi sizi xəbərdar edəcək:

Qəfil qəzalardan sonra Outlook məlumatlarını əldə edin

Outlook səhvlərdən hərtərəfli xilas ola bilmir. Quraşdırma xətaları heç bir xəbərdarlıq olmadan qəzalara səbəb ola bilər. Ciddi qəzalar bir anda Outlook məlumat faylınıza zərər verə bilər. Buna görə də, məlumatların müntəzəm ehtiyat nüsxəsini çıxarmaq və güclü xarici bərpa alətini əldə etmək kimi kifayət qədər ehtiyat tədbirləri görməlisiniz. DataNumen Outlook Repair. Sizə kömək edə bilər təmir PST asanlıqla fayl.

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