Transfer Outlook Mail data to Excel

Does this help?

Sub Dotch()
Application.ScreenUpdating = False
Dim olApp As Outlook.Application, olNs As Outlook.Namespace
Dim olItems As Outlook.Items
Dim olItem As Outlook.MailItem
Dim ws As Worksheet
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set ws = ThisWorkbook.Sheets("Import") '<--- change to relevant worksheet
Set olItems = olNs.Folders("[email protected]").Folders("InBox").Folders("Contest").Items '<---change to correct Email and Folders
i = 1
For Each olItem In olItems
If olItem.ReceivedTime >= Range("From_date").Value Then
    ws.Range("eMail_subject").Offset(i, 0).Value = olItem.Subject
    ws.Range("eMail_date").Offset(i, 0).Value = olItem.ReceivedTime
    ws.Range("eMail_sender").Offset(i, 0).Value = olItem.SenderName
    ws.Range("eMail_text").Offset(i, 0).Value = olItem.Body
    i = i + 1
End If
Next olItem
Application.ScreenUpdating = True
End Sub