Compile error on Outlook application

[Patriot2879]

Hi all good afternoon. The below VBA code, which should create information in Excel a breakdown of emails, but I am getting a compile error on

Dim OutlookApp As Outlook.Application

. Anyone help with the fix please? I have got a tick next to 'Microsoft Office 16.0 Object Library in references. Thank you.

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("JM/CM Rota").Folders("ECO")

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

 

[RoryA]

You need a reference to the Outlook library.

 

[Patriot2879]

You need a reference to the Outlook library.

Hi I have done that as well, theres a tick on macro settings in Outlook

 

[RoryA]

No, in your Excel workbook you need to set a reference to the Outlook library.