როგორ შევზღუდოთ Outlook VBA ერთდროულად გახსნილი ელ.ფოსტის რაოდენობა

ერთდროულად რამდენიმე ელფოსტის გახსნამ შეიძლება გამოიწვიოს თქვენი Outlook-ის გადატვირთვა, რაც გამოიწვევს Outlook-ის გაუმართაობას. ამიტომ, რეკომენდებულია ამ დროის განმავლობაში გახსნილი ელფოსტის რაოდენობის შეზღუდვა. ეს პოსტი გასწავლით, თუ როგორ გააკეთოთ ეს Outlook VBA-ს გამოყენებით.

Outlook მიდრეკილია ავარიისკენ, როდესაც ის გადატვირთულია, მაგალითად, როდესაც იხსნება ძალიან ბევრი ელ.წერილი ერთდროულად. ამიტომ, უმჯობესია, მხოლოდ შეზღუდული ელ.წერილები გახსნათ ერთდროულად. მიუხედავად იმისა, რომ Outlook არ უჭერს მხარს ამას, თქვენ შეგიძლიათ მარტივად მიაღწიოთ მას შემდეგი საშუალებებით.

შეზღუდეთ ერთდროულად გახსნილი ელ.ფოსტის რაოდენობა

1. დასაწყისისთვის, ჩართეთ თქვენი Outlook პროგრამა.
2. შემდეგ თქვენ უნდა შეხვიდეთ VBA რედაქტორზე. შეგიძლიათ გადახვიდეთ "დეველოპერი" ჩანართზე და დააჭიროთ "Visual Basic" ღილაკს. ან უბრალოდ დააჭირეთ "Alt + F11" კლავიშებს მთავარ ეკრანზე.
3. მომდევნო "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში შეგიძლიათ იპოვოთ და გახსნათ პროექტი "ThisOutlookSession".
4. შემდეგ თქვენ უნდა დააკოპიროთ და ჩასვათ ქვემოთ მოცემული VBA კოდი ამ VBA პროექტში.

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. ამის შემდეგ, თქვენ უნდა მოაწეროთ ხელი ამ მაკროს.

• დააჭირეთ ღილაკს "ინსტრუმენტები" ხელსაწყოების პანელში.
• შემდეგი, ჩამოსაშლელი სიიდან აირჩიეთ "ციფრული ხელმოწერა".
• ამომხტარ დიალოგურ ფანჯარაში მიჰყევით ეკრანზე მითითებებს მის დასასრულებლად.

6. მოგვიანებით შეგიძლიათ შეცვალოთ მაკრო პარამეტრები ციფრულად ხელმოწერილი მაკროების დასაშვებად.
7. საბოლოოდ, მაკროს გასააქტიურებლად შეგიძლიათ გადატვირთოთ Outlook აპლიკაცია.
8. ამიერიდან, ყოველ ჯერზე, როდესაც აპირებთ მეექვსე ელფოსტის გახსნას, მიიღებთ შეტყობინებას, როგორიცაა ეკრანის სურათი:
9. ასევე, წინა ელფოსტა ავტომატურად დაიხურება.

ამოიღეთ ღირებული Outlook მონაცემები

არ შეიძლება უარვყოთ, რომ Outlook-ს აქვს უამრავი შესანიშნავი ფუნქცია. მაგრამ ეს არ ნიშნავს რომ ის უნაკლოა. ის მაინც ვერ აცილებს ზიანს. სხვადასხვა ფაქტორმა შეიძლება გამოიწვიოს Outlook-ის კორუფცია. აქედან გამომდინარე, ისე, რომ Outlook-ის აღდგენა მონაცემები უფრო ადვილია, თქვენ უნდა შექმნათ თქვენი PST ფაილის სარეზერვო ასლი რეგულარული ინტერვალებით. ასევე, კარგი ხარისხის სარემონტო ხელსაწყო ასევე აუცილებლობის საკითხია, მაგალითად DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის მდფ-ის შეკეთება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად