Transfer Outlook Mail data to Excel

Hi, I am trying to export the MS Outlook email data ( Sender name, Subject, Mail body and Date and Time stamp From a Shared Mailbox to excel and need URGENT help in fixing the VBA code for the same.

I had tried using below code, but this pulls the data from only your current inbox ( and not the shared one) . EG : If my shared mail box name / path is "eTransfer" -> "Inbox", how do i incorporate this in below code?

Any help will be appreciated.


VBA Code:
____________________

Sub GetFromOutlook()

Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer

Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("Contest")

i = 1

For Each OutlookMail In Folder.Items
    If OutlookMail.ReceivedTime >= Range("From_date").Value Then
        Range("eMail_subject").Offset(i, 0).Value = OutlookMail.Subject
        Range("eMail_date").Offset(i, 0).Value = OutlookMail.ReceivedTime
        Range("eMail_sender").Offset(i, 0).Value = OutlookMail.SenderName
        Range("eMail_text").Offset(i, 0).Value = OutlookMail.Body
        
        i = i + 1
    End If
Next OutlookMail

Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing

End Sub