Sub chnageFolder()
Dim ns As Outlook.NameSpace
Dim exp As Outlook.Explorer
Dim myInbox As Folder, folder1 As Folder, folder2 As Folder
Dim myOlItems As Outlook.Items
Dim mItem As Outlook.mailItem
Dim strBody As String
Set ns = Application.GetNamespace("MAPI")
Set exp = Application.ActiveExplorer
'Accessing the Inbox
Set myInbox = ns.GetDefaultFolder(olFolderInbox)
'Changing the current folder from inbox to File Size
Set folder1 = myInbox.Folders.Item("Alerts").Folders.Item("File Size")
Set exp.CurrentFolder = folder1
If (folder1.Items(1).UnRead = True) Then
With folder1.Items(1)
MsgBox .Body
End With
End If
End Sub