I have a code that running on INBOX and extracting , need to modify it then it will be running on all subfolders. Please..
Private Sub ExtractEmails()
Dim objNS As Outlook.NameSpace: Set objNS = GetNamespace("MAPI")
Dim olFolder As Outlook.MAPIFolder
Set olFolder =...