Outlook'ta yeni bir posta alındıktan sonra çalışacak makroyu nasıl tetiklerim?

Question

Bir veritabanında, bir Nagios sunucusundan alınan uyarılar temelinde e-posta olarak bilet oluşturan bir makro yazıyorum. Ancak, postaları denetlerken makronun sonsuz bir döngü içinde çalışmasına izin veremiyorum çünkü çok fazla kaynak ağır ve masaüstümü asıyor. Makroyu yalnızca yeni bir posta alındığında tetiklemenin bir yolunu bulmalıyım.

MSDN sitesinde bulunan NewMail olayları boyunca bir şey aradım ama tutarlı bir şey bulamıyorum. Birisi bana yeni posta olaylarından makroları nasıl tetikleyeceğinizi göstermek için biraz örnek kod gösterebilir mi?

Answer 1

Bu kod, varsayılan yerel Gelen Kutusu'na bir olay dinleyicisi ekleyecektir, ardından gelen e-postalarda bir miktar eylem gerçekleştirecektir. Bu işlemi aşağıdaki kodda eklemeniz gerekir.

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 

ThisOutlookSession modülünde kodu yapıştırmadan sonra Outlook'u yeniden başlatmanız gerekir.

Answer 2

ThisOutlookSession içine böyle bir şey deneyin: Bir e-posta aldım ve açık bu uygulama olayı vardı

Private Sub Application_NewMail() 
    Call Your_main_macro 
End Sub 

Benim bakış vba sadece ateş etti.

Düzenleme: Yalnızca bir e-posta iletisi aldım ve bir e-posta alındığında application_newmail olayında çağrıldıktan sonra koştum.