Select Code to Download

Const strValidUser = "andermc";  '<- My NT/Exchange username 
Set objOutlook   = CreateObject("Outlook.Application")
...
    
If (False = objRecipient.Resolved ) Then '<- not return value from abo
+ve!
    'need to exit nicely

    Set objInbox  = objNS.GetDefaultFolder(olFolderInbox)
    Set objFolder = objInbox.Folders(a_Folder_UNDER_Inbox)
    ...

#Create a folder object from a subfolder of Inbox... 
Set objFolder = objInbox.Folders(strMySubFolder)
#Or use the Parent property to move UP the hierarchy