How to convert inbox ItemAdd to run on a subfolder? [duplicate] - vba

Question

This question already has answers here:
Using visual basic to access subfolder in Inbox?
(3 answers)
Closed 1 year ago.
My code isn't working because emails are being forwarded to subfolders with a rule.
I cannot remove this rule nor make any rules on this computer.
I realized that newMailEx is probably the answer to my problems. Would there be a way to convert my code to run off of that instead of item_add?
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")
Set Items = objNS.Folders.Item("Data").Folders.Item("Inbox").Items
End Sub
Private Sub Items_ItemAdd(ByVal Item As Object)
Dim Msg As Outlook.MailItem
If TypeOf Item Is Outlook.MailItem Then
'''code to check subject lines and do various things to attachments for the various cases
End If
End Sub

Answer 1

If you are creating a VBA macro in Outlook you need to choose the Application in the left drop-down menu and choose the NewMailEx event to generate the event handler in the editor.
After choosing the NewMailEx entry from the drop-down list you will get the following where you can add your code:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
End Sub
So, in the event handler you may use the `` method in the following way:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim mail as Outlook.MailItem
Set mail = Application.Session.GetItemFromID(strEntryId)
MsgBox mai.Subject
End Sub
Please remember that different kind of items can be passed to the event handler. For example, it can be an appointment item (meeting request). You need to check its message class before casting to the MailItem class to make sure you deal with mail items. Otherwise, an exception could be thrown if non-existing method or property is called.