Cách giới hạn số lượng email mở cùng lúc với Outlook VBA

Việc mở nhiều email cùng lúc có thể khiến Outlook bị quá tải, dẫn đến lỗi treo máy. Do đó, bạn nên giới hạn số lượng email được mở đồng thời. Bài viết này sẽ hướng dẫn bạn cách thực hiện điều đó bằng Outlook VBA.

Outlook dễ bị sập khi bị quá tải, chẳng hạn như khi mở quá nhiều email cùng một lúc. Do đó, tốt hơn hết bạn chỉ nên mở các email hạn chế tại một thời điểm. Mặc dù Outlook không hỗ trợ điều này một cách tự nhiên, nhưng bạn có thể dễ dàng đạt được điều đó thông qua các phương tiện sau.

Giới hạn số lượng email được mở cùng một lúc

1. Ngay từ đầu, hãy khởi động chương trình Outlook của bạn.
2. Sau đó, bạn cần truy cập trình soạn thảo VBA. Bạn có thể chuyển sang tab “Nhà phát triển” và nhấn nút “Visual Basic”. Hoặc chỉ cần nhấn phím “Alt + F11” trên màn hình chính.
3. Trong cửa sổ “Microsoft Visual Basic for Applications” tiếp theo, bạn có thể định vị và mở dự án “ThisOutlookSession”.
4. Tiếp theo, bạn phải sao chép và dán mã VBA bên dưới vào dự án VBA này.

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. Sau đó, bạn nên ký macro này.

• Nhấn nút “Công cụ” trên thanh công cụ.
• Tiếp theo chọn tùy chọn “Chữ ký số” từ danh sách thả xuống.
• Trong hộp thoại bật lên, hãy làm theo hướng dẫn trên màn hình để hoàn tất.

6. Sau đó, bạn có thể thay đổi cài đặt macro để cho phép các macro được ký điện tử.
7. Cuối cùng, bạn có thể khởi động lại ứng dụng Outlook để kích hoạt macro.
8. Từ bây giờ, mỗi khi bạn định mở email thứ sáu, bạn sẽ nhận được một thông báo, giống như ảnh chụp màn hình:
9. Ngoài ra, email trước đó sẽ tự động bị đóng.

Truy xuất dữ liệu Outlook có giá trị

Không thể phủ nhận rằng Outlook có rất nhiều tính năng đáng chú ý. Nhưng, nó không có nghĩa là nó là hoàn hảo. Nó vẫn không thể thoát khỏi thiệt hại. Các yếu tố khác nhau có thể dẫn đến hỏng Outlook. Do đó, để phục hồi Outlook dữ liệu dễ dàng hơn, bạn nên sao lưu tệp PST của mình theo định kỳ. Ngoài ra, một công cụ sửa chữa chất lượng tốt cũng là một vấn đề cần thiết, như DataNumen Outlook Repair.

Giới thiệu tác giả:

Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa mdf và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm