Export Outlook emails to Excel

Hello
I am thankful to this forum where experts help and resolve issue .
I want to fetch email from outlook to Excel sheet.
I tried various vba code from internet and no one is working for me.
I am using most of the time microsoft 365 and sometime Office 2016 or 2019 on other machines.

Dump for help

Originally Posted by bsalv

What do you want ? The subject, the body, the attachments ?
Here are some macros : http://www.snb-vba.eu/VBA_Outlook_external_en.html#L_6

I want to get the Email date, Sender email, Subject

Sorry for late response , i am getting the error on below line

Application.StatusBar = LO.ListRows.Count & Space(5) & arr(1)

Moreover it is fetching the emails from 23-Sep-2021 , while i have plenty of emails after this date too .
I want to fetch unread emails from folder IMPORTANT EMAILS

Thanks its working but it is fetching all emails from folder instead of Unread emails.,

Originally Posted by bsalv

just a guess

For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").Folders("MyEmailaddress@outlook.com").Folders("Post IN").Folders("another subfolder").Folders("important emails").items
          If it.unread Then
               ReDim arr(1 To 5)                                'clear array
               On Error Resume Next
               arr(1) = it.Subject
               arr(2) = it.senderName
               arr(3) = it.CreationTime
               arr(4) = it.ReceivedTime
               On Error GoTo 0

               LO.ListRows.Add.Range.Range("A1").Resize(, UBound(arr)).Value = arr
               Application.StatusBar = LO.ListRows.Count & Space(5) & arr(1)
          End If
     Next

Thanks its working fine now

Hi, New to the Forum and looking for some help on the following:
Getting Run Time Error2147221233(8004010f' on this line- Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("Leads")
Please help, Thanks in advance

This is the whole code I used. The highlight is what has the error
Sub GetOutlookData()

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("Leads")

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

Really wish I could get some help on this