Excel pulls data from Outlook

Please refer on below:

Sub GetEmails()
    Dim OutlookApp As Object
    Dim OutlookNamespace As Object
    Dim Folder As Object
    Dim Item As Object
    Dim i As Integer
    
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
    Set Folder = OutlookNamespace.Folders("YourMailboxName").Folders("Inbox")
    
    For i = Folder.Items.Count To 1 Step -1
        Set Item = Folder.Items(i)
        If Item.ReceivedTime >= Range("StartDate").Value And Item.ReceivedTime <= Range("EndDate").Value Then
            ' Process the email
        End If
    Next i