Read EMail Body from Outlook Subfolder EMail

We can Get text of a E-Mail which is located in subfolder or inbox etc. with the below code.

'Folder Constants
olFolder=3 'Deleted items
olFolder=4 'Outbox
olFolder=5 'Sent Items
olFolder=6 'Inbox
olFolder=9 'Calendar
olFolder=10 'Contacts
olFolder=11 'Journal
olFolder=12 'Notes
olFolder=13 'Tasks

Dim objOutlook,mycount
myFolder="QTP"
Set objOutlook = CreateObject ("Outlook.Application")
Set myNameSpace = objOutlook.GetNameSpace("MAPI")
Set ClientFolder = myNameSpace.GetDefaultFolder(6)
Set myItems = ClientFolder.Items
set objSubFolder = ClientFolder.Folders
set objFolder = objSubFolder.Item(myFolder)
set subobjitem=objFolder.Items
mycount=subobjitem.count
msgbox mycount

For i = 1 to mycount
Set myItem = subobjitem.Item(i)
EmailBodyStr = myItem.Body
msgbox EmailBodyStr
Next

Refer Below link :- http://techsupt.winbatch.com/TS/T000001033009F8.html