Outlook में एक नया मेल प्राप्त होने के बाद चलाने के लिए मैक्रो को कैसे ट्रिगर करूं?

Question

मैं एक मैक्रो लिख रहा हूं जो एक डोमेन के रूप में एक नागियो सर्वर से प्राप्त अलर्ट के आधार पर डेटाबेस पर टिकट बनाता है। हालांकि, मै मैक की जांच करते समय मैक्रो को अनंत लूप में नहीं चला सकता क्योंकि यह बहुत संसाधन भारी है और मेरा डेस्कटॉप लटकता है। मुझे केवल नए मेल प्राप्त होने पर ही मैक्रो को ट्रिगर करने का कोई तरीका ढूंढना होगा।

मैंने एमएसडीएन वेबसाइट पर न्यूमेल कार्यक्रमों के साथ कुछ खोजा, लेकिन मुझे कुछ भी सुसंगत नहीं मिल रहा है। क्या कोई मुझे नए मेल ईवेंट से मैक्रोज़ को ट्रिगर करने के तरीके को दिखाने के लिए नमूना कोड का थोड़ा सा दिखा सकता है?

Answer 1

यह कोड डिफ़ॉल्ट ईवेंट इनबॉक्स में इवेंट श्रोता जोड़ देगा, फिर इनकमिंग ईमेल पर कुछ कार्रवाई करें। आपको उस कोड को नीचे दिए गए कोड में जोड़ना होगा।

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 मॉड्यूल में कोड चिपकाने के बाद, आपको Outlook को पुनरारंभ करना होगा।

Answer 2

ThisOutlookSession अंदर कुछ इस तरह का प्रयास करें: जब मैं एक ईमेल प्राप्त किया और कहा कि आवेदन घटना द्वारा खोले गए

Private Sub Application_NewMail() 
    Call Your_main_macro 
End Sub 

मेरे दृष्टिकोण VBA सिर्फ निकाल दिया।

संपादित करें: मैंने अभी एक हैलो वर्ल्ड msg बॉक्स का परीक्षण किया है और यह ईमेल प्राप्त होने पर application_newmail ईवेंट में कॉल होने के बाद भाग गया।