Làm cách nào để kích hoạt macro chạy sau khi nhận được thư mới trong Outlook?

Question

Tôi đang viết macro tạo vé trên cơ sở dữ liệu dựa trên các cảnh báo nhận được từ máy chủ Nagios dưới dạng email. Tuy nhiên, tôi không thể để macro chạy trong một vòng lặp vô hạn trong khi kiểm tra thư vì nó chỉ là tài nguyên quá nặng và làm cho máy tính để bàn của tôi bị treo. Tôi cần tìm cách kích hoạt macro chỉ khi nhận được thư mới.

Tôi đã tìm kiếm thứ gì đó dọc theo dòng sự kiện NewMail trên trang web MSDN, nhưng tôi không thể tìm thấy bất kỳ điều gì mạch lạc. Bất cứ ai có thể chỉ cho tôi một chút mẫu mã để hiển thị như thế nào để kích hoạt các macro từ các sự kiện mail mới?

Answer 1

Mã này sẽ thêm trình xử lý sự kiện vào Hộp thư đến cục bộ mặc định, sau đó thực hiện một số hành động đối với email đến. Bạn cần thêm hành động đó vào mã bên dưới.

Private WithEvents Items As Outlook.Items 
Private Sub Application_Startup() 
    Dim olApp As Outlook.Application 
    Dim objNS As Outlook.NameSpace 
    Set olApp = Outlook.Application 
    Set objNS = olApp.GetNamespace("MAPI") 
    ' default local Inbox 
    Set Items = objNS.GetDefaultFolder(olFolderInbox).Items 
End Sub 
Private Sub Items_ItemAdd(ByVal item As Object) 

    On Error Goto ErrorHandler 
    Dim Msg As Outlook.MailItem 
    If TypeName(item) = "MailItem" Then 
    Set Msg = item 
    ' ****************** 
    ' do something here 
    ' ****************** 
    End If 
ProgramExit: 
    Exit Sub 
ErrorHandler: 
    MsgBox Err.Number & " - " & Err.Description 
    Resume ProgramExit 
End Sub 

Sau khi dán mã trong mô-đun ThisOutlookSession, bạn phải khởi động lại Outlook.

Answer 2

Hãy thử một cái gì đó như thế này bên ThisOutlookSession:

Private Sub Application_NewMail() 
    Call Your_main_macro 
End Sub 

triển vọng VBA của tôi chỉ phát sinh khi tôi nhận được một email và có sự kiện ứng dụng mở.

Chỉnh sửa: Tôi vừa thử nghiệm hộp thư thế giới hello và nó chạy sau khi được gọi trong sự kiện application_newmail khi nhận được email.