Outlook VBA bilan bir vaqtning o'zida ochilgan elektron pochta xabarlari sonini qanday cheklash mumkin

Bir vaqtning o'zida bir nechta elektron pochta xabarlarini ochiq saqlash Outlook-ni haddan tashqari yuklashga olib kelishi mumkin, bu esa Outlook-ning ishdan chiqishiga olib keladi. Shuning uchun, shu vaqt ichida ochiladigan elektron pochta xabarlari sonini cheklash tavsiya etiladi. Ushbu post sizga Outlook VBA yordamida buni qanday amalga oshirishni o'rgatadi.

Outlook haddan tashqari yuklanganda, masalan, bir vaqtning o'zida juda ko'p elektron pochta xabarlari ochilganda, ishdan chiqishga moyil. Shuning uchun, siz bir vaqtning o'zida faqat cheklangan elektron pochta xabarlarini ochiq tutganingiz ma'qul. Garchi Outlook buni tabiiy ravishda qo'llab-quvvatlamasa ham, unga quyidagi vositalar orqali osongina erishishingiz mumkin.

Bir vaqtning o'zida ochilgan elektron pochta xabarlari sonini cheklang

1. Eng boshidanoq, Outlook dasturingizni ishga tushiring.
2. Keyin VBA muharririga kirishingiz kerak. Siz "Tuzuvchi" yorlig'iga o'tishingiz va "Visual Basic" tugmasini bosishingiz mumkin. Yoki asosiy ekranda “Alt + F11” tugmalarini bosish kifoya.
3. Keyingi "Microsoft Visual Basic for Applications" oynasida siz "ThisOutlookSession" loyihasini topishingiz va ochishingiz mumkin.
4. Keyin quyidagi VBA kodini ushbu VBA loyihasiga nusxalashingiz va joylashtirishingiz kerak.

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. Shundan so'ng siz ushbu so'lni imzolashingiz kerak.

• Asboblar panelidagi "Asboblar" tugmasini bosing.
• Keyin ochiladigan ro'yxatdan "Raqamli imzo" variantini tanlang.
• Qalqib chiquvchi dialog oynasida uni yakunlash uchun ekrandagi ko'rsatmalarga amal qiling.

6. Keyinchalik raqamli imzolangan makroslarga ruxsat berish uchun so'l sozlamalarini o'zgartirishingiz mumkin.
7. Oxir-oqibat, so'lni faollashtirish uchun Outlook ilovangizni qayta ishga tushirishingiz mumkin.
8. Bundan buyon har safar oltinchi xatlarni ochmoqchi bo'lganingizda, skrinshot kabi xabar olasiz:
9. Bundan tashqari, oldingi elektron pochta avtomatik ravishda yopiladi.

Qimmatli Outlook ma'lumotlarini oling

Outlook ko'plab ajoyib xususiyatlarga ega ekanligini inkor etib bo'lmaydi. Biroq, bu uning mukammal ekanligini anglatmaydi. U hali ham zararni bartaraf eta olmaydi. Turli omillar Outlookning buzilishiga olib kelishi mumkin. Shunday qilib, shunday qilib Outlook-ni tiklash ma'lumotlar osonroq bo'lsa, PST faylingizni muntazam ravishda zaxiralashingiz kerak. Bundan tashqari, sifatli ta'mirlash vositasi ham zarurat masalasidir, masalan DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf ni tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com