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