Getting Error while extracting body of the email from Outlook 2013 using Excel VBA

Hi All,

i am getting error "The Attempted Operation failed. An object could not be found" at last line on below code and i am unable to understand why its thronging an error.

can anyone please guide me on this.

Note: MS Excel 2013 version

Sub Extract_Data_From_Email()
Dim objNS As Outlook.Namespace: Set objNS = GetNamespace("MAPI")
Dim olFolder As Outlook.MAPIFolder
Set olFolder = objNS.GetDefaultFolder(olFolderInbox).Folders("Harish Nirni")