Option Explicit
Sub email()
    Dim olApp As Outlook.Application
    Dim olNs As Outlook.Namespace
    Dim olFolder As Outlook.MAPIFolder
    Dim olMail As Outlook.MailItem
    Dim eFolder As Outlook.Folder
    Dim MainFolder As Outlook.MAPIFolder
    Dim From As String
    Dim Subject As String
    Dim Time As Date
    Dim LastRow As Integer
    Dim ws As Worksheet
    Dim i As Integer

    Set olApp = New Outlook.Application
    Set olNs = olApp.GetNamespace("MAPI")
    Set ws = ThisWorkbook.Worksheets("sheet1")

    'Get emails from Inbox
    Set MainFolder = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    For i = MainFolder.Items.Count To 1 Step -1
        If TypeOf MainFolder.Items(i) Is MailItem Then
                Set olMail = MainFolder.Items(i)
'**************1 of 2, change the received time as you needed,or any other criteria*******************************************************
                If olMail.ReceivedTime < "1/20/2016" Then
                    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
                    ws.Range("A" & LastRow + 1) = olMail.ReceivedTime
                    ws.Range("B" & LastRow + 1) = olMail.SenderName
                    ws.Range("C" & LastRow + 1) = olMail.Subject
                    ws.Range("D" & LastRow + 1) = "Main Folder"
                End If
            End If
    Next i

    'Get emails from all sub-folders
    For Each eFolder In olNs.GetDefaultFolder(olFolderInbox).Folders
    'Debug.Print eFolder.Name
        Set olFolder = olNs.GetDefaultFolder(olFolderInbox).Folders(eFolder.Name)
        For i = olFolder.Items.Count To 1 Step -1
            If TypeOf olFolder.Items(i) Is MailItem Then
                Set olMail = olFolder.Items(i)
'**************2 of 2, change the received time as you needed,or any other criteria*******************************************************
                If olMail.ReceivedTime < "1/20/2016" Then
                    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
                    ws.Range("A" & LastRow).Offset(1, 0) = olMail.ReceivedTime
                    ws.Range("B" & LastRow).Offset(1, 0) = olMail.SenderName
                    ws.Range("C" & LastRow).Offset(1, 0) = olMail.Subject
                    ws.Range("D" & LastRow + 1) = eFolder.Name
                End If
            End If
        Next i
        Set olFolder = Nothing
    Next eFolder
Set olApp = Nothing
Set MainFolder = Nothing
Set eFolder = Nothing
Set olNs = Nothing

End Sub