Copy from email to excel

Hi All,

I'm not an expert in VBA, most of the time I just record macro and edit from there.
I need an excel macro to copy from all the emails in a folder to my excel and found some relevant code online which I have amended a bit.
The below code runs but what is baffling me is the received details of the email does not match the body.
Can you please kindly help enlighten me? Thank you so much in advance.. =)


---------------------------------------------------------------

Sub test()

Dim olApp As Object
Dim olNS As Object
Dim olFldr As Object
Dim olMail As Object
Dim i As Integer
Dim j As Long
Dim abody() As String
Dim Cnt As Long
Dim arrData() As Variant

Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")
Set olFldr = olNS.GetDefaultFolder(olFolderInbox).Folders("temp")

Cnt = 0
For Each olMail In olFldr.Items
On Error GoTo errorhandler
Cnt = Cnt + 1

abody = Split(olFldr.Items(Cnt).Body, vbNewLine)

For j = 0 To UBound(abody)
Sheet1.Cells(65000, 1).End(xlUp).Offset(1, 0).Value = abody(j)
Next

ReDim Preserve arrData(1 To 1, 1 To Cnt)
arrData(1, Cnt) = olMail.ReceivedTime
Cells(1, 1).Value = arrData(1, Cnt)

Cells(1, 1).NumberFormat = "dd/mm/yyyy hh:mm:ss AM/PM"

olFldr.Items(Cnt).Move olNS.GetDefaultFolder(6).Folders("Processed")

Next

Set olApp = Nothing
Set olNS = Nothing
Set olFldr = Nothing

errorhandler:
Application.CutCopyMode = False
Set olApp = Nothing
Set olNS = Nothing
Set olFldr = Nothing
Exit Sub

End Sub

Moderator Note:

Pls use code tags around your code next time as per forum rules.