Outlook VBA ile Aynı Anda Açılan E-postaların Sayısını Sınırlandırma

Aynı anda çok sayıda e-postayı açık tutmak, Outlook'unuzun aşırı yüklenmesine ve çökmesine yol açabilir. Bu nedenle, aynı anda açık olan e-posta sayısını sınırlamanız önerilir. Bu yazıda, bunu Outlook VBA ile nasıl gerçekleştireceğinizi öğreneceksiniz.

Aynı anda çok fazla e-postanın açılması gibi aşırı yüklendiğinde Outlook çökmeye eğilimlidir. Bu nedenle, aynı anda yalnızca sınırlı e-postaları açık tutmanız daha iyi olur. Outlook bunu yerel olarak desteklemese de, aşağıdaki yollarla kolayca elde edebilirsiniz.

Aynı Anda Açılan E-postaların Sayısını Sınırlayın

1. Öncelikle Outlook programınızı başlatın.
2. O zaman VBA düzenleyicisine erişmeniz gerekir. “Geliştirici” sekmesine geçebilir ve “Visual Basic” düğmesine basabilirsiniz. Veya ana ekranda “Alt + F11” tuşlarına basmanız yeterlidir.
3. Sonraki “Microsoft Visual Basic for Applications” penceresinde “ThisOutlookSession” projesini bulabilir ve açabilirsiniz.
4. Ardından, aşağıdaki VBA kodunu kopyalayıp bu VBA projesine yapıştırmanız gerekir.

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. Daha sonra bu makroyu imzalamanız gerekmektedir.

• Araç çubuğundaki "Araçlar" düğmesine basın.
• Ardından, açılır listeden “Dijital İmza” seçeneğini seçin.
• Açılan iletişim kutusunda, tamamlamak için ekrandaki talimatları izleyin.

6. Daha sonra, dijital olarak imzalanmış makrolara izin vermek için makro ayarlarını değiştirebilirsiniz.
7. Son olarak, makroyu etkinleştirmek için Outlook uygulamanızı yeniden başlatabilirsiniz.
8. Şu andan itibaren, altıncı e-postaları her açmayı düşündüğünüzde, ekran görüntüsü gibi bir mesaj alacaksınız:
9. Ayrıca, önceki e-posta otomatik olarak kapatılacaktır.

Değerli Outlook Verilerini Alın

Outlook'un çok sayıda dikkate değer özelliğe sahip olduğu inkar edilemez. Ancak bu kusursuz olduğu anlamına gelmez. Hala hasarla kurtulamaz. Çeşitli faktörler Outlook bozulmasına yol açabilir. Dolayısıyla, Outlook'u kurtar verileri daha kolay hale getirmek için, PST dosyanızı düzenli aralıklarla yedeklemelisiniz. Ayrıca, kaliteli bir tamir aleti de bir zorunluluktur. DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. mdf'yi düzelt ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com