RESOLUTION:
Step 1: Set up event listener to grab onto the newest mail item in your top level Inbox folder.
Option ExplicitPrivate WithEvents inboxItems As Outlook.Items
Private Sub Application_Startup()
Dim outlookApp As Outlook.Application
Dim objectNS As Outlook.NameSpace
Set outlookApp = Outlook.Application
Set objectNS = outlookApp.GetNamespace("MAPI")
Set inboxItems = objectNS.GetDefaultFolder(olFolderInbox).Items
End Sub
Step 2: Actually do something to the bound item:
Private Sub inboxItems_ItemAdd(ByVal Item As Object)On Error GoTo ErrorHandler
Dim Msg As Outlook.MailItem
Dim MessageInfo
Dim Result
If TypeName(Item) = "MailItem" Then
'DO SOMETHING TO THE ITEM (In my case I'm calling a macro in a module to do more to this item.)
End If
ExitNewItem:
Exit Sub
ErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ExitNewItem
End Sub
Step 3: Set up a Module to do what you want to do to the mail item. In my case, I'm breaking apart the subject line for specific pieces of text and reading the content of the body for an integer value.
Public Sub SendToNB(Item As Outlook.MailItem)'''''''SEND EMAIL TEXT TO EXCEL'''''''''''''
'''Code by Jakson Kitsune, various others'''
'''''''''''''Project Start: 8/14/2021'''''''
''''''''''''''Last Update: 02/14/2022'''''''
''''''''''''''Version: 3.1.0.0''''''''''''''
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.Folder
Dim myDestFolder As Outlook.Folder
Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myDestFolder = myInbox.Folders("Test")
MsgBox "Send to NB taking over"
With Item
MsgBox "With item"
'Particularly with the subject...
Subj = Item.Subject
MsgBox "Subj"
'...more execution happens but it's really esoteric and it was all built for my purposes. LOL.