Outlook VBA ilə eyni anda açılan e-poçtların sayını necə məhdudlaşdırmaq olar

Eyni anda birdən çox e-poçtu açıq saxlamaq Outlook-unuzun həddindən artıq yüklənməsinə və Outlook-un sıradan çıxmasına səbəb ola bilər. Buna görə də, bu müddət ərzində açılan e-poçtların sayını məhdudlaşdırmaq tövsiyə olunur. Bu yazı sizə Outlook VBA ilə bunu necə həyata keçirəcəyinizi öyrədəcək.

Outlook həddən artıq yükləndikdə, məsələn, eyni anda çoxlu e-poçt açıldıqda qəzaya uğramağa meyllidir. Buna görə də, bir anda yalnız məhdud e-poçtları açıq saxlamağınız daha yaxşıdır. Outlook bunu yerli olaraq dəstəkləməsə də, aşağıdakı vasitələrlə asanlıqla əldə edə bilərsiniz.

Eyni anda açılan e-poçtların sayını məhdudlaşdırın

1. Ən başında, Outlook proqramınızı başladın.
2. Sonra VBA redaktoruna daxil olmalısınız. Siz "Developer" sekmesine keçib "Visual Basic" düyməsini sıxa bilərsiniz. Və ya sadəcə əsas ekranda “Alt + F11” düymələrini basın.
3. Sonrakı “Proqramlar üçün Microsoft Visual Basic” pəncərəsində siz “ThisOutlookSession” layihəsini tapıb aça bilərsiniz.
4. Sonra aşağıdakı VBA kodunu bu VBA layihəsinə kopyalayıb yapışdırmalısınız.

Public WithEvents objInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal objNewInspector As Inspector)
    Dim objInspector As Outlook.Inspector
    Dim i As Long
    Dim strMsg As String
    Dim nPrompt As Integer
 
    i = 0
    If objNewInspector.CurrentItem.Class = olMail Then
 
       If objInspectors.count > 5 Then
          For Each objInspector In objInspectors
              If objInspector.CurrentItem.Class = olMail Then
                 i = i + 1
              End If
          Next
 
          If i > 5 Then
             strMsg = "You're allowed to open 5 emails at the same time. The previous email is closed!"
 
             MsgBox strMsg, vbExclamation + vbOKOnly
 
             ActiveInspector.CurrentItem.Close olSave
          End If
 
      End If
    End If
End Sub

5. Bundan sonra bu makronu imzalamalısınız.

• Alətlər panelində "Alətlər" düyməsini basın.
• Sonra açılan siyahıdan “Rəqəmsal İmza” seçimini seçin.
• Açılan informasiya qutusunda onu tamamlamaq üçün ekrandakı təlimatları izləyin.

6. Daha sonra rəqəmsal imzalanmış makrolara icazə vermək üçün makro parametrlərini dəyişə bilərsiniz.
7. Nəhayət, makronu aktivləşdirmək üçün Outlook tətbiqinizi yenidən başlada bilərsiniz.
8. Bundan sonra, hər dəfə altıncı e-poçtu açmaq niyyətində olduğunuz zaman ekran görüntüsü kimi bir mesaj alacaqsınız:
9. Həmçinin, əvvəlki e-poçt avtomatik olaraq bağlanacaq.

Dəyərli Outlook məlumatlarını əldə edin

Outlook-un çox sayda əlamətdar xüsusiyyətləri olduğunu inkar etmək olmaz. Ancaq bu, onun qüsursuz olması demək deyil. Hələ də zərərdən xilas ola bilmir. Müxtəlif amillər Outlook-un korlanmasına səbəb ola bilər. Beləliklə, belə ki Outlook-u bərpa edin məlumatları asanlaşdırmaq üçün PST faylınızı müntəzəm olaraq ehtiyat nüsxəsini çıxarmalısınız. Həmçinin keyfiyyətli təmir aləti də zərurət məsələsidir, məsələn 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 mdf düzəldin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com