Get email Data From Outlook to Excel automatically

[ExcelNovice2017]

Good Afternoon All

I have a shared inbox at work for our surveyors and I'm trying to speed out the process by extracting details of incoming emails into a spreadsheet, this is becoming part of audit - Using Excel 2010

Sub getDataFromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace

Dim Ns As Outlook.NameSpace
Dim Folder As Outlook.Folder
Dim olShareName As Outlook.Recipient




Set Ns = Application.GetNamespace("MAPI")
Set olShareName = Ns.CreateRecipient("abcd@Email.com")
Set Folder = Ns.GetSharedDefaultFolder(olShareName, olFolderInbox) '// Inbox
Set Items = Folder.Items
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("inbox")
i = 1
For Each Outlookmail In Folder.Items

If Outlookmail.ReceivedTime >= Range("email_Receipt_Date").Value Then
Range("email_Subject").Offset(i, 0) = Outlookmail.Subject
Range("email_Subject").Offset(i, 0).Columns.AutoFit
Range("email_Subject").Offset(i, 0).VerticalAlignment = xlTop
Range("email_Date").Offset(i, 0).Value = OultlookMail.ReceivedTime
Range("email_Date").Offset(i, 0).Columns.AutoFit
Range("email_Date").Offset(i, 0).VerticalAlignment = xlTop
Range("email_Sender").Offset(i, 0).Value = Outlookmail.SenderName
Range("email_Sender").Offset(i, 0).Columns.AutoFit
Range("email_Sender").Offset(i, 0).VerticalAlignment = xlTop
Range("email_Body").Offset(i, 0).Value = Outlookmail.Body
Range("email_Body").Offset(i, 0).Columns.AutoFit
Range("email_Body").Offset(i, 0).VerticalAlignment = xlTop
i = i + 1
End If

Next Outlookmail
Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing
End Sub


I cant get the code to work any help would be great

Than you in advance!!